11-02-2020, 02:40 PM
السلام عليكم
وجدت نصف الحل
لطلب معلومات من أي موقع بصيغة xml لابد أن يكون هو يعطيك البيانات بتلك الصيغه والطلب بمكون nethttprequest يعيد الطلب بصيغةhtml
حتى يكون الطلب صحيح لابد من تحديد صيغة الطلب بxml
أنا جربت خدمتrss لموقع اليوتوب
HTTPS://www.youtube.com/feeds/videos.xml..._id=xxxxxx
Xxxxxxهو رقم قائمة التشغيل
تجد الناتج صيغةxmlفيها معلومات عن الفيديوهات في القائمه
يمكن أن نستغل تلك البيانات منxml بالاكواد التالية
Var
Ms:tmemorystream;
Xmld:txmldocument;
Node:ixmlnode;
I:integer;
Begin
Ms:= tmemorystream.create;
Xmld:=txmldocument.create(self);
Nethttprequest1.get(edit1.text,ms);
Xmld.loadfromstram(ms,txmlencoding.xetutf_8);
الى هنا تتم الاستجابة في متغير ستريم
لعرضها في مكون memo نكتب
For i:=0 to xml.documentelement.childnodes.count -1 do
Begin
Node:=xml.document.childnodes.get(i);
هنا جميع الجودات نسيت اسمها بالعربية
لعرضها
Memo1.text:=xmld.xml.text;
End
Ms.free;
Xmld.free;
الان كيف نأخذ هذه البيانات
نكتب داخل الحلقة for الشروط
سنبدأ بجلب بيانات نود ذات الاسم<author>
If node.childnodes[i]. nodename='author' then
Begin
Label1.text:=node.childnodes[i].childnodes.findnode('name'). texte;
End;
هنا توقفت اليوم يظهر خطأ في label
سأحاول معالجته لاحقا
بقي لي اسم الفيديو الصورة سأكتب الكود لاحقا موجود في نود title وthumbanil
ثم المشكل الاخير الذي لم أجد الحل له ربما لم انتبه جيدا وهو
رابط الفيديو وجدت hrefهو رابط المساعدة ولكن رابط التحميل لم أجده
الحمدلله على التوفيق ثم شكرا للجميع الذين حاولوا مساعدتي
وجدت نصف الحل
لطلب معلومات من أي موقع بصيغة xml لابد أن يكون هو يعطيك البيانات بتلك الصيغه والطلب بمكون nethttprequest يعيد الطلب بصيغةhtml
حتى يكون الطلب صحيح لابد من تحديد صيغة الطلب بxml
أنا جربت خدمتrss لموقع اليوتوب
HTTPS://www.youtube.com/feeds/videos.xml..._id=xxxxxx
Xxxxxxهو رقم قائمة التشغيل
تجد الناتج صيغةxmlفيها معلومات عن الفيديوهات في القائمه
يمكن أن نستغل تلك البيانات منxml بالاكواد التالية
Var
Ms:tmemorystream;
Xmld:txmldocument;
Node:ixmlnode;
I:integer;
Begin
Ms:= tmemorystream.create;
Xmld:=txmldocument.create(self);
Nethttprequest1.get(edit1.text,ms);
Xmld.loadfromstram(ms,txmlencoding.xetutf_8);
الى هنا تتم الاستجابة في متغير ستريم
لعرضها في مكون memo نكتب
For i:=0 to xml.documentelement.childnodes.count -1 do
Begin
Node:=xml.document.childnodes.get(i);
هنا جميع الجودات نسيت اسمها بالعربية
لعرضها
Memo1.text:=xmld.xml.text;
End
Ms.free;
Xmld.free;
الان كيف نأخذ هذه البيانات
نكتب داخل الحلقة for الشروط
سنبدأ بجلب بيانات نود ذات الاسم<author>
If node.childnodes[i]. nodename='author' then
Begin
Label1.text:=node.childnodes[i].childnodes.findnode('name'). texte;
End;
هنا توقفت اليوم يظهر خطأ في label
سأحاول معالجته لاحقا
بقي لي اسم الفيديو الصورة سأكتب الكود لاحقا موجود في نود title وthumbanil
ثم المشكل الاخير الذي لم أجد الحل له ربما لم انتبه جيدا وهو
رابط الفيديو وجدت hrefهو رابط المساعدة ولكن رابط التحميل لم أجده
الحمدلله على التوفيق ثم شكرا للجميع الذين حاولوا مساعدتي