Отправка Post Запроса В Delphi

[Sascha]

Сегодня же речь пойдет о POST запросах.

Отправлять запрос мы будем при помощи компонента IdHTTP. Также для формирования запроса и сохранения результатов нам потребуется ряд переменных.

1. str типа TStringList - в этой переменной мы укажем параметры запроса.

2. url типа string - будет хранить название сайта.

3. result типа string - для сохранения результатов.



Допустим, что нам нужно отправить на сайт fegorsk.ru имя пользователя и пароль (пара параметров 'name=maxim' и 'password=123'). Для этого нужно:

1. Объявим все необходимые переменные.

2. Запишем имя сайта в переменную url.

3. Создадим переменную str и добавим в неё интересующие параметры

4. Отправим POST запрос и сохраним результат в result

5. Разрушим переменную str


Вот, какой код у меня получился:

procedure TForm1.Button1Click(Sender: TObject);
var
// Объявим переменные
  str:TStringList;
  url, result: string;
begin
  url:='http://mail.ru/'; // запишем адрес сайта
  str:=TStringList.Create(); // создадим переменную str
  str.Add('name=maxim');     // добавим параметр name
  str.Add('password=123');   // добавим параметр password
  result:= IdHTTP1.Post(url,str); // Отправим запрос
  FreeAndNil(str); // Разрушим переменную str
end;