link klicken im twebbrowser simulieren?

[Tomski]

Hallo Leute,

ich hol diesen uralten Schinken nach vorne, da ich doch tatsächlich diese kleine Routine sehr gut brauchen konnte, sie funzt noch heute Top. Wer also sowas brauchen kann, dem hab ichs unten auf EmbeddedWB umgeschrieben...

WbClickLink(EmbeddedWB1,'Text der hinter dem Link steht'); //Öffnet den Link
WbGetLink(EmbeddedWB1,'Text der hinter dem Link steht',LinkURL); //Liefert in der var LinkURL den Link zurück

Function WbClickLink(WebBrowser: TEmbeddedWB; const LinkText: string): Boolean;
var
HTMLDocument2: IHTMLDocument2;
Element: IHTMLElement;
I: Integer;
DivString : String;
begin
Try
Result := false;
HTMLDocument2 := WebBrowser.GetDocument as IHTMLDocument2;
For I := 0 To HTMLDocument2.Links.Length - 1 do begin
Element := HTMLDocument2.Links.Item(I,0) as IHTMLElement;
If Element.GetAttribute('innerText',0) = LinkText Then begin
Element.Click; Result := true; Exit;
end;
end;
Except
Exit;
end;
end;

Function WbGetLink(WebBrowser: TEmbeddedWB; const LinkText: string; var LinkURL: string): Boolean;
var
HTMLDocument2: IHTMLDocument2;
Element: IHTMLElement;
I: Integer;
DivString : String;
begin
Try
Result := false;
HTMLDocument2 := WebBrowser.GetDocument as IHTMLDocument2;
For I := 0 To HTMLDocument2.Links.Length - 1 do begin
Element := HTMLDocument2.Links.Item(I,0) as IHTMLElement;
If Element.GetAttribute('innerText',0) = LinkText Then begin
LinkURL := Element.toString;
Result := true; Exit;
end;
end;
Except
Exit;
end;
end;

Vielleicht nützt es ja jemandem...