مكون Indy للتحميل كبديل لURLDownloadToFileA

[maryos]

السلام عليكم

هل يوجد مكون اندي يعمل كبديل للداون لودر يعني
الان انا عندي داله داون لودر URLDownloadToFileA
هل يوجد مكون اندي يعوضني عنها وكيف يمكن استعماله

[Agmcz]

وعليكم السلام
استعمل المكون 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;

[maryos]

شكرا لك على الكود
لاكن يوجد خطاء بسيط وصلحته

كود :

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;

[onexite]

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; 


مباشرة الى الميمو بدون حفظ