XML-Datenbindungsexperte und Präfix

[Keldorn]

Hallo,

*push*

Ich habe stundenlang noch weitergesucht, aber irgendwie nix passendes gefunden. Meistens bezieht sich alles aufs IXMLDocument2, nicht aufs IXMLDocument/TXMLDocument.

hier wird z.B. noch gezeigt, das man den erstellten Codes des XML-Datenbindungs-experten noch abändern soll.
Würde in meinem Fall nicht funktionieren, da der Praefix dann vor jedem Knoten steht, das mag die andere Seite nicht. Außerdem möchte ich das nicht unbedingt, würde man die xsd mal erneut importieren, wären ja alle Änderungen wieder weg und ich wüßte nicht, wie ich das sicher dokumentieren sollte.

Ist es wirklich die Lösung (?), daß man mit Stringreplace solange die XML """anpaßt""" bis es von der Gegenseite (Präfix zu Rootnode hinzufügen) oder von Delphi (also Prafix vor Rootnode weg) selbst, gelesen werden kann? Das kommt mir so schmutzig und umständlich vor ...

meine Lösung sieht aktuell so aus:

Delphi-Quellcode:

Function Func_XML_KnotenPraefixHinzufuegen(const QuellXML,Praefix,KnotenName:string):string;
//Fügt einen Präfix (inklusive Doppelpunkt, z.B. "reg:" vor den Nodenamen hinzu
  begin
    result:=QuellXML;
    result:=StringReplace(result,
                          '<'+KnotenName,
                          '<'+Praefix+':'+KnotenName,
                          [rfIgnoreCase,rfReplaceAll]);
    result:=StringReplace(result,
                          '</'+KnotenName,
                          '</'+Praefix+':'+KnotenName,
                          [rfIgnoreCase,rfReplaceAll]);
  end;

procedure Proc_XML_PraefixWurzelknotenHinzufuegen(XMLDocument:IXMLDocument;const Praefix:string);
Var NodeName:string;
begin
  if not(XMLDocument.Active) then
    XMLDocument.Active:=true;
  if XMLDocument.DocumentElement<>Nil then
    begin
      //Wurzelknoten auslesen
      NodeName:=XMLDocument.DocumentElement.NodeName;
      XMLDocument.XML.Text:=Func_XML_KnotenPraefixHinzufuegen(XMLDocument.XML.Text,
                                                              Praefix,
                                                              NodeName);
    end;
end;

procedure Proc_XML_PraefixWurzelknotenEntfernen(XMLDocument:IXMLDocument);
//Dient dazu, den Präfix "req" bei z.B. "req:TrackingRequest" zu entfernen
Var NodeName,NodeNameOhnePraefix:string;
begin
  if not(XMLDocument.Active) then
    XMLDocument.Active:=true;
  if XMLDocument.DocumentElement<>Nil then
    begin
      //Wurzelknoten auslesen
      NodeName:=XMLDocument.DocumentElement.NodeName;
      if pos(':',NodeName)>0 then
        begin
          NodeNameOhnePraefix:=NodeName;
          delete(NodeNameOhnePraefix,1,pos(':',NodeName));

          XMLDocument.XML.Text:=StringReplace(XMLDocument.XML.text,
                                NodeName,
                                NodeNameOhnePraefix,
                                [rfIgnoreCase,rfReplaceAll]);
        end;
    end;
end;

z.B. Aufruf beim Laden:

Delphi-Quellcode:

Var XmlTrackingResponse: IXMLTrackingResponse;

  //...
  FXMLDocument.XML.text:=response;
  Proc_XML_PraefixWurzelknotenEntfernen(FXMLDocument);
  XmlTrackingResponse := GetTrackingResponse(FXMLDocument);

Gruß Frank