HTML-Komponente

[hansklok]

Du benötigs die TWebbrowser Komponente, die importierst du über Kompoente->ActiveX importieren, Dann gibst du folgenden Quelltext ein:

Delphi-Quellcode:

[b]uses[/b]
ActiveX

...
var
  sl: TStringList;
  ms: TMemoryStream;
BEGIN
        WebBrowser1.Navigate('about:blank');
        while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
                Application.ProcessMessages;

        if Assigned(WebBrowser1.Document) then
        begin
                sl := TStringList.Create;
                try
                        ms := TMemoryStream.Create;
                        try
                                sl.Text := Memo1.Text;
                                sl.SaveToStream(ms);
                                ms.Seek(0, 0);
                                (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
                        finally
                                ms.Free;
                        end;
                finally
                        sl.Free;
                end;
        end;
end;

Funktioniert wunderbar!