如何使用WinInet api在Delphi中发送HTTP POST请求

program WinInetExample;

uses
  WinInet,
  SysUtils;

const
  URL = 'https://www.example.com/path/to/resource';
  POST_DATA = 'key1=value1&key2=value2';

var
  hInternet, hConnect, hRequest: HINTERNET;
  Buffer: array[0..1023] of Byte;
  BytesRead: DWORD;

begin
  try
    // 创建 Internet 句柄
    hInternet := InternetOpen('MyAppName', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if not Assigned(hInternet) then
      raise Exception.Create('Failed to create Internet handle');

    try
      // 创建会话句柄
      hConnect := InternetConnect(hInternet, 'www.example.com', INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
      if not Assigned(hConnect) then
        raise Exception.Create('Failed to create session handle');

      try
        // 创建请求句柄
        hRequest := HttpOpenRequest(hConnect, 'POST', 'path/to/resource', nil, nil, nil, INTERNET_FLAG_SECURE, 0);
        if not Assigned(hRequest) then
          raise Exception.Create('Failed to create request handle');

        try
          // 发送 HTTP POST 请求
          if not HttpSendRequest(hRequest, 'Content-Type: application/x-www-form-urlencoded', Length('Content-Type: application/x-www-form-urlencoded'), POST_DATA, Length(POST_DATA)) then
            raise Exception.Create('Failed to send HTTP POST request');

          // 读取服务器响应
          if not InternetReadFile(hRequest, Buffer, SizeOf(Buffer), BytesRead) then
            raise Exception.Create('Failed to read server response');

          // 处理服务器响应
          // ...

        finally
          // 关闭请求句柄
          InternetCloseHandle(hRequest);
        end;

      finally
        // 关闭会话句柄
        InternetCloseHandle(hConnect);
      end;

    finally
      // 关闭 Internet 句柄
      InternetCloseHandle(hInternet);
    end;

  except
    on E: Exception do
      Writeln(E.Message);
  end;
end.