Hallo Leidensgenossen
Ich möchte ein Funktion schreiben, die mir eine
XML Struktur erzeugt. Nach längerem Studium der
MSDN habe ich mich für den MXXMLWriter (
MSXML 4.0) entschieden. Leider bricht meine Funktion schon beim Anlegen des erstens Knoten (startElement) mit der
Exception "Falscher Parameter" ab.
Ich hoffe mir kann jemand helfen.
Hier mein Code:
function CreateTestXmlAsText: Widestring;
var
Name: Widestring;
NoValue: Widestring;
Writer: IMXWriter;
Attributes: IMXAttributes;
ContentHandler: IVBSAXContentHandler;
begin
Writer := CoMXXMLWriter40.Create;
Writer.byteOrderMark := True;
Writer.omitXMLDeclaration := False;
Writer.indent := True;
Writer.encoding := 'UTF-8';
ContentHandler := Writer as IVBSAXContentHandler;
Attributes := CoSAXAttributes.Create;
ContentHandler.startDocument;
Name := 'TestNode';
ContentHandler.startElement(NoValue, NoValue, Name, Attributes as IVBSAXAttributes);
ContentHandler.endElement(NoValue, NoValue, Name);
ContentHandler.endDocument;
Result := Writer.output;
end;
Schon mal Danke im voraus.