Programalama > DELPHI

procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject);
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  Toplam, BytesRead,NumWritten: 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, BytesRead,NumWritten);
        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;