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:
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