HTML in TWebBrowser injizieren

[marabu]

Hallo ihr zwei,

das funktioniert nur solange, wie das übergebene markup nicht das size limit (1.024) für URLs sprengt. Sicherer ist es das Dokument direkt zu schreiben. Es gibt da viele Wege, aber der vom Quellcode her primitivste ist sicher der hier:

Delphi-Quellcode:

procedure LoadDocumentFromStrings(doc: OleVariant; s: TStrings; url: string = 'about:blank');
var
  i: Integer;
begin
  doc.Open(url, '_blank');
  doc.Clear;
  for i := 0 to Pred(s.Count) do
    doc.WriteLn(s[i]);
  doc.Close;
end;

Getippt und nicht getestet.

Grüße vom marabu