Twebbrowser: alle daten

[jokerfacehro]

Delphi-Quellcode:

uses mshtml;

function readBrowser;
var tr: IHTMLTxtRange;
    s:string;
begin
 if (NOT Form1.WebBrowser1.Busy)then begin
   Form3.ListView1.Clear;
   Form1.ComboBox1.Text:='ServerList';
   tr := ((Form1.WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
   s:=tr.Text;
//tr.PasteHTML('text'); zum einfügen von text
end;
end;

in s steht der text