DELPHI-idhttp-UTF-8编码乱码解决


本文整理自网络,侵删。

 
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 合并文本行的函数

Delphi writeln 写入一行文本

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi用代码实现注册ocx和dll

Delphi length 统计指定字符串的长度(即个数)

Delphi 动态修改显示器分辨率

Delphi从路径取得文件名的简易方法

Delphi 如何判断某一窗口最大化

Delphi中url的编码与解码,即urlencode的使用

Delphi unigui 安装和配置hyperserver

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...