如何用DELPHI做一个网页浏览器? 作个窗体,可以打开特定网页,并从网页中抓取表格数据.各位大侠能不能给出具体方法?谢谢!环境:delphi5,在3里面用一个http控件可以打开网页,5里不会了.另外如何读取html代码还请指教. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用WebBrowser 控件!取HTML代码:WebBrowser.Navigate('view-source:'+网址) 晕~DELPHI7的memos中就有一个现在的浏览器源码 WebBrowser 这是最简单的方法了, @!~~~ 使用internet控件页的TWebBrowser啊,然后使用WebBrowser1.Navigate('http://www.XXXXX.com');就可以访问网页了。访问html源文件程序function GetHtml(const WebBrowser:TWebBrowser): string;constBufSize = $10000;varSize: Int64;Stream: IStream;hHTMLText: HGLOBAL;psi: IPersistStreamInit;beginif not Assigned(WebBrowser.Document) then Exit;OleCheck(WebBrowser.Document.QueryInterface(IPersistStreamInit, psi));try//OleCheck(psi.GetSizeMax(Size));hHTMLText := GlobalAlloc(GPTR, BufSize);if 0 = hHTMLText then RaiseLastWin32Error;OleCheck(CreateStreamOnHGlobal(hHTMLText,True, Stream));tryOleCheck(psi.Save(Stream, False));Size := StrLen(PChar(hHTMLText));SetLength(Result, Size);CopyMemory(PChar(Result), Pointer(hHTMLText), Size);finallyStream := nil;end;finallypsi := nil;end;end; 就是啊 使用WEBBROWERS netbeui开发(netbios函数) delphi画布绘坐标图 大家进来给点意见............................................... 关于消息队列 请高手门看过来啊有关DELPHI当中解压缩的问题啊见人有分啊请各位高手发言啊 请教控件数组问题 我想打开一个工程时自动打开一些窗口,怎么办? 请问如何在按键中使得webbrowser中的内容翻页? 需求最好解决算法 请问如何获得当前机器的分辨率? 紧急救助!查询海量记录的问题!请大家帮帮忙! 关于menu的弱弱问题
取HTML代码:WebBrowser.Navigate('view-source:'+网址)
然后使用WebBrowser1.Navigate('http://www.XXXXX.com');
就可以访问网页了。访问html源文件程序function GetHtml(const WebBrowser:
TWebBrowser): string;
const
BufSize = $10000;
var
Size: Int64;
Stream: IStream;
hHTMLText: HGLOBAL;
psi: IPersistStreamInit;
begin
if not Assigned(WebBrowser.Document) then Exit;
OleCheck(WebBrowser.Document.QueryInterface
(IPersistStreamInit, psi));
try
//OleCheck(psi.GetSizeMax(Size));
hHTMLText := GlobalAlloc(GPTR, BufSize);
if 0 = hHTMLText then RaiseLastWin32Error;
OleCheck(CreateStreamOnHGlobal(hHTMLText,
True, Stream));
try
OleCheck(psi.Save(Stream, False));
Size := StrLen(PChar(hHTMLText));
SetLength(Result, Size);
CopyMemory(PChar(Result), Pointer(hHTMLText),
Size);
finally
Stream := nil;
end;
finally
psi := nil;
end;
end;
使用WEBBROWERS