刚才问了一下如何得到webbrowser中的链接,那么如何得到链接文字呢?(50分)

  • 主题发起人 主题发起人 duckbill
  • 开始时间 开始时间
我做过一个,用的是Http get()
没用webbrowser控件,他消耗资源太多,还慢
置于连接,找herf不就行了吗[:)]
 
我是说链接文字,比如<a href'aaaaa'>某某某某某</a>
如何得到某某某某某?
 
是一页中的所有links吗?若是,可考虑使用MSHTML接口
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,mshtml,Buttons,Activex, Psock, NMHttp,olectrls, ComCtrls,
SHDocVw;

var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1 .Document as IHTMLDocument2;
all:=doc.Get_links;//doc.Links亦可
len:=all.length;
for i:=0 to len-1 do begin
item:=all.item(i,varempty);//EmpryParam亦可
memo1.lines.add(item.href);
end;
end;
 
http.get() 是会产生一个 http.body 和 http.head
但是还要自己做一个过程来找http.body中的链接,很麻烦
webbrowser 可以要用上面toli的方法找到链接
但是它会打网页打开显示出来,而且会跳出一些广告等新网页
速度慢不说,还不美观

有谁有一个能一口气搞的方法
关注!!!
 
后退
顶部