Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Окт

Вывести размер загружаемого файла

Posted by micher 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;