TWebBrowser Klick in Frame simulieren

[Zacherl]

Hey,

ich möchte einen Klick im TWebBrowser auf einen bestimmten Link simulieren. Dazu habe ich hier einen Code gefunden:
http://www.delphipraxis.net/internal...ct.php?t=51024

Das Problem ist, dass dieser nicht funktioniert, wenn sich der Link in einem Frame der eigentlichen Seite befindet. Habe bisher nie wirklich mit dem WebBrowser gearbeitet und habe daher auch keine Idee, wie ich den Beispielcode umschreiben könnte.

Hat jemand nen Tipp für mich?

Viele Grüße
Zacherl

[Zacherl]

Okay habs rausgefunden:

Delphi-Quellcode:

var
  HTMLDocument2: IHTMLDocument2;
  Element: IHTMLElement;
  I: Integer;
  FrameIndex: OleVariant;
  FrameDispatch: IDispatch;
begin
  HTMLDocument2 := WebBrowser.Document as IHTMLDocument2;
  FrameIndex := 0;
  FrameDispatch := HTMLDocument2.Frames.Item(FrameIndex);
  HTMLDocument2 := (FrameDispatch as IHTMLWindow2).Document;
  for I := 0 to HTMLDocument2.Links.Length - 1 do
  begin
    Element := HTMLDocument2.Links.Item(I, 0) as IHTMLElement;
    if Masks.MatchesMask(Element.innerText, LinkText) then
    begin
      Result := True;
      Element.Click;
      Exit;
    end;
  end;
  Result := False;
end;