Bild als Button in Webbrowser klicken !

[toms]

Hallo, falls die Webseite keine Frames enthält, sollte es mit folgender Funktion funktionieren:

Delphi-Quellcode:

procedure WB_ClickImage(WB: TWebbrowser; ImageSRC: string);
var
  iImagesCount: Word;
  Document: IHtmlDocument2;
  sHrefImage: string;
begin
  if Assigned(WB.Document) then
  begin
  // Schleife über alle Bilder im Webbrowser
  for iImagesCount := 0 to WB.OleObject.Document.Images.Length - 1 do
  begin
    Document := WB.Document as IHtmlDocument2;
    // Link URL ermitteln
    sHrefImage := (Document.Images.Item(iImagesCount, 0) as IHTMLImgElement).Href;
    // Dateiname des Bildes überprüfen
    if Pos(ImageSRC, sHrefImage) <> 0 then
    begin
      // Bild anklicken
      ((Document.Images.Item(iImagesCount, 0) as IHTMLImgElement) as IHTMLElement).Click;
    end;
  end;
 end;
end;

Aufruf:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  WB_ClickImage(Webbrowser1,'logo.gif');
end;