CREATE(PageXMLFile,TRUE,TRUE); PageXMLFile.load('c:\Temp\ItemCard.xml'); XMLPageNodeList := PageXMLFile.selectNodes('/Objects/Page'); FOR z := 1 TO XMLPageNodeList.length DO BEGIN PageObject.INIT; // Yes I know, that I need to create a function for this ;) XMLCurrentNode := XMLPageNodeList.nextNode; XMLAttribute := XMLCurrentNode.selectSingleNode(STRSUBSTNO('@%1','ID')); EVALUATE(PageObject.ID,XMLAttribute.text); XMLAttribute := XMLCurrentNode.selectSingleNode(STRSUBSTNO('@%1','Name')); PageObject.Name := XMLAttribute.text; XMLAttribute := XMLCurrentNode.selectSingleNode(STRSUBSTNO('@%1','Date')); EVALUATE(DayNo,COPYSTR(XMLAttribute.text,9,2)); EVALUATE(MonthNo,COPYSTR(XMLAttribute.text,6,2)); EVALUATE(YearNo,COPYSTR(XMLAttribute.text,1,4)); PageObject.Date := DMY2DATE(DayNo,MonthNo,YearNo); //Need to deal with the date //XMLAttribute := XMLCurrentNode.selectSingleNode(STRSUBSTNO('@%1','Time')); //EVALUATE(PageObject.Time,XMLAttribute.text); XMLAttribute := XMLCurrentNode.selectSingleNode(STRSUBSTNO('@%1','VersionList')); PageObject."Version List" := XMLAttribute.text; IF NOT PageObject.INSERT THEN PageObject.MODIFY; XMLGroupNodeList := XMLCurrentNode.selectNodes('./Controls/ContentArea/Group'); [color=#BF0000]// // THIS is what I need to import into my blob! // XMLCodeNode := XMLCurrentNode.selectSingleNode('./Code');[/color] FOR j := 1 TO XMLGroupNodeList.length DO BEGIN XMLCurrentNode := XMLGroupNodeList.nextNode; XMLFieldNodeList := XMLCurrentNode.selectNodes('Field'); FOR i := 1 TO XMLFieldNodeList.length DO BEGIN XMLCurrentNode := XMLFieldNodeList.nextNode; XMLFieldPropertyNodeList := XMLCurrentNode.selectNodes('Properties'); //IF NOT CONFIRM(XMLCurrentNode.xml,FALSE) THEN // ERROR(''); //IF NOT CONFIRM(FORMAT(XMLCurrentNode.nodeName),FALSE) THEN // ERROR(''); PageObjectControl.INIT; PageObjectControl."Page ID" := PageObject.ID; FOR x := 1 TO XMLFieldPropertyNodeList.length DO BEGIN XMLCurrentNode := XMLFieldPropertyNodeList.nextNode; XMLFieldPropertiesNodeList := XMLCurrentNode.childNodes; FOR y := 1 TO XMLFieldPropertiesNodeList.length DO BEGIN XMLCurrentNode := XMLFieldPropertiesNodeList.nextNode; CASE XMLCurrentNode.nodeName OF 'ID' : EVALUATE(PageObjectControl.ID,XMLCurrentNode.text); 'SourceExpr' : PageObjectControl."Source Expression" := XMLCurrentNode.text; 'Visible' : BEGIN PageObjectControl."Visible Exists" := TRUE; PageObjectControl.Visible := XMLCurrentNode.text; END; 'HideValue' : BEGIN PageObjectControl."HideValue Exists" := TRUE; PageObjectControl.HideValue := XMLCurrentNode.text; END; 'Importance' : EVALUATE(PageObjectControl.Importance,XMLCurrentNode.text); END; END; IF NOT PageObjectControl.INSERT THEN PageObjectControl.MODIFY; END; END; END; END;
Comments
Nav, T-SQL.