تحويل كود++c الي دلفي

[Oman Defender]

السلام عليكم روحمة الله وبركاته
كيف تحويل هذا الكود من ال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;

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

[Agmcz]

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

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; 


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

[Oman Defender]

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

[Agmcz]

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

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;