Отправка POST запроса в DELPHI

Дата публикации

Ранее я рассказывал о том, как отправлять GET запросы. Сегодня же речь пойдет о 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://fegorsk.ru/'; // запишем адрес сайта
  str:=TStringList.Create(); // создадим переменную str
  str.Add('name=maxim');     // добавим параметр name
  str.Add('password=123');   // добавим параметр password
  result:= IdHTTP1.Post(url,str); // Отправим запрос
  FreeAndNil(str); // Разрушим переменную str
end;
 

 

Если есть вопросы о том, как перехватить POST запрос и разложить его на составляющие - рекомендую прочесть статью: http://fegorsk.ru/index.php/studentam/delphi/25-avtorizatsiya-na-sajte-sredstvami-delphi

Для тех, кому интересно почитать про GET запросы - http://fegorsk.ru/index.php/studentam/delphi/61-otpravka-get-zaprosa-v-delphi

Добавить комментарий



Обновить

Комментарии   

 
0 #2 Александр И. 02.03.2017 19:04
Спасибо большое! Работает.
Цитировать
 
 
0 #1 Ivan 03.09.2016 20:49
Отлично все расписано, кратко и по делу ни какой воды. Спасибо.
Цитировать
 
Monday the 23rd. icq 486350790
Copyright 2012

©