قراءة روابط تغذية المواقع RSS فى بيئة الدوت نت

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

قراءة روابط تغذية المواقع RSS فى بيئة الدوت نت

مُساهمة من طرف RANA في الخميس أبريل 10, 2014 1:19 pm

بسم الله الرحمن الرحيم


اهلا وسهلا بكم إخوانى الكرام .....درس اليوم عن كيفية قراءة روابط تغذية المواقع  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

و النتيجة


RANA
....
....

تاريخ التسجيل : 01/08/2013
المساهمات : 64
النقاط : 103
التقيم : 1
الدولة : فلسطين
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: قراءة روابط تغذية المواقع RSS فى بيئة الدوت نت

مُساهمة من طرف VB.NET في الخميس أبريل 10, 2014 4:39 pm

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

VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: قراءة روابط تغذية المواقع RSS فى بيئة الدوت نت

مُساهمة من طرف أبوسجود في الثلاثاء مايو 06, 2014 12:59 pm

رائع

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: قراءة روابط تغذية المواقع RSS فى بيئة الدوت نت

مُساهمة من طرف أحمد مناع في الإثنين مايو 12, 2014 2:38 pm

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى