Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

XML Codes verschmelzen...Wie?

  Alt 26. Sep 2009, 19:51
Hallo,

ich habe die Suchfunktion betätigt, aber leider keine Hilfe gefunden.

Folgenden Code habe ich

Delphi-Quellcode:
<?xml version="1.0" encoding="UTF-8"?>
<GraphicsMessage>
  <Adress>
    <Machine_Ids>1</Machine_Ids>
  </Adress>
  <Command>
    <Command_type>LoadLayer</Command_type>
    <Command_layer>1</Command_layer>
    <Command_swf>compose.swf</Command_swf>
  </Command>
  <Command>
    <Command_type>FadeInLayer</Command_type>
    <Command_layer>1</Command_layer>
    <Command_frames>15</Command_frames>
  </Command>
  <TextData/>
</GraphicsMessage>
Der folgende Code soll in TextData als Child eingeführt werden. Ich habs mit
cmdNode := xmlDoc.DocumentElement.AddChild(compose); versucht, aber erhalte immer eine Exception. Wie kann mans machen?
Delphi-Quellcode:
<Compose>
   <object>
      <typ>TextField</typ>
      <name>nat1</name>
      <caption>GER</caption>
      <TextTyp>dynamic</TextTyp>
      <font>Verdana</font>
      <height>18</height>
      <width>150</width>
      <xpos>186</xpos>
      <ypos>472</ypos>
      <xscale>0.52</xscale>
      <yscale>0.52</yscale>
      <alpha>56</alpha>
      <color>#000000</color>
   </object>
   <object>
      <typ>TextField</typ>
      <name>nat2</name>
      <caption>FRA</caption>
      <TextTyp>dynamic</TextTyp>
      <font>Arial</font>
      <height>14</height>
      <width>150</width>
      <xpos>286</xpos>
      <ypos>472</ypos>
      <xscale>0.52</xscale>
      <yscale>0.52</yscale>
      <alpha>85</alpha>
      <color>#ffffff</color>
   </object>
</Compose>
Danke
Tom
  Mit Zitat antworten Zitat