twebbrowser Bild per Dateiname suchen und anklicken

[Blumi]

Hi zusammen

Wie ist es möglich ein Element im TWebBrowser per Dateiname zu finden?

Und das es nachher möglich ist auch noch darauf zu klicken?
(Element.click)

Mfg.

[toms]

Hallo Blumi,

Durchlaufe alle Bilder im TWebbrowser, ermittle die URL und überprüfe, ob die URL den Dateinamen enthält.

Beispiel:

Delphi-Quellcode:

uses
  MSHTML;

function WB_ClickImgByFileName(WB: TWebbrowser; ImgFileName: string): Boolean;
// Hinweis: Funktioniert nicht, falls sich das Bild in einem Frame befindet
var
  iImgCounter: Word;
  sImgHref: string;
  iHtmlDoc: IHtmlDocument2;
begin
  Result := False;
  iHtmlDoc := WB.Document as IHtmlDocument2;
  // Durchlaufe alle alle Bilder im TWebbrowser
  for iImgCounter := 0 to WB.OleObject.Document.Images.Length - 1 do
  begin
    // URL des Bildes[iImgCounter] ermitteln
    sImgHref := (iHtmlDoc.Images.Item(iImgCounter, 0) as IHTMLImgElement).Href;
    // Dateiname des Bildes[iImgCounter] überprüfen
    if Pos(ImgFileName, sImgHref) <> 0 then
    begin
      try
        // Click aufrufen
        ((iHtmlDoc.Images.Item(iImgCounter, 0) as IHTMLImgElement) as IHTMLElement).Click;
        Result := True;
      except
        // Ein Fehler ist aufgetreten
      end;
    end;
  end;
end;

Beispielaufruf:

ClickImgByFileName(Webbrowser1, meinbildxyz.gif);

[Blumi]

Das Bild wird gar nicht erst gefunden.
Gibt es eine Möglichkeit auch in der Datei noch zu suchen, die per JavaScript eingebunden wird?
Das Bild wird per JavaScript eingebunden. Wenn ich aber im Browser auf Eigenschaften klicke wird mir der Dateiname ja trotzdem angezeigt klar.
Aber im Quelltext der HTML Datei ist dieses Bild dann trotzdem nicht vorhanden!

Wie geht man dort vor?

[toms]

Zitat von Blumi:

Das Bild wird gar nicht erst gefunden.
Gibt es eine Möglichkeit auch in der Datei noch zu suchen, die per JavaScript eingebunden wird?
Das Bild wird per JavaScript eingebunden. Wenn ich aber im Browser auf Eigenschaften klicke wird mir der Dateiname ja trotzdem angezeigt klar.
Aber im Quelltext der HTML Datei ist dieses Bild dann trotzdem nicht vorhanden!

Diese Infos wären schon in der Anfangsfrage nützlich gewesen.
Handelt es sich um ein Captcha? Dann habe ich leider keine Lösung.

[Blumi]

Zitat von toms:

Diese Infos wären schon in der Anfangsfrage nützlich gewesen.
Handelt es sich um ein Captcha? Dann habe ich leider keine Lösung.

Tut mir leid.
Aber es handelt sich nicht um ein Captcha!
Ich will ja auf das Bild klicken

[marabu]

Moin,

wenn der Dateiname des zu ladendend Image sich nur in JS-Code finden lässt, dann ist es wahrscheinlich effektiver den Image-Link über seine absolute oder relative Position im DOM zu lokalisieren, zu einem Zeitpunkt in dem das Image fest im DOM verankert ist. Absolut, wenn möglich. Relativ heißt, dass du ein benanntes Element in der Nähe (Parent, Sibling, ...) ausfindig machst, an dem du dich lang hangeln kannst. Wie du das Bild dann anklickst hat dir Tom ja schon gezeigt.

Grüße vom marabu

[BBoy]

Ist es möglich die Routine von toms so zu ändern das kein ie-fenster geöffnet wird, sondern die Seite im TWebBrowser angezeigt wird wenn geklickt wird?
Desweiteren müsste mein Programm nicht nach dem Dateinamen suchen sondern nach dem link der in href= steht, kann man die Routine dazu umschreiben?

ich sag schon mal ...danke für eure Hilfe.

[himitsu]

schau dir mal die Ereignisliste von TWebBrowser an, da gibt es Eines (ich glaub das fängt mit OnNew... an) für seite/Link soll in neuem Fenster geladen werden ... dieses fängst du n der Prozedur ab (entsprechenden Parameter setzen) und lädst die seite selber im TWebBrowser (die URL wird dir auch von der Prozedur geliefert)


so hatte ich das mal gemacht (k.A. ob es nicht doch irgendwo eine versteckte "nicht in neuem Fenster laden"-Option gibt)

[toms]

Zitat von BBoy:

Desweiteren müsste mein Programm nicht nach dem Dateinamen suchen sondern nach dem link der in href= steht, kann man die Routine dazu umschreiben?

Das macht es doch

Delphi-Quellcode:

// URL des Bildes[iImgCounter] ermitteln 
    sImgHref := (iHtmlDoc.Images.Item(iImgCounter, 0) as IHTMLImgElement).Href; 
    // Dateiname des Bildes[iImgCounter] überprüfen 
    if Pos(ImgFileName, sImgHref) <> 0 then

[BBoy]

Nein, Die Routine sucht im Pfad zum Bild und nicht in dem Link der aufgerufen wird wenn man es anklickt. Habe simghref in einem Memo auflisten lassen, da wurden wir die imagepfade angezeigt und nicht die Links.

Edit:
in diesem code wird das angezeigt was in img src=" steht und nicht was in href="
Hier mal ein Beispiel wie der html text aussieht:

[url="zeigefoto.php?nr=32"][img]http://www.meineseite.de/bilder/foto32.jpg[/img][/url]