HTML Quelltext des aktuellen TWebBrowsers auslesen

[masters001]

Ich hab ein Problem:
Um zu analysieren ob eine aktion richtig ausgeführt wurde muss ich den Quelltext des aktuellen TWebbrowsers auslesen!
In einem anderen Beitrag habe ich schon eine Methode gelesen um den QT von einer bestimmten Site auszulesen

Code:

Memo1.Lines := IdHTTP1.Get( WebBrowser1.LocationURL );

Das funktioniert auch, aber ich denke das die Site hier dann erst vom IdHTTP1 meu aufgerufen wird und dann der QT ausgelesen.
In meinem Fall, gibt es aber für eine URL 2 Seiten die angezeigt werden können, ich denke das die durch ein PHP script erstellt werden, deshalb kann man diese Site nicht seperat aufrufen um den QT auszulesen, da dann die PArameter nicht übergeben werden!
Also muss ich den QT aus dem TWEbBrowser herauslesen nachdem die Aktion ausgeführt wurde!

Oder gibt es vielleicht eine möglichkeit zu Prüfen ob im TWebBrowser bestimmte Wörter stehen! Wie zum Beispiel die Suchfunktion beim IE Explorer!

Vielen Dank
masters001

[Darty]

Hi masters001

Also mit

Code:

QuellTextBody := NMHTTP1.Body;

Kannst Du den QuellText einlesen ..

mit

Code:

gefunden := pos('Suchwort', QuellTextBody);

kannst Du nach ein Wort suchen lassen ..

[masters001]

Das Problem ist nur:
Wie bekomm ich den QT aus dem TWebBrowser an das NMHTTP1 übergeben?

[Darty]

Ich müsste bei mir daheim mal nachschauen, da ich auf meiner Arbeit kein Delphi habe in moment. Ich hatte zu dem Thema auch ein Programm geschrieben und wenn ich mich erinnere konnte der Webbrowser kein QT auslesen sondern nur das Output ..

QT meinst du doch Quell Text oder ?

Also der Webbrowser kann da also nichts übergeben ausser das "Output", Du kannst ja im Hintergrund mit NMHTTP arbeiten. Oder was genau hast Du vor ?

[masters001]

Also mein Programm füllt eigentlich nur Websites aus, um sicherzugehen das kein Fehler aufgetreten ist möchte ich gerne die Web-site die nach dem ausfüllen und submitten des HTML Formulars erscheint analysieren.
Wenn man die Formulare auch mit NMHTTP ausfüllen kann ist das natürlich auch eine gute Lösunsung für mein Problem!
Vielleicht hat jemand nen link zu einem tut, was soetwas beschreibt?

masters001

[Darty]

Schon mal im Delphi Hilfe unter diesem Thema geschaut ?

Bzw nutzt mal Google ..

Nach dem Absenden, was möchtest Du analysieren ? Ob irgendwo im Quell Text der String "Error" oder ähnliches auftaucht ? Oder wie funzt Deine Überprüfung ?

[masters001]

Hi M.Knebel
Ich hab jetzt eine Möglichkeit gefunden den QT auszulesen!

Code:

       vHTML := OleVariant(WebBrowser2.Document).Script.Document.Body.InnerHTML;
       HTMLText:=vHTML;
       Memo1.clear;
       Memo1.text:=HTMLText;

Aber trotzdem vielen dank das du dich úm mein Problem gekümmert hast!
masters001

[Darty]

Wäre vielleicht ne FAQ Eintrag hier wert

[Daniel B]

Hallo,

Zitat von M.Knebel:

Wäre vielleicht ne FAQ Eintrag hier wert

Und warum trägst Du es nicht ein? Das steht jedem offen!

Grüsse, Daniel

[Darty]

Könnte es schon, aber ich dachte vielleicht möchte Masters001 sich damit verewigen Habe die Codes ja selber nicht getestet