delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

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

كود :
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;

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; 

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

maryos

Agmcz

maryos

onexite