مشکل با نمایش rss سایت ها در لیست ویو

[cloner01001 38]

دوستان من با این کد یه برنامه rss خوان ساختم

#Region  Project Attributes 
	#ApplicationLabel: تـازه هـا
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Dim Parser As SaxParser
	Dim HttpClient1 As HttpClient
	Dim Hr As HttpRequest
    Dim Str1 As String

End Sub

Sub Globals
Private Label1 As Label
Dim Font As Typeface
      Dim GetListView As ListView
				Dim Title, Link, PubDate, Description As String
				Dim BufferText As String
				Dim NewFeed As String				
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
Font = Typeface.LoadFromAssets("Soltan.ttf")
Label1.Typeface = Font
				GetListView.Width = 100%x
				GetListView.Height = 100%y
	   Parser.Initialize
				HttpClient1.Initialize("HttpClient1")
				Hr.InitializeGet("http://www.alisz.ir/rss.xml")
				HttpClient1.Execute(Hr, 1)
End Sub

Sub GetListView_ItemClick(Position As Int, Value As Object)
Str1 = Value
    StartActivity(Matn)
End Sub

Sub HttpClient1_ResponseSuccess(Response As HttpResponse, TaskId As Int)
ProgressDialogShow("لطفا صبر کنید")
    Response.GetAsynchronously("GetGetListView",	File.OpenOutput(File.DirDefaultExternal, "RSS.xml", False), True, TaskId)
End Sub
Sub HttpClient1_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    If Response <> Null Then
       Msgbox("Error: " & Response.GetString("UTF8"), "Connection Error")
							Response.Release
    End If
End Sub

Sub GetGetListView_StreamFinish(Success As Boolean, TaskId As Int)
ProgressDialogHide
				If Success = False Then
							Msgbox(LastException.Message, "Error")
       Return
				End If			
				Dim In As InputStream
				In = File.OpenInput(File.DirDefaultExternal, "RSS.xml")
				Parser.Parse(In, "Parser")
				In.Close
				NewFeed = File.ReadString(File.DirDefaultExternal, "RSS.xml")
End Sub
Sub Parser_StartElement(Uri As String, Name As String, Attributes As Attributes)

End Sub

Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)				
				If Parser.Parents.IndexOf("item") > -1 Then		
		     If Name = "title" Then			
			       Title = Text.ToString	
		     Else If Name = "link" Then		
			       Link = Text.ToString	
		     Else If Name = "pubdate" Then			       
										PubDate = Text.ToString								
							Else If Name = "description" Then
							   Description = Text.ToString
		     End If
	   End If
				If Name = "item" Then
GetListView.AddSingleLine2(Title, Description)
Dim Label2 As Label
Label2 = GetListView.SingleLineLayout.Label
Label2.TextSize = 15
Label2.Left = Label2.width - 5dip
Label2.TextColor = Colors.White
	   End If
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

سورس rss من به این صورت هست:

<?xml version="1.0" ?>
<rss version="2.0">
<channel>
  <title>آهنگ</title>
  <link>http://www.alisz.ir</link>
  <description>سایت دانلود آهنگ</description>
  <image>
      <url>http://www.alisz.ir</url>
      <link>http://www.alisz.ir</link>
  </image>
  <item>
      <title>دانلود آهنگ ...</title>
      <link>http://www.alisz.ir/ahang.mp3</link>
      
      <description>فلان خواننده</description>
      <img>http://www.alisz.ir/aks.png</img>
  </item>

</channel>
</rss>

من میخوام تو لیست ویو یه لیست ویوی دو خطی همراه عکس درست بشه که تو خط اول <title> تو خط دوم <description> برای عکس  <img> رو از فایل xml روی سایت بخونه و وقتی روش کلیک شد متناسب با آیتیمی که کلیک شد <link> مربوطه رو باز کنه ، لطفنکمک کنید