获取http://www.xtzrc.cn/job_55764.html网页全是乱码,该如何处理

获取http://www.xtzrc.cn/job_55764.html网页全是乱码

Delphi(Pascal) code

function TForm1.GetWebPage_s(const Url: string): string;
var
  Session,
    HttpFile: HINTERNET;
  szSizeBuffer: Pointer;
  dwLengthSizeBuffer: DWord;
  dwReserved: DWord;
  dwFileSize: DWord;
  dwBytesRead: DWord;
  Contents: PChar;
begin
  szSizeBuffer := nil; //初始化
  Session := InternetOpen('Mozilla/4.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil,
    0);

  HttpFile := InternetOpenUrl(Session, PChar(Url), nil, 0, 0, 0);
  dwLengthSizeBuffer := 24;
  HttpQueryInfo(HttpFile, HTTP_QUERY_CONTENT_LENGTH, szSizeBuffer,
    dwLengthSizeBuffer, dwReserved);

  GetMem(Contents, dwFileSize);
  InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);

  InternetCloseHandle(HttpFile);
  InternetCloseHandle(Session);
  Result := StrPas(Contents);
  FreeMem(Contents);
end;

获取http://www.xtzrc.cn/job_55764.html网页源码是乱码不管什么网页都能通过这个函数读取出来不是乱码，麻烦各位兄弟们帮我们改一下。

------解决方案--------------------
两种原因，部分乱码是编码的原因，全部乱码就是压缩了
------解决方案--------------------
memo1.Text := UTF8Decode(IdHTTP1.Get('http://www.xtzrc.cn/job_55764.html'));

UTF-8编码，转换一下就OK了
------解决方案--------------------

------解决方案--------------------

获取http://www.xtzrc.cn/job_55764.html网页全是乱码,该如何处理

相关推荐