Загрузка файла из интернета с отображением прогресса в progressbar

Posted by Chas under Delphi

Вопрос такой, возможно ли доработать выше представленный код так, чтобы была возможность выводить на форму объем загружаемого файла и уже загруженный объём ?

-Jack-
Сам разобрался

uses

  IdHTTP, WinInet;

function GetInetFile(const fileURL, FileName: String): boolean;

var

  hSession, hURL: HInternet;

  Buffer: array[1..1024] of Byte;

  BufferLen: DWORD;

  f: File;

  sAppName: String;

begin

  Result:=false;

  sAppName:=ExtractFileName(Application.ExeName);

  hSession:=InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);

  try

    hURL:=InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);

    try

      AssignFile(f,FileName);

      ReWrite(f,1);

      repeat

        InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);

        BlockWrite(f,Buffer,BufferLen);

        Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+BufferLen;

        Application.ProcessMessages;

      until

        BufferLen = 0;

      CloseFile(f);

      Result:=True;

    finally

      InternetCloseHandle(hURL);

    end;

  finally

    InternetCloseHandle(hSession);

  end;

end;

function GetInetFileSize(const FileUrl:string): integer;

var

  idHTTP: TidHTTP;

begin

  Result:=0;

  idHTTP:=TIdHTTP.Create(nil);

  idHTTP.Head(FileUrl);

  Result:=idHTTP.Response.ContentLength;

  IdHTTP.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ProgressBar1.Max:=GetInetFileSize(Source);

  GetInetFile(Source,Destination);

end;

тема на форуме

Похожие статьи

• Кодировка в INDY 10 (как бороться с «???»)
• как бороться со знаками вопросов при проблеме с кодировкой в INDY 10 Delphi ?
• Связать ProgressBar + скорлинг в Texbox
• INDY — отправка на емейл
• Synapse.HTTPSend послать 100 запросов на сервер
• Загрузить два файла в Memo
• Получение Https страницы
• В TMemoryStream используя LoadFromStream загрузить картинку с сайта
• Как можно спрятать url скачиваемого файла?
• Сохранить скаченный mp3 файл из интернета