Xml

[value is NULL]

so, bin jetzt glaub ich?! ein stück weiter:

Delphi-Quellcode:

uses
  SysUtils,
  xmldoc;

var
a : TXmlDocument;

begin
  try

          a := TXMLDocument.Create(nil);
          a.Active := True;
          a.LoadFromFile('C:\test.xml');

  except
          on e : exception do begin
          writeln(e.message);
          a.Destroy;
          halt(1);
          end;
  end;

end.

jetzt bekomme ich aber die Meldung: CoInitialize wurde nicht aufgerufen.

habe gelesen das ich das for das am anfang und am ende setzen muss. jedoch sagt er mir immer undeclared identifier...
Bin ich am richtigen weg oder am komplett falschen?

LG

[himitsu]

Nja, SimpleXML ist halt ein bissl "älter", obwohl ich jetzt nicht wüßte, warum es mit dieser Datei nicht klarkommen sollte.
Wobei die 1 für micht in Zeile 2 Zeichen 8 liegt.

PS: CoInitialize wurde nicht aufgerufen

Und dann ruft man Destroy eigentlich nicht direkt auf, sondern nutzt Free.

[value is NULL]

hm naja ich machs ja jetzt nicht mit SimpleXML sonder mit XMLDoc dh:

Delphi-Quellcode:

program test;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  xmldoc;

var
a : TXmlDocument;

begin
  try

          a := TXMLDocument.Create(nil);
          a.Active := True;
          a.LoadFromFile('C:\test.xml');

  except
          on e : exception do begin
          writeln(e.message);
          a.Free;
          halt(1);
          end;
  end;

end.

habe versucht das Coinitialize fast an jeder Stelle des codes zu platzieren, das will er aber niergends...
wo gehört das den hin?

LG

[DeddyH]

Versuch es einmal im Initialization-Abschnitt. Und Du gibst a nur im Falle einer Exception frei, das soll ja bestimmt nicht so, oder?

[value is NULL]

hm da liegt ja momentan mein problem, habe sowas bis dato noch nie benötigt und jetzt steh ich ziemlich an.
ausserdem war das dann ja noch nicht alles, schließlich will ich mir ja noch den wert 123 von param auslesen...

kann mir jemand helfen?

Delphi-Quellcode:

program test;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  xmldoc,
  xmlintf;

var
a : TXmlDocument;

begin
  try
          a := TXMLDocument.Create(nil);
          a.Active := True;
          a.LoadFromFile('C:\test.xml');
  except
          on e : exception do begin
          writeln(e.message);
          halt(1);
          a.Free;
          end;
  end;

  a.Free;
end.

[value is NULL]

so... ich glaube ich komme meiner sache näher... habe jetzt ActiveX hinzugefügt und siehe das funkt!

Delphi-Quellcode:

program test;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  xmldoc,
  xmlintf,
  activex;

var
a : TXmlDocument;

begin
  try
          CoInitialize(nil);
          a := TXMLDocument.Create(nil);
          a.Active := True;
          a.LoadFromFile('C:\test.xml');
  except
          on e : exception do begin
          writeln(e.message);
          a.Free;
          halt(1);
          end;
  end;

  a.Free;
  CoUninitialize;
end.

jetzt muss ich mir nur noch den Wert auslesen, hat da jemand ein Beispiel für mich?

[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;