procedure writeHTML(WebInfo:TWebBrowser;text:String);
var
HTMLDoc: IHTMLDocument2;
v:Variant;
begin
HTMLDoc := WebInfo.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := text; // Here's your HTML string
HTMLDoc.clear;
HTMLDoc.Write(PSafeArray(TVarData(v).VArray));
HTMLDoc.Close;
end;
|