Hallo
Ich habe eine
XML - Datei mit folgendem Inhalt:
<?
xml version="1.0" encoding="windows-1252" ?>
<ControlStatements xmlns="http://dev.docuware.com/Jobs/Control" xmlns
si="http://www.w3.org/2001/XMLSchema-instance">
<Page>
<Field dbName="BEARBEITUNGSSTATUS_" type="Text" value="Intelligent Indexing"/>
<Field dbName="BARCODE" type="Text" value=""/>
<Field dbName="DOK__TYP_" type="Text" value="ER"/>
<Field dbName="LOTUSNOTESNR" type="Text" value="0130A6C8F35BEF70C12587A6003907D1"/>
<Field dbName="ANHANGNAME" type="Text" value="body.html"/>
<Field dbName="BEMERKUNG" type="Text" value=""/>
<Field dbName="MANDANT" type="Numeric" culture="de-DE" value="11"/>
</Page>
</ControlStatements>
Im Testprojekt versuche ich leider erfolglos an die Werte zu kommen:
Delphi-Quellcode:
procedure TFrmMain.AfterConstruction;
Var
LRoot: IXMLNode;
LNode: IXMLNode;
I: Integer;
s: string;
begin
inherited;
XMLDoc.FileName := '0130A6C8F35BEF70C12587A6003907D1_0000000000_ER_body.dwcontrol';
XMLDoc.Active := True;
LRoot := XMLDoc.DocumentElement.ChildNodes.Nodes['Page'];
for I := 0 to LRoot.ChildNodes.Count - 1 do
begin
LNode := LRoot.ChildNodes.Nodes[I];
// wie komme ich an die Werte?
s := LNode.NodeName;
s := s;
end;
end;
In der Schleife bekomme ich auch 7 Nodes mit jeweils NodeName 'Field' und NodeType ntElement.
Wie kann ich jetzt in der Zeile
<Field dbName="DOK__TYP_" type="Text" value="ER"/>
den Value auf "BT" ändern?
Vielen Dank
Frank Reim