Delphi 获取Https网页内容的另外一种方法

Delphi 获取Https网页内容的另外一种方法，一般我们都是用indy获取，下面这个代码不是用indy获取

function GetWebPage(const Url: string): string;
var
  Session, HttpFile: HINTERNET;
  szSizeBuffer: Pointer;
  dwLengthSizeBuffer: DWord;
  dwReserved: DWord;
  dwFileSize: DWord;
  dwBytesRead: DWord;
  Contents: PChar;
begin
  Session := InternetOpen('', 0, niL, niL, 0);
  HttpFile := InternetOpenUrl(Session, PChar(Url), niL, 0, 0, 0);
  dwLengthSizeBuffer := 1024;
  HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved);
  GetMem(Contents, dwFileSize);
  InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);
  InternetCloseHandle(HttpFile);
  InternetCloseHandle(Session);
  Result := StrPas(Contents);
  FreeMem(Contents);
end;

 

不过这个函数执行获取到的内容，执行出来返回的结果都是乱码，应该是源网页是utf8编码问题

可以将接受到的原始东西存为文件，再用UE打开看看小蜜蜂论坛发帖机里面是什么就知道怎么搞了。
猜想一般是 utf8 的问题。

utf8toansi(iObject.N['errmsg'].AsString)
就是用utf8toansi函数转换，如果还是乱码应该不是utf8字符

来源：CSDN

作者：netyou

链接：https://blog.csdn.net/netyou/article/details/104197693