hml - можно и так, как предложено выше. Но лучше примерно так:


1 вариант

procedure ShowHTML(aText: string);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
CheckDocReady(WebBrowser);
HTMLDocument := WebBrowser.DefaultInterface.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := aText; // Here's your HTML string
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;

2 вариант


function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser1.DefaultInterface.Document as IPersistStreamInit).Load
(TStreamAdapter.Create(AStream));
end;


Если все-же нужно XML - то нужно перед єтим делать трансформацию. Примерно так:




procedure TFrameViewXMLNode.SetXMLNode(const Value: IXMLDOMNode);
var XmlDocument : IXMLDomDocument;
XslDocument : IXMLDomDocument;
sHTML:string;
stm:TMemoryStream;
iHtmlDoc:IHTMLDocument2;
iLoader:IPersistStreamInit;
begin



XslDocument := CoDomDocument.Create;

if assigned(Value) then XmlDocument := CreateXMLDocFromString(Value.xml);

if not assigned(XmlDocument) then begin

WB.Navigate('about:blank');
exit;

end;


XslDocument.load('res://msxml.dll/DEFAULTSS.xsl');

// Transform the XmlDocument to HTML using the stylesheet
sHTML:= XmlDocument.transformNode(XslDocument);


stm:=TMemoryStream.Create;
stm.Write(sHTML,length(sHTML));
stm.Seek(0,0);
iHtmlDoc:= WB.DefaultInterface.Document as IHTMLDocument2;
if not assigned(iHtmlDoc) then exit;


iHtmlDoc.QueryInterface(IPersistStreamInit,iloader);
if not assigned(iLoader) then exit;
iLoader.Load(TStreamAdapter.Create(stm));
stm.Free;

end;