Xml

[samso]

mit der XML Datei:

Code:

<config>
   <virtualdrive1>
      <maxsize>700</maxsize>
      <validfrom>YYYY-mm-dd hh:mm:ss.999</validfrom>
      <validto>YYYY-mm-dd hh:mm:ss.999</validto>
      <example>
          <ex1>example</ex1>
          <ex2>example</ex2>
      </example>
      <share>
      <shareuser>user</shareuser>
      <sharepw>sharepw</sharepw>
      <sharepath>sharepath</sharepath>
      </share>
   </virtualdrive1>
</config>

Delphi-Quellcode:

  SysUtils,
  ActiveX,
  XMLIntf,
  xmldoc;

var
  myConfig: IXMLDocument;
begin
  try
    CoInitialize(nil);
    myConfig := LoadXmlDocument('Config.xml');
    WriteLn(myConfig.DocumentElement.ChildNodes.First.ChildNodes.First.Text);
    ReadLn;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;

[value is NULL]

das funktioniert! unglaublich! xD

ein Problem habe ich jedoch noch:

wenn ich versuche den Shareuser auszulesen bekomme ich folgende Exception:

Access violation at address 00416243 in module 'test.exe'. Read of address 00000000

Code ist wie folgt:

Delphi-Quellcode:

try
                      CoInitialize(nil);
                      config := LoadXMLDocument('C:\test.xml');
                      filesize := config.DocumentElement.ChildNodes.First.ChildNodes.First.Text;
                      shareuser := config.DocumentElement.ChildNodes.FindNode('shareuser').Text;
except
                      on e : exception do begin
                      writeln(e.message);
                      end;
                  end;

wobei filesize und shareuser ein string sind....
muss ich davor ein Release machen oder irgendwas in der art?

[Kalakmul]

Wenn ich es richtig sehe, versuchst Du "shareuser" in der obersten Knotenebene der Hierarchie zu finden, wo es aber nur "virtualdrive" gibt. Das ist wahrscheinlich die Ursache für die Fehlermeldung.

Du müsstest erst in einer Knotenvariable z. B. "ANode: IXMLNode;" den Knoten speichern, unterhalb dessen Du suchen willst, und dann mit "ANode.FindNode('shareuser')" weitersuchen.

Hier: http://wiki.freepascal.org/XML_Tutorial habe ich ein ganz gutes Tutorial gefunden, das Dir vielleicht weiterhilft.

Hier: http://delphi.about.com/od/interneti...rss_read_3.htm findest Du auch ein wenig Quellcode, der die Verwendung von Nodes verdeutlicht (auch wenn es inhaltlich um RSS-Feeds geht).

Ich hoffe, dass Dir das weiterhelfen kann.

[value is NULL]

Hi

vielen dank, bin jetzt ein großes Stück weiter!!

und zwar habe ich folgendes XML:

Code:

<config>
   <virtualdrive1>
      <maxsize>700</maxsize>
      <validfrom>YYYY-mm-dd hh:mm:ss.999</validfrom>
      <validto>YYYY-mm-dd hh:mm:ss.999</validto>
      <devs>
          <dev1>example</dev1>
          <dev2>example</dev2>
      </devs>
      <share>
     <shareuser>user</shareuser>
     <sharepw>sharepw</sharepw>
     <sharepath>sharepath</sharepath>
      </share>
   </virtualdrive1>
</config>

das auslesen der nodes wie validto, validfrom, maxsize usw ist kein problem allerdings habe ich ein problem bie den devs!
Ich muss praktisch abfragen, wieviele devs gibt es und wie sind die Werte...

habe es schon mit:

devs := config.DocumentElement.ChildNodes.First.ChildNodes.FindNode('devs').Text; aber irgendwie komm ich nicht klar...
hat jemand einen tipp bzw. ein beispiel für mich?

DANKE!

LG

[value is NULL]

keiner ne idee ?

[generic]

Neben den Try / Except gibt es auch Try / Finally.

Delphi-Quellcode:

// Speicher holen
a:=TEinObjekt.Create;
try

  try
    tuWasMitException();
  except
    hierAufraeumenWennFehler();
  end;

  
finally
  // Speicher aber immer! freigeben
  a.free;
end;

btw. zum Abfragen von XML biete sich auch XPath an.

[Kalakmul]

Hallo,

mit dem Befehl "Count" kannst Du die Anzahl der Unterknoten ermitteln:

Anzahl := SubNode.ChildNodes.Count; Dann kannst Du mittels Schleife die einzelnen Einträge auslesen:

Delphi-Quellcode:

for Nr := 1 to Anzahl do
begin
  Eintrag[Nr] := VarToStr(SubNode.ChildValues['Dev' + IntToStr(Nr)]));
end;

[samso]

Delphi-Quellcode:

program Test1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  XMLIntf,
  XMLDoc;

var
  i: Integer;
  myConfig: IXMLDocument;
  myNode: IXMLNode;
  myNodeList: IXMLNodeList;

begin
  try
    CoInitialize(nil);
    myConfig := LoadXmlDocument('Config.xml');
    myNode := myConfig.DocumentElement.ChildNodes.First.ChildNodes.FindNode('devs');
    if myNode<>nil
    then begin
      myNodeList := myNode.ChildNodes;
      for i := 0 to myNodeList.Count - 1 do
        WriteLn(myNodeList[i].NodeName, ': ',  myNodeList[i].NodeValue);
    end;
    ReadLn;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

[value is NULL]

Hi leutz

also ich bin meinem Ziel schon ziemlich nahe, ich kann mir jetzt nahezu ALLES auslesen, bis auf eins:

Code:

<virtualdrive id="1">
       NODES
       NODES
       NODES
       NODES
</virtualdrive>

jetzt kann ich aber mehrere blöcke haben wie zB:

Code:

<virtualdrive id="1">
       NODES
       NODES
       NODES
       NODES
</virtualdrive>   
<virtualdrive id="2">
       NODES
       NODES
       NODES
       NODES
</virtualdrive>

dh. ich muss praktisch wieder eine zähler schleife machen und die ID abfragen
? wie würde das in ungefähr funktionieren?

[himitsu]

Schau dir doch mal XPath an.

http://de.wikipedia.org/wiki/XPath
http://www.w3.org/TR/xpath/
http://www.w3schools.com/xpath/default.asp
...
XPath