如何调用WebBrowser,不要页面显示,只要页面源码。谢谢(20分)

  • 主题发起人 主题发起人 study2003
  • 开始时间 开始时间
S

study2003

Unregistered / Unconfirmed
GUEST, unregistred user!
只想用WebBrowser
如何调用WebBrowser,不要页面显示,只要页面源码。谢谢
 
height=0就OK了[:D]
 
要得到页面源代码,不是通过webbrowser把,是通过
IHTMLDocument2,IHTMLElement等接口实现的。
 
直接用Socket或者http。
 
如果知道网址URL不用TWebBrowser就可以(不包含框架)
代码如下!
NMHTTP1.InputFileMode:=TRUE;
NMHTTP1.Body:='c:/MySource.txt';
NMHTTP1.Get(URL);//URL为你想看到的网页的网址!
 
设置WebBrowser为不可见就是了。
 
我觉得用http协议+winsock会比较好。我有这样的小实验程序。
 
有代理是怎么办呢
 
对阿,Indy的也是用Get获得的,Indy支持代理。
另外见到

来自:小雨哥, 时间:2003-2-22 4:49:00, ID:1637595
获取网页源代码的最简单办法,就是利用 WinInet 单元中的函数:
uses WinInet;
function GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);
end;
使用时,直接把收到的源代码显示出来:
Memo1.Text := GetWebPage('http://www.delphibbs.com/delphibbs/listq.asp');
哇,这个代码可以用,但没有初始化呀,怪,怎么就可以用了?

 
后退
顶部