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ß