Отправка HTTP POST запросов в Delphi: Простой пример с WinInet

Delphi , ОС и Железо , Windows

Вопрос пользователя заключается в том, что ему необходимо отправить HTTP POST запрос из программы на Delphi, используя функции WinInet. В его текущем коде есть некоторые ошибки, которые не позволяют корректно выполнить запрос. Ниже представлен пошаговый пример кода, который демонстрирует, как можно реализовать HTTP POST запрос с использованием WinInet.

Шаг 1: Инициализация сессии WinInet

hNet := InternetOpen(PChar('User Agent'), INTERNET_OPEN_TYPE_PRECONFIG or INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);

Шаг 2: Установка соединения с сервером

hURL := InternetConnect(hNet, PChar('http://example.com'), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);

Шаг 3: Открытие запроса

hRequest := HttpOpenRequest(hURL, 'POST', PChar('/path/to/resource'), 'HTTP/1.1', nil, nil, INTERNET_FLAG_REUSE_CONNECTION, 0);

Важно: Третий параметр функции HttpOpenRequest должен быть URL, на который вы хотите отправить запрос, а не просто параметры запроса. Также, после открытия запроса, необходимо добавить заголовки, включая заголовок Content-Type, который указывает тип отправляемых данных.

Шаг 4: Добавление заголовков запроса

var
  Header: TStringStream;
begin
  Header := TStringStream.Create;
  try
    with Header do
    begin
      WriteString('Content-Type: application/x-www-form-urlencoded'#10);
      WriteString('Content-Length: ' + IntToStr(Length(AData))#10);
      WriteString(#10);
    end;
    HttpAddRequestHeaders(hRequest, PChar(Header.DataString), Length(Header.DataString), 0);
  finally
    Header.Free;
  end;

Шаг 5: Отправка запроса и данных

if HttpSendRequestEx(hRequest, nil, AData, Length(AData), nil, nil) then
begin
  // Продолжение обработки ответа
end;

Шаг 6: Чтение ответа сервера

var
  Buffer: array[0..4095] of Char;
  BytesRead: Cardinal;
begin
  while InternetReadFile(hRequest, @Buffer[0], SizeOf(Buffer), BytesRead) do
  begin
    if BytesRead = 0 then
      Break;
    // Здесь можно обработать полученные данные
  end;
end;

Шаг 7: Закрытие соединений

InternetCloseHandle(hRequest);
InternetCloseHandle(hURL);
InternetCloseHandle(hNet);

Примечание: В коде пользователя отсутствует отправка фактических данных запроса. Это необходимо сделать с помощью функции HttpSendRequestEx, передав в неё буфер с данными. Также, в коде отсутствует обработка возможных ошибок, что важно для отладки и понимания причин сбоев.

В качестве альтернативного подхода можно использовать стороннюю библиотеку, например, Synapse, которая предоставляет удобные классы и процедуры для работы с TCP/IP, включая отправку HTTP POST запросов.

Подтвержденный ответ

Пользователь нашел рабочий пример кода на сайте Pastebin, который отправляет POST запрос и получает ответ от сервера. Код использует дополнительные функции, такие как ParseUrl для разбора URL, TStringStream для создания потока данных и TMemoryStream для чтения ответа сервера.

Комментарии

Пользователь также упоминает о необходимости добавления пользовательских заголовков в POST запрос, что является важной частью настройки HTTP запроса.

Этот пример демонстрирует базовую отправку HTTP POST запроса с использованием WinInet в Delphi. Для более сложных задач и удобства использования рекомендуется рассмотреть сторонние библиотеки, такие как Synapse.

Создано по материалам из источника по ссылке.

Пользователь ищет помощь в реализации HTTP POST запроса в программе на Delphi с использованием функций WinInet, предоставляя пример кода, который нужно исправить и дополнить для корректной работы.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::