ich schreibe mit diesem Code GraphML,
XML Dateien :
Delphi-Quellcode:
{ TGRAPHMLStreamWriter }
procedure TGRAPHMLStreamWriter.AddFooter;
begin
self.AddRaw('
</graphml>');
end;
procedure TGRAPHMLStreamWriter.AddHeader;
begin
self.AddRaw('
<?xml version="1.0" encoding="UTF-8"?> ');
self.AddRaw('
<graphml xmlns="http://graphml.graphdrawing.org/xmlns" ');
self.AddRaw('
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ');
self.AddRaw('
xsi:schemaLocation="http://graphml.graphdrawing.org/xmlns ');
self.AddRaw('
http://graphml.graphdrawing.org/xmlns/1.0/graphml.xsd"> ');
AddNewLine;
end;
Da ich bisher nur mit
DOM gearbeitet habe, hat mich der
SAX Ansatz auch sehr interessiert, darum habe ich den Code von Marabu auch gleich ausprobiert. Heute am Abend möchte das Einlesen mit
SAX ausprobieren. Aber was mir aufgefallen ist, dass du eigentlich die folgende Zeile
self.AddRaw('<?xml version="1.0" encoding="UTF-8"?> ');
nicht wirklich brauchst oder?
Die wird bei mir automatisch erzeugt, wenn ich den Marabu Code verwende. Außerdem, hast du dir den folgenden Codeschnipsel im selben verlinkten
Marabu Beitrag angeschaut?
Delphi-Quellcode:
begin
// ...
fn := '
c:\daten\dp\sax-demo.xml';
fs := TFileStream.Create(fn, fmCreate);
wrt := CoMXXMLWriter.Create;
cnth := wrt
as ISAXContentHandler;
wrt.output := TStreamAdapter.Create(fs, soReference)
as IStream;
cnth.startDocument;
dc.Serialize(cnth);
cnth.endDocument;
wrt.flush;
fs.Free;
// ...
end;
Hier zeigt der Marabu wie man anstatt von TMemo Feld das Ergebnis direkt in eine Datei umleiten kann. Damit spart man sich auch Probleme beim Konvertieren. Es funktionierte bei mir auf Anhieb.
Edit:
Ok, Asche auf mein Haupt
ich habe da wohl ein Blödsinn bzgl. UTF8 Formatierung erzählt. Automatisch wird bei mir UTF16 von
MSXML verwendet. Ich bleibe aber dabei, dass man die Codierung lieber dem
MSXML überlassen sollte statt selber reinzupfuschen. Mit folgenden Code kann man die Codierung beeinflussen:
Delphi-Quellcode:
begin
// ...
fn := '
c:\daten\dp\sax-demo.xml';
fs := TFileStream.Create(fn, fmCreate);
wrt := CoMXXMLWriter.Create;
cnth := wrt
as ISAXContentHandler;
wrt.output := TStreamAdapter.Create(fs, soReference)
as IStream;
wrt.encoding := '
utf-8';
// <-----------------standardmäßig geht er auf UTF-16
cnth.startDocument;
dc.Serialize(cnth);
cnth.endDocument;
wrt.flush;
fs.Free;
// ...
end;