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

made in programmersforum 5

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

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

21st
Фев

Скачать файл из интернета

Posted by Chas under Delphi

Slym

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

const BufferSize = 1024;

var

  hSession, hURL: HInternet;

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

  DataSize,BufferLen: DWORD;

  Stream:TFileStream;

begin

  Result:=False;

  hSession := InternetOpen(PChar(ExtractFileName(Application.ExeName)), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  try

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

    try

      DataSize:= 0;

      BufferLen:= sizeof(DataSize);

      if HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,

        @DataSize,BufferLen,PDWORD(nil)^) then

        begin

          Progress.Max:=DataSize;

          Progress.Position:=Progress.Min;

        end;

      Stream:=TFileStream.Create(FileName,fmCreate);

      try

        repeat

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

          Stream.WriteBuffer(Buffer, BufferLen);

          Progress.StepBy(BufferLen);

          Application.ProcessMessages;

        until BufferLen = 0;

        Result:=True;

      finally

        Stream.Free;

      end;

    finally

      InternetCloseHandle(hURL);

      Progress.Position:= SizeOf(Buffer);

    end;

  finally

    InternetCloseHandle(hSession);

  end;

end;
procedure TForm1.Button1Click(Sender: TObject);

begin

  if GetInetFile('http://www.rarlab.com/rar/winrar-x64-420ru.exe', 'winrar-x64-420ru.exe', ProgressBar1) then

    ShowMessage('Скачка завершена');

end;