سورس دریافت آخرین اخبار رزبلاگ از RSS با گت المنت+اعلان خبر جدید

[پژمان نیکروان 6,055]

سلام به دوستای عزیزم.

خب همینطور که میدونید چند ماه پیش یه سورسی قرار داده بودیم داخل فروشگاه برای دریافت آخرین اخبار از طریق آرآراس سایت با گت المنت ، که اونجا واسه رزبلاگ بود.

ازاونجایی که اون سورس زیاد بهینه نبود ، مثلا بجای اینکه از حلقه یا آرایه استفاده بشه از چندین دستور یا چندین متغیر استفاده شده بود و همچنین غیررایگان بود.

 

این سورس رو واستون قرار میدم که با استفاده از گت المنت(جاوا اسکریپت) ، 7خبر آخر سایت news.rozblog.com/rss.xml رو گرفتیم و عناوین شو توی لیست ویو نشون دادیم ، و بعد از کلیک روی هرکدوم بلافاصله به اکتیویتی نشون دادن خبر هدایت میشید که اونجا متن خبر داخل لیبل و اسکرول ویو نمایش داده میشه. که میتونید جاش وب ویو هم بذارید و ازاینور هم به جای innerText از innerHTML استفاده کنید تا کد هاهم دریافت کنه و بتونید تو وب ویو نشونش بدید.

همچنین زمانی که خبر جدیدی پست بشه (درصورت روشن شدن اینترنت طرف) چک میکنه و ناتیفیکیشن میده. اینکار توسط سرویس Check انجام میشه.

 

دیگه باقیش میمونه با خودتون ، مثلا چطور بتونید همینو برای سایت های دیگه که RSS دارن بنویسید ، تو اینجور مواقع دقت داشته باشید که ممکنه تگ ها ، ایدی ها و... فرق کنه ، پس باید خودتون تغییر بدید و ما مسئولش نیستیم.

 

سال جدیدتون هم مبارک.

 

[لینک دانلود | Download]

[coloner 14]

موقع ران شدن خطای زیر نمایش داده میشه:

B4A version: 5.02
Parsing code.    Error
Error parsing program.
Error description: Unknown type: autosizescroll
Are you missing a library reference?
Occurred on line: 31
Dim s As AutoSizeScroll 'برای ست کردن متن با اسکرول ویو

مشکل از کجاست؟

[پژمان نیکروان 6,055]

 

مشکل از کجاست؟

کتابخانه ی autosizescroll رو ندارید.

کنار سورس توی پوشه "کتابخانه ها" قرار داده بودمش ، اضافش کنید به کتابخانه هاتون.

[RoyaPM 538]

میره تو برنامه ولی چیزی نمیاد بعد از هشدار منتظر بمانید

 

اینم لاگ:

Copying updated assets files (2)
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (check) Create **
** Service (check) Start **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
Uncaught TypeError: Object [object Object] has no method 'CallSub' in null (Line: 1)
** Activity (main) Pause, UserClosed = true **

[viki0028 19]

سلام به دوستای عزیزم.

خب همینطور که میدونید چند ماه پیش یه سورسی قرار داده بودیم داخل فروشگاه برای دریافت آخرین اخبار از طریق آرآراس سایت با گت المنت ، که اونجا واسه رزبلاگ بود.

ازاونجایی که اون سورس زیاد بهینه نبود ، مثلا بجای اینکه از حلقه یا آرایه استفاده بشه از چندین دستور یا چندین متغیر استفاده شده بود و همچنین غیررایگان بود.

 

این سورس رو واستون قرار میدم که با استفاده از گت المنت(جاوا اسکریپت) ، 7خبر آخر سایت news.rozblog.com/rss.xml رو گرفتیم و عناوین شو توی لیست ویو نشون دادیم ، و بعد از کلیک روی هرکدوم بلافاصله به اکتیویتی نشون دادن خبر هدایت میشید که اونجا متن خبر داخل لیبل و اسکرول ویو نمایش داده میشه. که میتونید جاش وب ویو هم بذارید و ازاینور هم به جای innerText از innerHTML استفاده کنید تا کد هاهم دریافت کنه و بتونید تو وب ویو نشونش بدید.

همچنین زمانی که خبر جدیدی پست بشه (درصورت روشن شدن اینترنت طرف) چک میکنه و ناتیفیکیشن میده. اینکار توسط سرویس Check انجام میشه.

 

دیگه باقیش میمونه با خودتون ، مثلا چطور بتونید همینو برای سایت های دیگه که RSS دارن بنویسید ، تو اینجور مواقع دقت داشته باشید که ممکنه تگ ها ، ایدی ها و... فرق کنه ، پس باید خودتون تغییر بدید و ما مسئولش نیستیم.

 

سال جدیدتون هم مبارک.

 

[لینک دانلود | Download]

 

 

 

 

درود بر شما

 

بسیار سپاسگذارم بابت این سورس خوب. 

 

فقط یک مشکل دارم.

 

من تغییرات زیادی در برنامه دادم. برنامه وقتی یک خبر جدید به وبلاگ اضافه میشه به صورت نوتیفیکیشن اعلام میکنه... از برنامه به صورت عادی خارج میشیم. تا اینجاش مشکلی نیست ... اما وقتی برنامه را از طریق دکمه پایین گوشی به اجبار میبندیم دوباره نوتیفیکیشن میاد بالا....

 

نمیدونم دلیلش چیه 

 

لطفا راهنمایی کنید اساتید محترم

[پژمان نیکروان 6,055]

لطفا راهنمایی کنید اساتید محترم

سلام

شما باید از سرویس استفاده کنید. در مورد سرویس و پایدار نگهداشتنش هم خیلی زیاد بحث شده.

[viki0028 19]

سلام

شما باید از سرویس استفاده کنید. در مورد سرویس و پایدار نگهداشتنش هم خیلی زیاد بحث شده.

 

 

من با اجازتون سورس رو در اینجا قرار میدم، شما و دوستان هم یک نگاهی بندازید..من از ترکیب دوتا سورس این یکی رو آماده کردم. بیشتر هدفم بلاگفا بوده و نمایش اطلاعات در WEBWIEW 

#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")
StartService(check)
Font = Typeface.LoadFromAssets("Soltan.ttf")
Label1.Typeface = Font
    GetListView.Width = 100%x
    GetListView.Height = 100%y
    Parser.Initialize
    HttpClient1.Initialize("HttpClient1")
    Hr.InitializeGet("http://viki0028.blogfa.com/rss")
    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

سرویس چک رو هم از روی سورس شما اضافه کردم

[viki0028 19]

نرم افزار بادصبا به نظر شما از rss استفاده میکنه؟

اگه از اینطور باشه که خیلی فوق العادست.