delphi xe7調(diào)用https接口

1.代碼示例

unit AW.Net.Globals;interfaceusesIdCookieManager;varCookieManager:TIdCookieManager;implementationinitializationCookieManager:=TIdCookieManager.Create(nil);finalizationCookieManager.Free;end. unit AW.Net.Func;interfaceusesIdHTTP,IdCookieManager,AW.Net.Globals,IdSSLOpenSSL;constYI_CONST_IDHTTP_READTIMEOUT = 20000;YI_CONST_IDHTTP_USERAGENT = 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT6.0)';function Yi_GetIdHttp(HasCookies:Boolean=true;CManager:TIdCookieManager=nil):TIdHttp;implementationfunction Yi_GetIdHttp(HasCookies:Boolean=true;CManager:TIdCookieManager=nil):TIdHttp; varIdHTTP:TIdHTTP;vSSL:TIdSSLIOHandlerSocketOpenSSL; beginIdHTTP:=TIdHTTP.Create(nil);vSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);if HasCookies thenbeginif CManager=nil then IdHTTP.CookieManager:=CookieManagerelse IdHTTP.CookieManager:=CManager;end;IdHTTP.IOHandler:=vSSL;IdHTTP.Request.UserAgent:=YI_CONST_IDHTTP_USERAGENT;IdHTTP.ReadTimeout:=YI_CONST_IDHTTP_READTIMEOUT;IdHTTP.HandleRedirects:=True;IdHTTP.ProtocolVersion:=pv1_1;IdHTTP.HTTPOptions:=IdHTTP.HTTPOptions+[hoKeepOrigProtocol];IdHTTP.Request.CacheControl:='no-cache';IdHTTP.Request.AcceptLanguage:='zh-cn';// IdHTTP.Request.AcceptEncoding:='gzip, deflate';IdHTTP.Request.Accept:='*/*';IdHTTP.Request.Connection:='Keep-Alive';Result:=IdHTTP; end;end.

2.所需dll

下載libeay32.dll和ssleay32.dll這兩個動態(tài)鏈接庫放到exe同級目錄下即可。
libeay32.dll和ssleay32.dll下載

總結(jié)

以上是生活随笔為你收集整理的delphi调用https的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。