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

Question

本帖最后由 yyy520 于 2011-10-28 19:50:25 编辑

Answer 1

字符原因吧，转unicode试试看，代码百度一大堆，我就不帮你查了

Answer 2

memo1.Text := UTF8Decode(IdHTTP1.Get('http://www.xtzrc.cn/job_55764.html'));UTF-8编码，转换一下就OK了

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Memo1.Text :=Utf8ToAnsi(GetWebPage_s(Edit1.Text));
end;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;

Answer 4

Memo1可能放在里面是乱码 保存文件不一定是的 我以前也出现过
你可以用Utf8ToAnsi转下判断一下网页的编码最好