本文整理自网络,侵删。
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 xe7 android通过配置实现splash功能
Delphi中initialization和finalization
Delphi 10.2 新特性之―tfdbatchmovejsonwriter
更多相关阅读请进入《Delphi》频道 >>