获取http://www.xtzrc.cn/job_55764.html网页全是乱码 本帖最后由 yyy520 于 2011-10-28 19:50:25 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 字符原因吧,转unicode试试看,代码百度一大堆,我就不帮你查了 memo1.Text := UTF8Decode(IdHTTP1.Get('http://www.xtzrc.cn/job_55764.html'));UTF-8编码,转换一下就OK了 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; Memo1可能放在里面是乱码 保存文件不一定是的 我以前也出现过你可以用Utf8ToAnsi转下判断一下网页的编码最好 关于登陆问题 程序员职业发展三阶段 明天结婚与大家分享一下快乐 请问关于数据的插入问题 求:《Delphi6数据库设计思想与实践 》一书 出错提示信息是:为存储过程指定的参数太多。“给分数是动态的^_^” 谁知道?送高分! 在两张图片人像中,如何比较图片中的头像是否一致,脸的轮廓如何取下比较???在线!!!急!!! 请问怎样把opendailog(“打开文件”对话框)中选定的文件连同路径显示在edit控件里? 有谁知道下载DELPHI书籍的地方——顺便大家集中一下网上DELPHI书籍资源吧 delphi连接mysql的问题。100分!! 简单删除的问题
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;
你可以用Utf8ToAnsi转下判断一下网页的编码最好