如何为TNetHTTPClient配置PFX文件中的客户端证书？

要直接从PFX文件加载证书并配置给TNetHTTPClient，无需依赖系统证书存储，核心是利用TCertificate类加载PFX文件，再将证书添加到组件的证书列表中，具体实现如下：

方法一：直接预加载证书 #

在发起SOAP请求前，提前将PFX证书加载到TNetHTTPClient的ClientCertificates列表，请求时会自动使用该证书：

uses
  System.Security.Certificates, System.Net.HttpClient;

procedure LoadPFXCertificateAndCallSOAP;
var
  LCert: TCertificate;
begin
  // 加载PFX文件，第二个参数为PFX的保护密码
  LCert := TCertificate.Create('C:\your\path\certificate.pfx', 'PFX_PASSWORD');
  try
    // 将证书添加到NetHTTPClient的客户端证书集合
    NetHTTPClient1.ClientCertificates.Add(LCert);
    
    // 执行SOAP调用逻辑
    // ... 此处编写你的SOAP请求代码 ...
  except
    // 若未成功添加到集合，需手动释放证书
    LCert.Free;
    raise;
  end;
end;

方法二：在证书请求事件中动态加载 #

如果需要在触发NeedClientCertificate事件时才加载PFX证书，可在事件内完成加载并指定索引：

uses
  System.Security.Certificates, System.Net.HttpClient;

procedure TForm1.NetHTTPClientNeedClientCertificate(const Sender: TObject;
  const ARequest: TURLRequest; const ACertificateList: TCertificateList;
  var AnIndex: Integer);
var
  LCert: TCertificate;
begin
  try
    // 加载PFX证书
    LCert := TCertificate.Create('C:\your\path\certificate.pfx', 'PFX_PASSWORD');
    // 将证书加入可用证书列表
    ACertificateList.Add(LCert);
    // 指定使用刚添加的证书（索引为列表最后一位）
    AnIndex := ACertificateList.Count - 1;
  except
    // 加载失败时释放证书并抛出异常
    if Assigned(LCert) then
      LCert.Free;
    raise;
  end;
end;

注意事项 #

• 确保PFX文件包含私钥，否则无法用于客户端身份认证；
• 密码需与PFX文件设置的保护密码完全匹配；
• 添加到ClientCertificates或ACertificateList的证书，由列表负责生命周期管理，无需手动释放；未添加成功的证书需手动调用Free释放；
• 部分旧版本Delphi可能需调整单元引用，优先使用System.Security.Certificates单元的TCertificate类，避免直接调用底层API。

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