delphi 访问https webservices IdSSLIOHandlerSocketOpenSSL

和如 2021-05-12 09:57:43
在连接 对方给的webservices 接口的时候,对方提供了一个.cer的证书文件(也给你私密钥),这个文件怎么导入到delphi里面 通过

iDhttp+IdSSLIOHandlerSocketOpenSSL 访问接口啊,之前没搞过这块,现在网上资料也少,只有这里发帖请教了
...全文
319 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
大肚肥肥 2021-05-17
  • 打赏
  • 举报
回复

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格式的证书,需要你自己转换下
和如 2021-05-17
  • 打赏
  • 举报
回复
好的,我马上试一下
和如 2021-05-14
  • 打赏
  • 举报
回复
晕,这个看来有难度哦
和如 2021-05-13
  • 打赏
  • 举报
回复
没有人知道吗?
发帖
网络通信/分布式开发

1588

社区成员

Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
帖子事件
创建了帖子
2021-05-12 09:57
社区公告
暂无公告