XML-Datenbindungs-Experte -> Knoten-ID

[stahli]

Hallo zusammen,

ich habe mir heute mal XML und den "Datenbindungs-Experten" von Delphi 2009 Prof angesehen.
XML als Datenspeicher scheint ja grundsätzlich doch sehr interessant zu sein.
Die vom Experten erzeugten Schnittstellen sind auch recht vielversprechend.

Jedoch habe ich bisher keine Möglichkeit gefunden, über eine eindeutige Text-ID direkt auf einen bestimmten Knoten zuzugreifen.
Ich meine etwa:

xml.Persons['ID="xyz123"'].Nachname

Gibt es so eine Möglichkeit?
Muss "ID" dann als Attribut oder Textknoten deklariert sein?
Oder kann man über die "Experten-Schnittstellen" nur durch die Subknoten iterieren?

Gibt es irgendwo ein Tutorial oder Beispiel zu diesem Thema?


Danke vorab!

PS: Video-Wunsch
Vielleicht wäre mal ein Video zu dem Thema nicht schlecht...
Das einzige, das ich gefunden habe geht auf einen ID-basierten Knoten-Zugriff nicht ein. Die Datenbank enthält zwar eine "uniqueID", die aber im Beispiel nicht benutzt wird.

[Mschmidt]

Hi,
meines Wissens nach geht das nur mit Iterationen.
:-mschmidt

[himitsu]

oder mal schauen wie man sowas in XPath wirklich angibt und es dann nochmal damit versuchen, falls man an dieser Stelle auch XPath nutzen kann/darf.

ChildNode mit Namen "test" und einem Attribut "id" mit "xyz123" im aktuellen Knoten suchen
xxx['test[@id="xyz123"]'] .

das selbe, nur den Knoten global im gesamten Dokument suchen
xxx['//test[@id="xyz123"]'] .


eventuell geht es ja so
xml.Persons['*[@id="xyz123"]'].Nachname

[stahli]

Hmm,

ich nutze IXMLNode, damit geht wohl kein XPath - oder?

folgende XML-Datei:

XML-Code:

<?xml version="1.0" encoding="UTF-8"?>
<Panels>
   <abc>123</abc>
   <Panel id="P1">
      <caption>"1"</caption>
      <left>0</left>
      <top>0</top>
   </Panel>
   <Panel id="P2">
      <caption>"2"</caption>
      <left>30</left>
      <top>30</top></Panel>
   <Panel id="P3">
      <caption>"3"</caption>
      <left>60</left>
      <top>60</top>
   </Panel>
</Panels>

und folgende Anweisungen:

Delphi-Quellcode:

      Memo1.Lines.Add(XMLDocument1.DocumentElement['abc']); // -> 123
      Memo1.Lines.Add(xml['abc']);                          // -> 123
      Memo1.Lines.Add(xml['*panel[@id="P1"]/caption']);     // -> Variante des Typs (NULL) konnte nicht in Typ (OleStr) konvertiert werden
      Memo1.Lines.Add(xml['panel/caption']);                // -> Variante des Typs (NULL) konnte nicht in Typ (OleStr) konvertiert werden
      Memo1.Lines.Add(xml['panel']);                        // -> Variante des Typs (NULL) konnte nicht in Typ (OleStr) konvertiert werden

XMLDocument1.DocumentElement entspricht bei mir der Variablen "xml".
Die Standardeigenschaft von xml (=IXMLNode) ist ChildValues.
Auf den direkten Eintrag "abc" kann ich zugreifen, nicht aber auf die Panel-Daten.

Also muss ich mich wohl entscheiden, ob ich durch die Schnittstellenobjekte iteriere oder auf den Experten verzichte und nur über eine XPath-fähige Komponente auf die XML-Datei zugreife...
Richtig?

[himitsu]

Irgednwo in IXMLNode und IXMLDocument wird vermutlich ein MSXML versteckt sein, allerdings weiß ich nicht, ob dieses direkt dahinter steckt und man dieses somit via XPath (MSXML kann das eigentlich) ansprechen kann
oder ob und wie da noch was zwischengeschaltet ist, welches eine Pfadangabe leider blockiert.

[stahli]

Ich habe mal auf die Schnelle einen Versuch gestartet, die von dem Experten erstellten Schnittstellen (die erstellte Unit) nutzen zu können.
Das erste Ergebnis, das passende "Objekt" anhand einer Id zu finden und darauf zuzugreifen, sieht ganz gut aus.
Ich muss das mal noch etwas sacken lassen, ob das auch für ein größeres Projekt taugt...

Delphi-Quellcode:

function FindXMLPanel(Id: String): IXMLPanelType;
var
  I: Integer;
begin
  Result := nil;
  for I := 0 to xml.Panel.Count - 1 do
  begin
    if xml.Panel[I].Id = Id then
    begin
      Result := xml.Panel[I];
      Break;
    end;
  end;
end;

procedure TForm1.PanelClick(Sender: TObject);
var
  Panel: TPanel;
  XMLPanel: IXMLPanelType;
begin
  Panel := Sender as TPanel;
  XMLPanel := FindXMLPanel('P' + IntToStr(Panel.Tag));
  if Assigned(XMLPanel) then
  begin
    XMLPanel.Caption := IntToStr(Random(10));
    XMLPanel.Left := Panel.Left;
    XMLPanel.Top := Panel.Top;
  end;
end;

procedure ... SetPanel(P: TPanel);
var
  XMLPanel: IXMLPanelType;
begin
  XMLPanel := FindXMLPanel('P' + IntToStr(P.Tag));
  if Assigned(XMLPanel) then
  begin
    P.Caption := XMLPanel.Caption;
    P.Left := XMLPanel.Left;
    P.Top := XMLPanel.Top;
  end;
end;