本文整理自网络,侵删。
uses IdHTTP, IdSSLOpenSSL;
function HttpsGet(const aURL, aContentFile: string): Boolean;var vIdHTTP: TIdHTTP; vSSL: TIdSSLIOHandlerSocket; vMemory: TMemoryStream;begin try vIdHTTP := TIdHTTP.Create(nil); vSSL := TIdSSLIOHandlerSocket.Create(nil); vMemory := TMemoryStream.Create; try vIdHTTP.IOHandler := vSSL; vSSL.SSLOptions.Method := sslvSSLv3; vIdHTTP.Get(aURL, vMemory); vMemory.SaveToFile(aContentFile); Result := True; finally vMemory.Free; vSSL.Free; vIdHTTP.Free; end; except Result := False; end;end; 相关阅读 >>
Delphi使用tclientdataset�r不携带midas.dll的方法
Delphi simple resource api replacement
Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式
Delphi 如何将bitmap位图与base64字符串相互转换
Delphi : tstringlist的find,indexof和sort
更多相关阅读请进入《Delphi》频道 >>