delphi 访问https webservices IdSSLIOHandlerSocketOpenSSL

[和如]

在连接 对方给的webservices 接口的时候，对方提供了一个.cer的证书文件（也给你私密钥），这个文件怎么导入到delphi里面 通过

iDhttp+IdSSLIOHandlerSocketOpenSSL 访问接口啊，之前没搞过这块，现在网上资料也少，只有这里发帖请教了

[和如]

没有人知道吗？

[和如]

晕，这个看来有难度哦

[和如]

好的，我马上试一下

[大肚肥肥]

function TCTCC_WebAPI_NBIOT.CreateIdHttp: TCustomIndyHttp;
var
  AIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := TCustomIndyHttp.Create(nil);
  Result.AllowCookies := True;
  Result.HandleRedirects := True; // 允许头转向
  Result.ReadTimeout := 5000; // 请求超时设置
  Result.ConnectTimeout := 15000;
  Result.Request.ContentType := 'application/json';
  Result.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)';
  Result.Request.Accept := '*/*';

  AIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  AIOHandler.SSLOptions.CertFile := 'CTCC.pem';          // 'my.crt';   // assign certificate
  AIOHandler.SSLOptions.KeyFile := 'CTCC_key.pem'; // 'my.key';   // assign private key
  AIOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2];

  Result.IOHandler := AIOHandler;
end;

indy要pem格式的证书，需要你自己转换下