DGL • Thema anzeigen - Erstellen von XML-Dateien mit "Bordmitteln"

Erstellen von XML-Dateien mit "Bordmitteln"

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

zoiX

Betreff des Beitrags: Erstellen von XML-Dateien mit "Bordmitteln"

Verfasst: Di Jan 26, 2010 23:15

DGL Member

Registriert: Mo Aug 31, 2009 13:19
Beiträge: 151

Hallo Leute,

wie an der Frequenz meiner Forenbeiträge erkennbar ist gehts im Moment bei mir schleppend - aber stetig voran. Ich hab vor einiger Zeit schon die Basis für ettliche Komponenten geschrieben, die sich selbst in .ini-Dateien schreiben. Das geht mit den Bordmitteln, die Delphi für Ini-Dateien mitliefert ja auch sehr gut. Mittlerweile hat sich bei mir das Problem aufgetan, dass die Verwaltung der Komponenten auf mehreren Ebenen stattfindet - und das spricht gegen die "eindimensionalen" .ini-Dateien und hat bei mir den Ausschlag gegeben, auf .xml umzusatteln.
Ich kann auch schon "handgeschriebene" .xml's auslesen. Meine Beispiel-xml gibts hier:

Code:

 
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Controls>
    <GUITest ClassName="TglGUIManager">
        <Children>
            <TglControl0 ClassName="TglControl">
                <Settings Bottom="0" Left="0" Height="0" Width="0" Texture="" Red="0" Green="0" Blue="0" Alpha="0" Visible="0"/>
                <Children>
                </Children>
            </TglControl0>
            <TglControl1 ClassName="TglControl">
                <Settings Bottom="0" Left="0" Height="0" Width="0" Texture="" Red="0" Green="0,25" Blue="0" Alpha="0" Visible="0"/>
                <Children>
                </Children>
            </TglControl1>
        </Children>
    </GUITest>
</Controls>
 

Nach dem Auslesen dieser Datei befindet sich im Speicher ein TglGUIManager namens "GUITest" und als dessen Unterkomponenten zwei TglControls namens "TglControl0" bzw. "TglControl1". Auch die Eigenschaften werden korrekt ausgelesen und via RTTI zugewiesen.

Wie der Threadtitel schon sagt ist mein Problem momentan der umgekehrte Weg, also von den Objekten im Speicher zur .xml-Datei.
Hierbei schaffe ich es, in eine bestehende .xml zu schreiben (wenn auch noch nichts von dem, was das Programm erzeugt an das erinnert, was "mustergültigerweise" rauskommen soll, aber das ist nicht das Problem dieses Threads), aber eine neue .xml zu erstellen scheitert kläglich.
Ich hab versucht mit TXMLDocument.LoadFromFile einfach eine Datei zu öffnen die nicht existiert, in der Hoffnung sie würde dann angelegt, aber das funktionierte schonmal nicht.
Nächster Gedankengang war, erstelle das Document mit TXMLDocument.Create, und wenn du am Ende mit TXMLDocument.SaveToFile speicherst wird die Datei wohl hoffentlich angelegt...hier der Code dazu:

Code:

 
Procedure TStreamableParent.WriteToXML(XMLOwner: TComponent; const Path: string);
var
  i:            Integer;
  XMLDocument:  TXMLDocument;
  XMLNode:      IXMLNode;
begin
XMLDocument := TXMLDocument.Create(XMLOwner);
XMLDocument.Filename := Path;
XMLDocument.Active := True;
XMLDocument.Encoding := 'UTF-8';
XMLDocument.StandAlone := 'yes';
XMLDocument.CreateNode('Controls');
XMLNode     := XMLDocument.DocumentElement.ChildNodes['Controls'];
 
try
  WriteToXML(XMLNode);
finally
  XMLDocument.SaveToFile;
  XMLDocument.Active := False;
  XMLDocument.Destroy;
end;
end;
 

In der Zeile unmittelbar nach der Aktivierung des Dokuments knallts mit 'Das angegebene Objekt konnte nicht gefunden werden. Linie 0'.
Was fehlt in meinem Code, bin ich völlig auf dem falschen Pfad - und das für mich wichtigste: Wer kann mir helfen?

Nach oben

i0n0s

Betreff des Beitrags: Re: Erstellen von XML-Dateien mit "Bordmitteln"

Verfasst: Mi Jan 27, 2010 01:24

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Er versucht aus Filename zu lesen.
Zumindest würde ich es so interpretieren:

Code:

  XMLDocument1.FileName := '';
  XMLDocument1.Active := True;
  XMLDocument1.Encoding := 'UTF-8';
  XMLDocument1.AddChild('Main');

XMLNode existiert übrigens nur wenn du in den Optionen AutoCreate an hast, denn der erste erstellte Node ist das DocumentElement.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

zoiX

Betreff des Beitrags: Re: Erstellen von XML-Dateien mit "Bordmitteln"

Verfasst: Mi Jan 27, 2010 10:17

DGL Member

Registriert: Mo Aug 31, 2009 13:19
Beiträge: 151

Das wars tatsächlich, so funktionierts:

Code:

 
Procedure TStreamableParent.WriteToXML(XMLOwner: TComponent; const Path: string);
var
  i:            Integer;
  XMLDocument:  TXMLDocument;
  XMLNode:      IXMLNode;
begin
XMLDocument := TXMLDocument.Create(XMLOwner);
XMLDocument.Filename := '';
XMLDocument.Active := True;
XMLDocument.Encoding := 'UTF-8';
XMLDocument.StandAlone := 'yes';
XMLDocument.AddChild('Controls');
XMLNode     := XMLDocument.DocumentElement.ChildNodes['Controls'];
 
try
  WriteToXML(XMLNode);
finally
  XMLDocument.SaveToFile(Path);
  XMLDocument.Active := False;
  XMLDocument.Destroy;
end;
end;
 

Jetzt muss ich nur noch den Dateiaufbau sortieren

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.