Отправка HTTP POST запросов в Delphi 2010 с использованием WinInet

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

В данной статье мы рассмотрим, как отправить HTTP POST запрос на сервер с использованием компонентов WinInet в среде разработки Delphi 2010. WinInet - это набор функций Windows для работы с интернет-сервисами, включая HTTP, HTTPS, FTP и другие.

Проблема

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

Основные ошибки

1. В функции InternetConnect второй параметр должен содержать только имя сервера, без указания скрипта или пути к нему.
2. В функции HttpOpenRequest третий параметр должен быть названием файла (URL) скрипта, а не данными POST.
3. Фактические данные POST должны быть переданы в качестве четвертого параметра функции HttpSendRequest.

Мелкие ошибки

1. Использование INTERNET_OPEN_TYPE_PRECONFIG or INTERNET_OPEN_TYPE_PRECONFIG не требуется, достаточно использовать INTERNET_OPEN_TYPE_PRECONFIG.
2. Параметр DWORD(0) в функции InternetConnect избыточен, достаточно передать просто 0.

Пример кода

Для отправки POST запроса можно использовать следующий код:

procedure WebPostData(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString); overload;
var
  hInet: HINTERNET;
  hHTTP: HINTERNET;
  hReq: HINTERNET;
  const
    accept: packed array[0..1] of LPWSTR = (PChar('*/*'), nil);
    header: string = 'Content-Type: application/x-www-form-urlencoded';
  begin
    hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    try
      hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
      try
        hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(Resource), nil, nil, @accept, 0, 1);
        try
          if not HttpSendRequest(hReq, PChar(header) + #13#10 + Data, length(header) + length(Data) + 2, nil, 0) then
            raise Exception.Create('HttpSendRequest failed. ' + SysErrorMessage(GetLastError));
        finally
          InternetCloseHandle(hReq);
        end;
      finally
        InternetCloseHandle(hHTTP);
      end;
    finally
      InternetCloseHandle(hInet);
    end;
  end;
end;

WebPostData('My UserAgent', 'localhost', '/delphitest.php', 'test=testvalue');

Обратите внимание, что в функции HttpSendRequest необходимо передать заголовок и данные POST, разделённые символами перевода строки (#13#10).

Заключение

При работе с WinInet важно правильно использовать функции и параметры, которые они принимают. Следование инструкциям и примерам кода поможет избежать распространённых ошибок и обеспечит корректную отправку HTTP POST запросов из Delphi 2010.

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

Статья о том, как отправлять HTTP POST запросы в Delphi 2010 с использованием компонентов WinInet, включая общие ошибки и примеры корректного кода.

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

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

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