Hallo!
Wenn man im IE eine
xml Datei oeffnet, wird sie "speziell (wie codefolding)" angezeigt.
Weiss jemand, wie man einen
XML-String in einem TWebbrowser genau so anzeigt?
Folgendes zeigt den string nicht ala codefolding an:
Delphi-Quellcode:
procedure WB_LoadXml(WebBrowser: TWebBrowser; XmlText:
string);
var
V, vDocument, vMIMEType, vXML: OleVariant;
begin
//Stop any actions - this is important!
WebBrowser.Stop;
// Grab the document
V := WebBrowser.document;
// Now get the script's document (like a JavaScript document)
vDocument := V.script.document;
// IE 4.0 only deals with text/html on a consistent basis
vMIMEType := '
text/xml';
// You can use any xml content you want here
vXML := XmlText;
// Re-open the page for writing
vDocument.Open(vMIMEType);
// Clear the existing content (or not)
vDocument.Clear;
// Write our XML
vDocument.
Write(vXML);
// Closing the document sends the page to the browser
vDocument.Close;
end;