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:

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

[himitsu]

Ganz im Ernst, für sowas nimmt man keinen rießigen WebBrowser.

Stichwort: Indy und Co.

[Webo]

Neben der Indy-Komponente wäre die UrlMon.pas eine weitere Möglichkeit, die html Seite einfach temporär runterzuladen. Dann brauchst du keine weiteren Komponenten. Schau mal hier: http://www.delphi-treff.de/tipps/net...herunterladen/

Denn, wie himitsu schon sagt: Den TWebBrowser brauchst du in diesem Fall gar nicht

[p80286]

Hallo Nanoflo
so sollte es funktionieren:

Delphi-Quellcode:

function WEB2Memo(memo:tmemo):boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  s: string;
begin
  result:=false;
  if not(form1.webbrowser1.Busy) and (form1.webbrowser1.readystate=readystate_complete)then begin
    ps := form1.WebBrowser1.Document as IPersistStreamInit;
    s := '';
    ss := TStringStream.Create(s);
    try
      sa := TStreamAdapter.Create(ss, soReference) as IStream;
      ps.Save(sa, True);
      memo.text:='';
      memo.lines.Add(ss.Datastring);
      result:=true;
    finally
      ss.Free;
    end;
  end;
......
end;

Gruß
K-H

[nanoflo]

Zitat von Webo:

Neben der Indy-Komponente wäre die UrlMon.pas eine weitere Möglichkeit, die html Seite einfach temporär runterzuladen. Dann brauchst du keine weiteren Komponenten. Schau mal hier: http://www.delphi-treff.de/tipps/net...herunterladen/

Denn, wie himitsu schon sagt: Den TWebBrowser brauchst du in diesem Fall gar nicht

Das hört sich ja schon sehr gut an, allerdings funktioniert es bei mir leider nicht. Ich habe die Indys (version 9) heruntergeladen und (hoffentlich) auch richtig installiert, delphi meldet jedoch nach wie vor noch:
[Error] Project1.pas(242): Undeclared identifier: 'idHTTP1'

mein code:
Memo1.Text:=idHTTP1.Get('http://wer.weis.was.php'); Was mache ich falsch?

[himitsu]

Hast du auch diese Komponente eingebunden/erstellt?

[nanoflo]

ich habe die batch datei ausgeführt, die extrahierten dateien hab ich ich das delphi verzeichniss kopiert und dann bei delphi unter tools-environment options-library den ordner pfad hinzugefugt und dann die indy70.dpk ausgeführt (habe delphi 7se)

[p80286]

So sollte es eigentlich funktionieren:

Delphi-Quellcode:

implementation
uses idhttp;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIdHTTP: TIdHTTP;
  HTMLCode: string;
begin
  MyIdHTTP := TIdHTTP.Create(form1);
try
  HTMLCode := MyIdHTTP.Get('http:................');
finally
  FreeAndNil(MyIdHTTP);
end;
  Memo1.Text:=HTMLCode;
end;

Gruß
K-H

[himitsu]

Ja, wo soll dann also idHTTP1 herkommen?

Die Komponente mußt du also auch noch erstellen (oder eben eine, mit diesem Namen, auf die Form gezogen haben)

[Webo]

Wobei ich dir zum "auf die Form ziehen" rate, dann kann man das wenigstens "anfassen", da es dann auch im Objektinspektor gelistet ist ...