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

السلام عليكم روحمة الله وبركاته
كيف تحويل هذا الكود من الC++ الي دلفي

كود :
TFileStream* fs = new TfileStream("C:\\winrar.exe", fmCreat);
Download->Get->(Edit1->Text, fs);
delete fs;

هذا في حدث الضغط علب زر تحميل ملف من الأنترنت
وجدت هذا الفنكشن

كود :
function SendStream(AContext: TIdContext; AStream: TStream): Boolean;
  begin
    Result := True;
    try
      AContext.Connection.IOHandler.Write(AStream, 0, True);
    except
      Result := False;
    end;
  end;

كيف استفيد منه برنامج ؟

وعليكم السلام
ما يساوي السطر الأول في دلفي

PHP كود :
var
  FileStream: TFileStream;
begin
  try
    FileStream := TFileStream.Create('C:\winrar.exe', fmCreate);
    (*code
    *
    *
    code*)
  finally
    FileStream.Free;
  end;
end; 

أما السطر الثاني فهو يقوم بتحميل الملف
بإستعمال الوحدة UrlMon

PHP كود :
uses
  UrlMon;

{procedure}
begin
  if URLDownloadToFile(nil, PChar('http://www.url.com/winrar.exe'),
    PChar('C:\winrar.exe'), 0, nil) = 0 then
    ShowMessage('Done');
end; 

في دلفي بهذه الطريقة انت لست بحاجة لإستعمال السطر الأول
بالتوفيق

بارك الله فيك أخي.لقد استفدت من الجواب Smile

وهذا ما يواليها الكود السابق بالضبط

PHP كود :
var
  FS: TFileStream;
  Download: TIdHTTP;
  URL: string;
begin
  URL := 'http://www.delphi4arab.net/updater.txt';
  FS := TFileStream.Create('updater.txt', fmCreate);
  Download := TIdHTTP.Create(nil);
  try
    Download.Get(URL, FS);
  finally
    FS.Free;
    Download.Free;
  end;
end; 

Oman Defender

Agmcz

Oman Defender

Agmcz