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

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

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

29th
Сен

Как передать параметры на сервер

Posted by maloy under Delphi, Архив

Sniper

Есть некий сервер, на котором лежит скрипт CGI. Как мне програмно передать на этот скрипт параметры. Например как мне предать два параметра user=root и pass=YouPass?

Pitbull

для приема — передачи используйте Get и Post.

 var PostD:TStringList;

Respons:TStringStream;

begin

response:=TStringStream.Create('');

PostD:=TStringList.create;

postD.add('user=root');

postD.add('pass=YouPass');

try

idHTTP1.post(aдрес_куда, PostD,Response);

Memo1.Lines.text:=response.DataStri ng;//ответ сервера

finally

response.free;

postD.free;

idHTTP1.disconnect;

end;

end;

и еще вариант

uses IdMultipartFormData;

procedure TForm1.Button1Click(Sender: TObject);

var data: TIdMultiPartFormDataStream;

begin

data := TIdMultiPartFormDataStream.Create;

try

{ параметрі для скрипта}

data.AddFormField('param1', 'value1');

data.AddFormField('param2', 'value2');

{ результаті } Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);

finally

data.Free;

end;

end;