如何获得链接的值？？？(30分)

风月剑客 · 2003-05-09

有如下一段程序，可实现自动点击链接进入下一级网站
procedure TForm1.wbdocumentcomplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Links:IHTMLElementCollection;
Doc:IHTMLDocument2;
len:integer;
item

levariant;
urladd:string;
begin
Doc:=webbrowser1.document as IHtmlDocument2;
links:=Doc.links;
len:=links.length;
urladd:=links.toString;
if len>0 then
begin
Item:=links.item(1,varEmpty).;
item.click;
end;
label1.Caption :=links.toString;
end;

这是我在一个软件上看到的，但上面没有详细说明，如何得到links的值，我想如果链接的值和
我们要求的值相同执行，不同则罢如何实现？？？

风月剑客 · 2003-05-11

yusher · 2003-05-11

item.href 即链接的值

风月剑客 · 2003-05-12

问题有二：
艾保真，您好！

一、如果按上面所述，我们其不要得到当前页面的链接数？？执行这样一个循环？
FOR I：=0 TO LINKS。CONTER-1 DO
BEGIN
………………
………………
Item:=links.item(I,varEmpty);
………………
………………
END；

但当前页面的链接总数该如何求得？

二、如网页《A HERF=# ONCLICK=”JAVASCRIPT:WINDOW。OPEN（‘UPIMG/INDEX。ASP’，SEARCH，STATUS=NO，……）“中，得到的URLADD的值应该是“#”号，如果要得到
WINDOWS.OPEN(）内的地址该如何去做？？？？

joioy · 2003-05-12

哈，这可以从字符串中取嘛。
用Pos,copy两个函数就OK了。我确认。

realLearning · 2003-05-12

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if URL<>'I Want URL' then
Cancel := True;
end;

wcy12td · 2003-05-12

to joioy,:
那个字符串从哪里获取呢 ?

风月剑客 · 2003-05-12

是啊，我也不知道是哪个字符串？？？

另外，我也不明白REALLEARNING所写的那段代码是什么意思？？

程序的意思我明白：当地址为不是我们需要的地址时就放弃，但具体到我这个程序里好象

不是那么一回事吧！

LINKS没有CONTER这个参数的。只是我这么想而已

风月剑客 · 2003-05-13

如何获得链接的值？？？(30分)

风月剑客

Unregistered / Unconfirmed

风月剑客

Unregistered / Unconfirmed

yusher

Unregistered / Unconfirmed

风月剑客

Unregistered / Unconfirmed

joioy

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

wcy12td

Unregistered / Unconfirmed

风月剑客

Unregistered / Unconfirmed

风月剑客

Unregistered / Unconfirmed

Similar threads