جلب التوقيت من موقع عن طريق http - نسخة قابلة للطباعة

جلب التوقيت من موقع عن طريق http - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : جلب التوقيت من موقع عن طريق http (/showthread.php?tid=11802)

جلب التوقيت من موقع عن طريق http - صالح حمادي - 08-02-2022

السلام عليكم
كيف يمكن ارسال و استقبال التاريخ من الموقع التالي
https://time.is/ar/Algeria
عن طريق http , Response , Get , .....

RE: جلب التوقيت من موقع عن طريق http - AX302 - 08-02-2022

السلام عليكم

[صورة: RTbA31K.png]

Time.rar (الحجم : 88.42 ك ب / التحميلات : 26)

*تم تعديل المرفق مع اضافة الوقت

RE: جلب التوقيت من موقع عن طريق http - صالح حمادي - 08-02-2022

بارك الله فيك آخي
فكرة ممتازة
توجد طريقة أخرى تمكننا من اسناد Response الى htmlDocument
و بعدها نستطيع التعامل معها من خلال Id أو Name من خلال getElementById أو getElementsByName

RE: جلب التوقيت من موقع عن طريق http - seddik_xp - 09-02-2022

إستخدم خدمات API
http://worldclockapi.com/

http://worldclockapi.com/api/json/utc/now
المخرجات :

كود :
{"$id":"1","currentDateTime":"2022-02-09T10:16Z","utcOffset":"00:00:00","isDayLightSavingsTime":false,"dayOfTheWeek":"Wednesday","timeZoneName":"UTC","currentFileTime":132888754127187796,"ordinalDate":"2022-40","serviceResponse":null}

RE: جلب التوقيت من موقع عن طريق http - صالح حمادي - 13-02-2022

(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));