本文整理自网络,侵删。
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 测试字符串写入类: tstringwriter
更多相关阅读请进入《Delphi》频道 >>