本文整理自网络,侵删。
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 getdrivetypea() 查看驱动器类型
Delphi tfilestream和tmemorystream分别读取、创建、合并文件
更多相关阅读请进入《Delphi》频道 >>