WebBrowser Quelltext mit ner Label anzeigen?

[Volker Z.]

Hallo,

Zitat:

allerdings läst sich das ganze nicht kompilieren

Kompilieren lässt sich das ganz sicher. Es wird Dir aber eine Access Violation Exception geworfen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:TStringList;
    s:string;
begin
  i:=TStringList.Create;
  WebBrowser1.Navigate('xyxyxyxyxy.net/1.txt');
  s:=WebBrowser1.OleObject.Document.Body.InnerHtml; // <-- hier kracht es, da noch kein Document existiert
  i.Add(s);
  Label1.Caption:=i[1];
  i.free;
end;

Du musst schon warten, bis das Dokument geladen ist (schau Dir in der OH noch TWebBrowser.OnDocumentComplete an). Folgendes sollte funktionieren

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  WebBrowser1.Navigate('xyxyxyxyxy.net/1.txt');
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  Label1.Caption := WebBrowser1.OleObject.Document.Body.InnerHtml
end;

Gruß