XML Datei anlegen

[Christian18]

Hallo,

ich möchte eine XML Datei auf meiner Festplatte legen. In der Hilfe hatte ich folgendes gefunden.

Delphi-Quellcode:

procedure TElementsShift.SavePositions();
  var Path: String;
      XMLCFG: TXMLDocument;
begin
  Path:=ExtractFilePath(Application.ExeName) + 'CFG\' + FForm.Name + '.cfg';

  XMLCFG:=TXMLDocument.Create(Path);
  try

  finally
    XMLCFG.Free();
  end;
end;

Das funktioniert leider nicht, es kommt der Fehler: Systemfehler -2146697210. Line: 0

Hat jemand ne Idee warum?

MfG Christian18

[jaenicke]

Kann es sein, dass die Datei direkt versucht wird zu laden? Denn das wäre für mich der Sinn einer Übergabe im Konstruktor oder was macht das?

Ich benutze das Interface IXmlDocument und habe damit keine Probleme. Ein Auszug aus einem Testprojekt:

Delphi-Quellcode:

var
  Test: IXMLDocument;
  TestNode: IXMLNode;
begin
  Test := NewXMLDocument();
  Test.Options := [doNodeAutoIndent];
  TestNode := Test.AddChild('test');
  TestNode.SetAttributeNS('xyz', 'namesp', 'valuexyz');
  TestNode.AddChild('ddd');
  Test.SaveToFile('test.xml');

Dafür musst du die Unit XmlIntf einbinden.

[Christian18]

Hallo,

und wo bekommt man dieses Interface her? Wenn ich dein code bei mir einfüge, sagt die IDE Undefinierter Bezeichner.

[jaenicke]

Zitat:

Zitat von jaenicke

Dafür musst du die Unit XmlIntf einbinden.

[Christian18]

ok, super funktioniert.

eine kurze frage noch.

diesen header erzeugt dein code:
<?xml version="1.0"?>

ich brauche aber diesen:
<?xml version="1.0" encoding="ISO-8859-1"?>

LG

[jaenicke]

Es gibt direkt die Eigenschaft Encoding (wie ich gerade schnell gesehen habe) ;-).

Delphi-Quellcode:

Test.Encoding := 'Whatever';

Das wird es wohl sein.

[Christian18]

super danke funktioniert.

[himitsu]

ansonsten beim Create den Dateinamen nicht angeben und erst zum Schluß mit .SaveToFile speichern

Delphi-Quellcode:

XMLCFG := TXMLDocument.Create(nil);
XMLCFG.Active     := True;
XMLCFG.Version    := '1.0';
XMLCFG.Encoding   := 'ISO-8859-1';
...
XMLCFG.SaveToFile(Dateiname);
XMLCFG.Free; // Free kann bei Verwendung von IXMLDocument
             // statt TXMLDocument, für XMLCFG, entfallen

[jaenicke]

Zitat:

Zitat von himitsu

ansonsten beim Create den Dateinamen nicht angeben

Also ist das so, das hatte ich ja vermutet, dass die Angabe des Dateinamens dort das Laden auslöst. (Wo die Datei ja noch nicht existiert.)

[sirius]

Zitat:

Zitat von himitsu

ansonsten beim Create den Dateinamen nicht angeben und erst zum Schluß mit .SaveToFile speichern

Delphi-Quellcode:

XMLCFG := TXMLDocument.Create(nil);
XMLCFG.Active     := True;
XMLCFG.Version    := '1.0';
XMLCFG.Encoding   := 'ISO-8859-1';
...
XMLCFG.SaveToFile(Dateiname);
XMLCFG.Free; // Free kann bei Verwendung von IXMLDocument,
             // statt TXMLDocument, für XMLCFG, entfallen

Und das funktioniert?