13-02-2022, 01:45 PM
(09-02-2022, 11:20 AM)seddik_xp كتب : إستخدم خدمات API
السلام عليكم أخي هذه لم أفهمها مع هذا الموقع
لقد قمت بالتوصل إلى حل لهذه المشكلة من خلال الكود التالي و إضافة المكتبتين MSHTML, COMObj الى Uses
كود :
var xmlhttp: variant;
html22 : IHtmlDocument2;
ee : IHTMLElement;
doc: variant;
element: variant ;
begin
xmlhttp:=createoleobject('MSXML2.XMLHTTP.3.0');
xmlhttp.open('GET', 'https://time.is/ar/Algeria', true);
xmlhttp.send();
while (xmlhttp.readystate<>4) do application.processmessages;
doc := coHTMLDocument.Create as IHTMLDocument2;
doc.write(xmlhttp.responseText);
doc.Close;
element := doc.getElementById('dd');
ShowMessage(element.getAttribute('innertext', 0));