如何在Delphi中实现SSL连接REDCap API服务器？

你的代码核心问题是POST参数传递方式错误，同时存在冗余设置和资源处理问题，以下是具体修正点：

1. 核心错误：POST参数位置错误 #

REDCap API要求token、content等参数是application/x-www-form-urlencoded格式的表单POST参数，但你把这些参数放到了请求头CustomHeaders中，完全不符合API要求。Curl的--data-urlencode对应Delphi中TIdHTTP.Post的TStringList参数，而非请求头。

2. 其他问题 #

• Params对象创建后未填充任何参数，导致发送空POST请求；
• 添加的verify_ssl等请求头是多余的，SSL验证是客户端本地逻辑，无需通过请求头传递；
• 创建TStringStream时未指定UTF-8编码，可能导致响应内容乱码；
• 资源释放顺序不合理：TIdSSLIOHandlerSocketOpenSSL创建时传入了idHTTP作为所有者，无需手动调用Free，idHTTP释放时会自动处理它。

修正后的完整代码 #

function TForm1.IdSSLIOHandlerSocketOpenSSL1VerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean;
begin
  // 调试时可保留提示，正式环境建议移除避免阻塞
  // ShowMessage('at IOhandler');                      
  Result := true; // 测试环境临时跳过证书验证，正式环境需严格验证
end;

procedure TForm1.idHTTP2BtnClick(Sender: TObject);
var
  Params    : TStringList;
  idHTTP    : TIdHTTP;
  SSL1      : TIdSSLIOHandlerSocketOpenSSL;
  status    : Integer;
  response  : TStringStream;
begin
  Params := TStringList.Create;
  try
    // 填充POST表单参数，对应Curl的--data-urlencode
    Params.Add('token=9A81268476645C4E5F03428B8AC3AA7B');
    Params.Add('content=record');
    Params.Add('action=export');
    Params.Add('format=csv');
    Params.Add('rawOrLabel=label');

    idHTTP := TIdHTTP.Create(nil);
    try
      SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(idHTTP); // 让idHTTP作为所有者，自动释放
      SSL1.SSLOptions.Mode := sslmClient;
      SSL1.SSLOptions.SSLVersions := [sslvTLSv1_2]; // 推荐仅启用TLS 1.2，符合现代安全标准
      SSL1.SSLOptions.VerifyMode := []; // 关闭证书验证（测试环境用）
      SSL1.OnVerifyPeer := IdSSLIOHandlerSocketOpenSSL1VerifyPeer;
      idHTTP.IOHandler := SSL1;

      idHTTP.ReadTimeout := 3000;
      idHTTP.ConnectTimeout := 3000;
      idHTTP.Request.BasicAuthentication := False;
      idHTTP.HandleRedirects := True;
      idHTTP.Intercept := IdLogFile1;
      IdLogFile1.Active := True;

      // 重置请求头，移除冗余自定义头
      idHTTP.Request.CustomHeaders.Clear;
      idHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
      idHTTP.Request.Charset := 'utf-8';
      idHTTP.HTTPOptions := [hoKeepOrigProtocol, hoForceEncodeParams];

      // 创建响应流时指定UTF-8编码，避免乱码
      response := TStringStream.Create('', TEncoding.UTF8);
      try
        idHTTP.Post('https://bbmc.ouhsc.edu/redcap/api/', Params, response);
        response.Position := 0; // 重置流指针到开头，以便读取内容

        // 显示响应内容和状态
        memo1.Lines.Clear;
        memo1.Lines.Add('响应内容:');
        memo1.Lines.Add(response.DataString);
        memo1.Lines.Add('');
        memo1.Lines.Add(idHTTP.ResponseText);
        memo1.Lines.Add('');
        status := idHTTP.ResponseCode;
        memo1.Lines.Add('响应码: ' + IntToStr(status));
      finally
        response.Free;
      end;
    finally
      idHTTP.Free; // 自动释放SSL1
    end;
  finally
    Params.Free;
  end;
end;

额外注意事项 #

• 正式环境证书验证：测试环境可跳过证书验证，正式连接内部REDCap服务器时，建议启用证书验证以保障通信安全；
• OpenSSL库依赖：Delphi XE7的TIdSSLIOHandlerSocketOpenSSL需要对应版本的OpenSSL动态库支持，需确保库文件放在程序运行目录或系统路径中；
• API参数校验：确保参数值符合REDCap API的规范要求，比如format、rawOrLabel的可选取值范围。

内容的提问来源于stack exchange，提问作者Mr Gee