本文整理自网络,侵删。
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 在rxrichedit中插入图片的完美解决方法
Delphi中url的编码与解码,即urlencode的使用
Delphi unigui 安装和配置hyperserver
更多相关阅读请进入《Delphi》频道 >>