BoDyGuArD

Download Programı Yapmak
procedure gy_DownloadFile_to_file(const Url: string;File1File2: String; Obj:TObject);
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
Toplam BytesReadNumWritten: dWord;
ToF: file;
begin
Toplam:=0;
NetHandle := InternetOpen('Delphi 5.x' INTERNET_OPEN_TYPE_PRECONFIG nil nil 0);

if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle PChar(Url) nil 0 INTERNET_FLAG_RELOAD 0);

if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer SizeOf(Buffer) 0);
AssignFile(ToF file1);
Rewrite(ToF 1); { Record size = 1 }
repeat
FillChar(Buffer SizeOf(Buffer) 0);
InternetReadFile(UrlHandle @Buffer SizeOf(Buffer) BytesRead);
Toplam := Toplam + BytesRead;
if assigned(Obj) and ( Obj is TLabel) then
TLabel(obj).caption := File2+' '+ FloatToStr(Toplam)+' Byte indi ' ;
BlockWrite(ToF Buffer BytesReadNumWritten);
Application.ProcessMessages;
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
CloseFile(ToF);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s' [url]);

InternetCloseHandle(NetHandle);
end
else
{ NetHandle is not valid. Raise an exception }
raise Exception.Create('Unable to initialize Wininet');
end;