Converting XML Documents into Data Packets

From RAD Studio
Jump to: navigation, search

Go Up to Using XML in Database Applications Index


Once you have created a transformation file that indicates how to transform an XML document into a data packet, you can create data packets for any XML document that conforms to the schema used in the transformation. These data packets can then be assigned to a client dataset and saved to a file so that they form the basis of a file-based database application.

The Xml.XmlTransform.TXMLTransform component transforms an XML document into a data packet according to the mapping in a transformation file.

Note: You can also use TXMLTransform to convert a data packet that appears in XML format into an arbitrary XML document.

Specifying the source XML document

There are three ways to specify the source XML document:

  • If the source document is an .xml file on disk, you can use the SourceXmlFile property.
  • If the source document is an in-memory string of XML, you can use the SourceXml property.
  • If you have an IDOMDocument interface for the source document, you can use the SourceXmlDocument property.

TXMLTransform checks these properties in the order listed above. That is, it first checks for a file name in the SourceXmlFile property. Only if SourceXmlFile is an empty string does it check the SourceXml property. Only if SourceXml is an empty string does it then check the SourceXmlDocument property.

Specifying the transformation

There are two ways to specify the transformation that converts the XML document into a data packet:

  • Set the TransformationFile property to indicate a transformation file that was created using xmlmapper.exe.
  • Set the TransformationDocument property if you have an IDOMDocument interface for the transformation.

TXMLTransform checks these properties in the order listed above. That is, it first checks for a file name in the TransformationFile property. Only if TransformationFile is an empty string does it check the TransformationDocument property.

Obtaining the resulting data packet

To cause TXMLTransform to perform its transformation and generate a data packet, you need only read the Data property. For example, the following code uses an XML document and transformation file to generate a data packet, which is then assigned to a client dataset:

 XMLTransform1.SourceXMLFile := 'CustomerDocument.xml';
 XMLTransform1.TransformationFile := 'CustXMLToCustTable.xtr';
 ClientDataSet1.XMLData := XMLTransform1.Data;
 XMLTransform1->SourceXMLFile = "CustomerDocument.xml";
 XMLTransform1->TransformationFile = "CustXMLToCustTable.xtr";
 ClientDataSet1->XMLData = XMLTransform1->Data;

Converting user-defined nodes

When you define a transformation using xmlmapper.exe, you can specify that some of the nodes in the XML document are "user-defined." User-defined nodes are nodes for which you want to provide the transformation in code rather than relying on a straightforward node-value-to-field-value translation.

You can provide the code to translate user-defined nodes using the Xml.XmlTransform.TXMLTransform.OnTranslate event. The OnTranslate event handler is called every time the TXMLTransform component encounters a user-defined node in the XML document. In the OnTranslate event handler, you can read the source document and specify the resulting value for the field in the data packet.

For example, the following OnTranslate event handler converts a node in the XML document with the following form

<FullName>
   <Title> </Title>
   <FirstName> </FirstName>
   <LastName> </LastName>
</FullName>

into a single field value:

 procedure TForm1.XMLTransform1Translate(Sender: TObject; Id: String; SrcNode: IDOMNode;
   var Value: String; DestNode: IDOMNode);
 var
   CurNode: IDOMNode;
 begin
   if Id = 'FullName' then
   begin
     Value = '';
     if SrcNode.hasChildNodes then
     begin
       CurNode := SrcNode.firstChild;
       Value := Value + CurNode.nodeValue;
       while CurNode <> SrcNode.lastChild do
       begin
         CurNode := CurNode.nextSibling;
         Value := Value + ' ';
         Value := Value + CurNode.nodeValue;
       end;
     end;
   end;
 end;
 void __fastcall TForm1::XMLTransform1Translate(TObject *Sender, AnsiString Id,
 _di_IDOMNode SrcNode, AnsiString &Value, _di_IDOMNode DestNode)
 {
   if (Id == "FullName")
   {
     Value = "";
     if (SrcNode.hasChildNodes)
     {
       _di_IXMLDOMNode CurNode = SrcNode.firstChild;
       Value = SrcValue + AnsiString(CurNode.nodeValue);
       while (CurNode != SrcNode.lastChild)
       {
         CurNode = CurNode.nextSibling;
         Value = Value + AnsiString(" ");
         Value = Value + AnsiString(CurNode.nodeValue);
       }
     }
   }
 }

See Also