+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل كود++c الي دلفي (/showthread.php?tid=6298)
تحويل كود++c الي دلفي - Oman Defender - 07-07-2014
السلام عليكم روحمة الله وبركاته
كيف تحويل هذا الكود من ال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;تحويل كود++c الي دلفي - Agmcz - 07-07-2014
وعليكم السلام
ما يساوي السطر الأول في دلفي
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;
بالتوفيق
تحويل كود++c الي دلفي - Oman Defender - 07-07-2014
بارك الله فيك أخي.لقد استفدت من الجواب
تحويل كود++c الي دلفي - Agmcz - 08-07-2014
وهذا ما يواليها الكود السابق بالضبط
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;