Webseite nach String durchsuchen

[Little Bub]

Hi!
Ich will den Quelltext einer Website (TWebbrowser) nach einem bestimmten String durchsuchen.
Wie kann ich das machen?
(müsste auch noch wissen wie ich an den Quellcode komme)

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert einen möglichen Weg für das Abrufen des HTML-Textes:
<pre>
{ HTML-Inhalt in eine String-Variable auslesen }

procedure TForm1.ToolButtonGetHTMLClick(Sender: TObject);
var
aHTMLDoc : IHTMLDocument2;
aHTMLBody : IHTMLElement;
swHTMLText : WideString;
begin
if not VarIsEmpty(WebBrowser1.Document) then
begin
aHTMLDoc := WebBrowser1.Document as IHTMlDocument2;
aHTMLBody := aHTMLDoc.Get_body;
swHTMLText := aHTMLBody.outerHTML;
ShowMessage(swHTMLText);
end;
end;
</pre&gt

[André Mellenthin]

Hallo zusammen,<br>
<br>
kann es sein, dass die Komponente TWebbrowser nur dann korrekt<br> funktioniert wenn sie auf einem Formular liegt?<br>
<br>
Ich habe das Problem, dass ich in einem NT-Dienst die Rückgabe eines <br>PHP-Skriptes auswerten möchte. Hierbei steht mir natürlich kein<br> Formular zur Verfügung, weshalb ich die Komponente TWebbrowser zur <br>Laufzeit erzeuge. In diesem Fall wird allerdings das Event <br>OnDocumentComplete nicht ausgelöst.<br>
<br>
Hat irgendjemand eine Idee, woran das liegen könnte?<br>
<br>
Mfg,<br>
<br>
André Mellenthin<br&gt