开篇:公司之前一直使用http协议进行交互(比如登录等功能),但是经常被爆安全性不高,所以准备改用https协议。百度了一下资料,其实使用IdHttp控件实现https交互的帖子并不少,鉴于这次成功实现了功能,在此总结分享给大家。
开发环境:XE2 + Indy10
https服务协议:使用Json格式交互参数
Delphi控件:TIdhttp,IdSSLIOHandlerSocketOpenSSL(原生控件)
关键DLL:libeay32.dll,ssleay32.dll
为了封装我自己的功能,控件是我自己创建自己释放的,下面列出主要代码。
首先,设置Idhttp控件的参数:
FIdHttp := TIdHTTP.Create(nil); IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); FIdHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL; FIdH