Quelltext von Seite mittels WebBrowser <ERROR>

**nanoflo**

Hi Leute,

ich versuche ein Programm mit delphi zu schreiben welches beim Start automatisch checkt ob es noch aktuell ist (und dann ggf. ein update startet).
Ich habe nun eine php Seite welche z.b. die Zahl 10 anzeigt (keine header/body etc., als quelltext steht nur 10 dort).

Nun möchte ich dies in Delphi auslesen und weiterverarbeiten..ich habe mitlerweile schon dem WebBrowser von Delphi, welcher die Seite anzeigt, kann aber den Inhalt nicht weiter verwenden..

Jetz bin ich auf folgende Funktion gestoßen:

zusammenfalten · markieren

Delphi-Quellcode:

			function GetBrowserHtml(const webBrowser: TWebBrowser): String;

var

  strStream: TStringStream;

  adapter: IStream;

  browserStream: IPersistStreamInit;

begin

sleep(1000);

  strStream := TStringStream.Create('');

  try

    browserStream := webBrowser.Document as IPersistStreamInit;

    adapter := TStreamAdapter.Create(strStream,soReference);

    browserStream.Save(adapter,true);   //Problem (Zeile 12)

    result := strStream.DataString;

  finally

  end;

  strStream.Free();

end;

(Quelle:

Obtain the HTML from the WebBrowser DOM)

bei Zeile 12 streikt Delphi und ich bekomme folgende Debugger Exeption Notification:
Projekt Project1.exe raised exeption class ESccessViolation with message 'Access violation at adress 0045DFF9 in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

Ich weiß einfach nicht was ich falsch gemacht habe..
Bitte um Hilfe

Danke im Vorraus
Flo

Quelltext von Seite mittels WebBrowser <ERROR>

Quelltext von Seite mittels WebBrowser <ERROR>

Forumregeln