+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مكون Indy للتحميل كبديل لURLDownloadToFileA (/showthread.php?tid=4466)
مكون Indy للتحميل كبديل لURLDownloadToFileA - maryos - 19-08-2012
السلام عليكم
هل يوجد مكون اندي يعمل كبديل للداون لودر يعني
الان انا عندي داله داون لودر URLDownloadToFileA
هل يوجد مكون اندي يعوضني عنها وكيف يمكن استعماله
مكون Indy للتحميل كبديل لURLDownloadToFileA - Agmcz - 20-08-2012
وعليكم السلام
استعمل المكون IdHTTP
كود :
uses IdHTTP;
procedure TForm1.Button1Click(Sender: TObject);
var
HTTP: TIdHTTP;
MS: TMemoryStream;
begin
HTTP := TIdHTTP.Create(nil);
Stream := TMemoryStream.Create;
try
HTTP.Get('http://www.delphi4arab.net/updater.txt', MS);
MS.SaveToFile('updater.txt');
finally
HTTP.Free;
MS.Free;
end;
end;مكون Indy للتحميل كبديل لURLDownloadToFileA - maryos - 22-08-2012
شكرا لك على الكود
لاكن يوجد خطاء بسيط وصلحته
كود :
var
HTTP: TIdHTTP;
MS: TMemoryStream;
begin
HTTP := TIdHTTP.Create(nil);
MS := TMemoryStream.Create;
try
HTTP.Get('http://i3.makcdn.com/wp-content/blogs.dir//188917/files//2012/03/d984d8a7-d8a7d984d987-d8a7d984d8a7-d8a7d984d984d9876.jpg', MS);
MS.SaveToFile('D:\Tiger.jpg');
finally
HTTP.Free;
MS.Free;
end;كود :
Stream := TMemoryStream.Create;مكون Indy للتحميل كبديل لURLDownloadToFileA - onexite - 22-08-2012
PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
var
HTTP: TIdHTTP;
MS: TMemoryStream;
begin
HTTP := TIdHTTP.Create(nil);
MS := TMemoryStream.Create;
try
HTTP.Get('http://www.delphi4arab.net/updater.txt', MS);
MS.Position:=0;
mmo1.Lines.LoadFromStream(ms);
finally
HTTP.Free;
MS.Free;
end;
end;