قراءة ملف Text من الإنترنت

إن شاء الله هذا الكود يكون كافي لسؤالك

هذا الكود يمكنك من تنزيل الملف ثم أقرأه من الهارد

uses UrlMon;

function DownloadFile(Source, Dest: string): Boolean;
begin
  try
	Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except
	Result := False;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if DownloadFile('http://dkb.kastu.lt/index.html', 'c:\index.html') then
	ShowMessage('Download succesful')
  else
	ShowMessage('Download unsuccesful');
end;

السلام عليكم

يوجد طريقة اخرى...باستخدام IdHTTP

form1.Caption := IdHTTP1.Get('http://127.0.0.1/ver.txt');

معلش هتعبك معايا

انا عايز بس يقرأ الملف

مثال

EditBox1.text := http://www.test.com/ver.txt;

أسف كتبنا فى نفس الوقت

هحاول أجرب الكود إن شاء الله

جزاكم الله كل خير على المجهود الطيب

تم الموضوع بنجاح جزاكم الله كل خير

قمت بوضع الكود والأداة وتم عملة

وأنصح كل شخص بفعل هذا الموضوع وإضافة If الشرطية لفحص إصدار البرنامج وطلب التحديث إذا امكن

سوف أقوم بشرح ما فعلت للنفع

************

قمت برفع ملف تكست على موقعى ver.txt وقمت بكتابة داخلة 15

قمت بإضافة أداة indy client >> IdHTTP1 على الفورم

قمت بإضافة هذا مربع نص لإستقبال الملف علية

قمت بوضع هذا الكود فى الحدث onCreate للفورم

Edit1.Text := IdHTTP1.Get('http://www.test.com/ver.txt'); // this is test website
if  Edit1.Text > '14' then
begin
showmessage ('please update the program');
end;

وطبعاً كل ما تعمل إصدار جديد تغير ملف ver.txt اللى عندك فى الموقع لطلب تحديث من المستخدم

بالتوفيق

Swift كتب:

وطبعاً كل ما تعمل إصدار جديد تغير ملف ver.txt اللى عندك فى الموقع لطلب تحديث من المستخدم

من الاحسن ان يقوم البرنامج بنفسه بالتحديث

طبعا بعد موافقة المستخدم