Как получить файл с сервера по HTTP?

Delphi , Интернет и Сети , Интернет

Как получить файл с сервера по HTTP?

{ =============================================================================

  получить файл

  =============================================================================}

function GetFile (aRequest : string) : TMemoryStream;

var lFormData   : TIdMultiPartFormDataStream;

    lResponce : string;

HTTPRequest: TIdHTTP;
begin

  if UseProxy then

    try

      HTTPRequest.ProxyParams.ProxyServer:=ProxyServer;

      HTTPRequest.ProxyParams.ProxyPort:= StrToInt( ProxyPort );

      HTTPRequest.ProxyParams.BasicAuthentication:=ProxyAuth;

      HTTPRequest.ProxyParams.ProxyUsername:=ProxyName;

      HTTPRequest.ProxyParams.ProxyPassword:=ProxyPass;

    except

      ShowMessage('Неверные настройки прокси-сервера!');

      Application.Terminate;

    end

  else HTTPRequest.ProxyParams.Clear;



  if trim(aRequest)='' then exit;

  Result := TMemoryStream.Create;



  try

    {$IFDEF DEBUG}

    Writeln(#13#10 + 'GET: http://'+server+aRequest);

    {$ENDIF}

    dm.HTTPRequest.Get('http://'+server+aRequest, Result);

  except

    ShowMessage(

'Server Connection error!'

);

    Application.Terminate;

  end;

end;

//=============================================================================

kan

Получение файла с сервера по протоколу HTTP через функцию GetFile, которая использует компонент TIdHTTP для отправки запроса и получает результат в виде потока памяти.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Интернет ::

Время компиляции файла: 2024-05-19 17:53:24
2024-05-19 20:24:33/0.0048961639404297/2