اهلا وسهلا بكم إخوانى الكرام .....درس اليوم عن كيفية قراءة روابط تغذية المواقع  RSS & Atom وذلك من خلال المكتبة RSS.NET.dll وهى مكتبة مفتوحة المصدر لتحليل وتوليد ونشر وقراءة روابط تغذية المواقع RSS و Atom بكل سهولة و يسر



أولا : مفهوم روابط التغذية  RSS & Atom

_خدمة RSS هي عبارة عن وسيلة سهلة تمكنك من الحصول على آخر الأخبار فور ورودها على مواقعك المفضلة على شبكة الإنترنت. فبدلاً من فتح صفحات المواقع والبحث عن المواضيع الجديدة، فإن خدمة RSS تخطرك بما يستجد من أخبار ومواضيع على تلك المواقع فور نشرها.

_أما Atom فهى خطوط مماثلة من RSS فهى نوع آخر من حقول البيانات وتختلف في بعض الجوانب عنها فى نوع البروتوكول



ثانيا :متطلبات العمل لقراءة روابط التغذية  RSS & Atom


حتى نستطيع كتابة الاكواد اللازمة لقراءة روابط التغذية  RSS & Atom من خلال المكتبة RSS.NET يجب علينا تحميل الملف RSS.NET.dll من هنــــــــــــــــا ...الرابط غير نشط فى حالة كونك غير مسجل


ثالثا : إنشاء مشروع لقراءة روابط تغذية موقع

1_ قم بفتح الفجوال بيسك دوت نت لانشاء مشروع نوافذ جديد

2_ قم بإضافة عدد 2 مربع نص TextBox و زر امر Button و ListBox و رسمهم على النافذة بهذا الشكل


3_ قم باراج المكتبة RSS.NET للمشروع و ذلك من خلال القائمة project ثم add Refernce ليظهر لك المربع الحوارى التالى اختر الملف  RSS.NET.dll


4_ فى حدث النقر على زر الامر نقوم بكتابة الاكواد التالية :

_ فى القسم العام قم بكتابة الكود التالى :

الكود:

Imports Rss

_ الاعلان عن الكائن RssFeed و تمرير رابط التغذية الية لقرائته من خلال الاسلوب Read على النحو التالى :

الكود:

Dim feed As RssFeed = RssFeed.Read(TextBox1.Text)

_ الاعلان عن الكائن RssChannel للحصول على عناصر رابط التغذية على النحو التالى :

الكود:

Dim channel As RssChannel = feed.Channels(0)

_ الحصول على كافة عناصر رابط التغذية و عرضها فى القائمة listbox1 على النحو التالى :

الكود:

 ListBox1.DataSource = channel.Items

_ الحصول على اسم موقع رابط التغذية و وعرضه فى label1

الكود:

 Label1.Text = channel.Title.ToString

و الكود الكامل على النحو التالى :

الكود:

Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        Try
            Dim feed As RssFeed = RssFeed.Read(TextBox1.Text)

            Dim channel As RssChannel = feed.Channels(0)

            ListBox1.DataSource = channel.Items
            Label1.Text = channel.Title.ToString


        Catch oMessage As Exception
            MsgBox(oMessage.Message, MsgBoxStyle.Critical)
        End Try

        Me.Cursor = System.Windows.Forms.Cursors.Default

و النتيجة كما يلى :


_ الان سنقوم بتطوير التطبيق وذلك من خلال عرض جزء من تفاصيل الخبر او العناصر التى تم الحصول عليها فى القائمة listbox1 بحيث عند النقر على اى عنصر يتم عرض جزء من تفاصيله فى مربع النص الثانى textbox2 وذلك من خلال الكود التالى :

الكود:

Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Try
            Dim item As RssItem = ListBox1.SelectedItem

            TextBox1.Text = item.Description.ToString
          
       Catch oMsg As Exception
            MsgBox(oMsg.Message, MsgBoxStyle.Critical, _
                  "error en cboTitulos_SelectedIndexChanged")
        End Try
    End Sub

و النتيجة


وايضا يمكنك انشاء ارتباط تشعبى لمصدر الخبر او رابط التغذية وذلك من خلال إضافة عنصر التحكم LinkLabel1 الى النافذة ثم كتابة الكود التالى فى حدث النقر لعناصر القائمة ListBox1_Click ليصبح الكود على النحو التالى :

الكود:

Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Try
            Dim item As RssItem = ListBox1.SelectedItem

            TextBox2.Text = item.Description.ToString

            With LinkLabel1
                .Links.Clear()
                .Text = item.Title
                .LinkBehavior = LinkBehavior.HoverUnderline
                .Links.Add(0, item.Title.Length, item.Link.AbsoluteUri.ToString)
            End With


        Catch oMsg As Exception
            MsgBox(oMsg.Message, MsgBoxStyle.Critical, _
                  "error en cboTitulos_SelectedIndexChanged")
        End Try
    End Sub

وفى حدث LinkLabel1_LinkClicked لعنصر التحكم LinkLabel1 نكتب الكود التالى :

الكود:

With LinkLabel1
            Process.Start(e.Link.LinkData)
        End With

و النتيجة

عظيم منك شرحك الرائع يا رنا

رائع

جزاكم الله خيرا الكريمة رنا