Brauche Hilfe bei XML-Datei

[hoika]

Hallo,
wie wäre es, einfach ne TStringList zu nehmen ?


Heiko

[verkouter]

Nein, ich muss mit den XML Knoten arbeiten, weil bei einem 2. Messgerät der Aufbau, der XML anders aufgebaut ist(andere Version), der Knoten aber gleich heißt.

[vagtler]

Wie sehen denn Deine Versuche aus? Oder möchtest Du eine fertige Lösung? Dann wäre "Jobs" vielleicht die richtige Kategorie.

[BUG]

Zitat von vagtler:

Oder möchtest Du eine fertige Lösung? Dann wäre "Jobs" vielleicht die richtige Kategorie.

Das wirkt vielleicht doch etwas schroff auf jemand, der nur auf der Suche nach einem XML-Tutorial ist.

Es ist bei XML meist eine gute Idee, nicht per Hand darin rumzufummeln. Wenn du mit MSXML Probleme hast, findest du im Forum auch noch andere Alternativen.

[verkouter]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
 var
  xmlDoc : IXMLDocument;
begin
if opendialog1.Execute then
begin
  xmlDoc := newXMLDocument;
  xmlDoc.LoadFromFile(opendialog1.FileName);
  xmlDoc.Active := true;
  edit1.Text:=xmlDoc.DocumentElement.ChildNodes.FindNode('Config').ChildNodes['Name1'].Attributes['value'];
end;
end;

Bekomme immer eine Fehlermeldung "Variante des Typs(Null) konnte nicht in Typ (Olestr) konvertiert werden.

[DeddyH]

Hier einmal eine Langversion:

Delphi-Quellcode:

uses XMLDoc, XMLIntf;

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IXMLDocument;
  Node: IXMLNode;
  Name1: string;
begin
  Name1 := '';
  Doc := TXMLDocument.Create(nil);
  Doc.LoadFromFile(...); //Dateiname hier einsetzen
  Doc.Active := true;
  Node := Doc.DocumentElement.ChildNodes.FindNode('Config');
  while Assigned(Node) do
    begin
      if Node.HasAttribute('name') then
        if Node.Attributes['name'] = 'Name1' then
          if Node.HasAttribute('value') then
            begin
              Name1 := Node.Attributes['value'];
              break;
            end;
      Node := Node.NextSibling;
    end;
  ShowMessage(Name1);
end;

[verkouter]

Danke, hat funktioniert.
Da wäre ich nie daraufgekommen.
Also ist "name) und "value" ein Attribut von "Config" ???