當(dāng)前位置：
首頁 >
delphi调用https
發(fā)布時(shí)間：2023/12/9
36
豆豆
生活随笔
收集整理的這篇文章主要介紹了
delphi调用https
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
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這兩個(gè)動(dòng)態(tài)鏈接庫放到exe同級目錄下即可。
libeay32.dll和ssleay32.dll下載
總結(jié)
以上是生活随笔為你收集整理的delphi调用https的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 前端学习（2682）：重读vue电商网站
- 下一篇： PADS2007无模命令与快捷键