晓
晓风月
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;
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;