link klicken im twebbrowser simulieren?

[TheMiller]

Joa... im Prinzip schon. Aber mit den RegExpr. kann man sich eine ganze Menge an Quelltext sparen. Sieht auf den ersten Blick zumindest so aus. Fraglich ist halt, ob du den Quelltext als einen einheitlichen Text "vorgelegt" bekommst.

So nach dem Motto:

Memo1.Text:=Webbrowser.Document.Source; Dann wäre es definitiv einfacher und weniger Code.... und viel flexibler!

[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...