取网页源文件遇到的问题,请交流(200分)

  • 主题发起人 主题发起人 晓风月
  • 开始时间 开始时间

晓风月

Unregistered / Unconfirmed
GUEST, unregistred user!
  我用IDHTTP取目标网页源文件,取出来源文件显示如下(其中的部分HTML):“ <title>惗拞宲丂傆傞偝偲堦斣両</title> ”;再用WebBrowser取出来源文件显示如下: “<TITLE>生中継 ふるさと一番!</TITLE> ”。

  WebBrowser取出来的是我想要的,问题就是通过IDHTTP怎样才能得到WebBrowser这样的效果?

附我写的IDHTTP取网页源文件的源代码:
var
IframeUrl: string;
ret:TStringStream;
SourceHtmlCode: WideString;
begin
IframeUrl := 'http://www.nhk.or.jp/furusato/koremade/koremade_ibaraki.html';
ret := TStringStream.Create('');
ret.Position := 0;

IdHTTP.HandleRedirects:=true;
IdHTTP.Request.ContentType:= 'application/x-www-form-urlencoded';
IdHTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)';
IdHTTP.Request.SetHeaders;

IdHTTP.Host := 'www.nhk.or.jp';
IdHTTP.Port := 80;
IdHTTP.Connect(-1);
if IdHTTP.Connected then
begin
IdHTTP.Get(IframeUrl,ret);
SourceHtmlCode := ret.datastring;
TntRichEdit1.Lines.Text := SourceHtmlCode;
end
else
ShowMessage('未找到HTTP服务器');
ret.Free;
end;
 
是不是要设置编码类型啊
 
得到的字符串进行转换就可以了,
UTF8toAnsi试试..还有其它的转换函数自己去试试
 
来自:fghyxxe, 时间:2008-3-24 15:30:39, ID:3882362
得到的字符串进行转换就可以了,
UTF8toAnsi试试..还有其它的转换函数自己去试试

UTF8toAnsi这种方式是肯定不可行的,我还写过:
// UTF-8(BOM沾) -> SJIS
function UTFtoSJIS(UTFStr: string): string;
// UTF-8N -> SJIS
function UTFNtoSJIS(UTFStr: string): string;
// SJIS -> UTF-8(BOM沾)
function SJIStoUTF(Str: string): string;
// SJIS -> UTF-8N
function SJIStoUTFN(Str: string): string;
都不行
 
后退
顶部