Как получить результат выполнения запроса web-сервера?

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

Как получить результат выполнения запроса web-сервера?

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

  отправка запроса aRequest  на сервер aServer, ответ в Result

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

function Request (aRequest, aServer : string) : string;

var lFormData   : TIdMultiPartFormDataStream;

    lResponce : string;

    HTTPRequest: TIdHTTP;

begin

  if trim(aRequest)='' then exit;



  lFormData := TIdMultiPartFormDataStream.Create;

  lFormData.AddFormField('rq', aRequest);//собственно запрос передаётся в параметре $_Request['rq']



  {$IFDEF DEBUG}

  Writeln(#13#10 + 'Request to server '+ aServer +#13#10+ aRequest);

  {$ENDIF}



  try

    lResponce := HTTPRequest.Post('http://'+aServer, lFormData);

  except

    Display('Server Connection error!');

    lResponce:='';

  end;



  lFormData.Free;

  {$IFDEF DEBUG}

  Writeln(#13#10 + 'Responce: ' + #13#10 + lResponce);

  {$ENDIF}



  Result:= lResponce;

end;

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

KAN

Статья Как получить результат выполнения запроса web-сервера? раздела Интернет и Сети Интернет может быть полезна для разработчиков на Delphi и FreePascal.

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

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

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

19.04.2024 14:18:00/0.0041651725769043/2