DELPHI用WebBrowser编程-找出所有LINK对象对应的Href
WebBrowser编程-找出所有LINK对象对应的Href
在模拟器编程中，我们常要找出所有要操作的LINK对象。如果是我们需要的，就对它进行操作。在一个网页中作为判断的依据或其它用途
单个frames的LINK对象
var
Count:Integer;
LinkList:TStringList;
begin
LinkList:=TStringList.Create;
Try
for Count :=0 to WebBrowser.OleObject.Document.Links.Count -1 do
LinkList.Add(WebBrowser.OleObject.Document.Links.Item(Count).Href);
{以下对取得的LINK对象内容HREF做相应操作，如判断、Navigate等}
finally
LinkList.Free;
end;
end;
多个frames的LINK对象，FrameIndex为Frame的序号
var
Count:Integer;
LinkList:TStringList;
begin
LinkList:=TStringList.Create;
Try
for Count =0 to WebBrowser.OleObject.Document.documentelement.document.frames.item(FrameIndex).Document.Links.Count -1 do
LinkList.Add(WebBrowser.OleObject.Document.documentelement.document.frames.item(FrameIndex).Document.Links.Item(Count).Href);
{以下对取得的LINK对象内容HREF做相应操作，如判断、Navigate等}
finally
LinkList.Free;
end;
end;
