TWebBrowser $ XML

[toms]

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;

[marabu]

Das verwendete Stylesheet ist auf deinem Rechner unter dem MS spezifischen URL res://msxml.dll/DEFAULTSS.xsl gespeichert.

Grüße vom marabu

[toms]

Zitat von marabu:

Das verwendete Stylesheet ist auf deinem Rechner unter dem MS spezifischen URL res://msxml.dll/DEFAULTSS.xsl gespeichert.

Grüße vom marabu

Danke für den Hinweis, aber wie lässt sich nun der XML Inhalt anzeigen?

[marabu]

Da gibt es mehrere Wege nach Rom. Du könntest die Resource extrahieren und dein XML-Dokument mit msxsl transformieren. Du könntest das <xsl:stylesheet> Element in deinem XML-Dokument verwenden, aber dann muss der Client die Transformation durchführen. Oder du wirfst einen Blick auf meine Demo. Ich verwende die WebBrowser-Komponente und lade das Stylesheet direkt aus der MSXML.DLL.

marabu