...
XMLNodeCurr@1000001 : Automation "{F5078F18-C551-11D3-89B9-0000F81FE221} 3.0:{2933BF80-7B36-11D2-B20E-00C04F983E60}:'Microsoft XML, v3.0'.IXMLDOMNode";
XMLNewChild@1000000 : Automation "{F5078F18-C551-11D3-89B9-0000F81FE221} 3.0:{2933BF80-7B36-11D2-B20E-00C04F983E60}:'Microsoft XML, v3.0'.IXMLDOMNode";
ServerTempFileName@1000005 : Text[250];
BEGIN
CREATE(XMLDomDoc,TRUE,FALSE);
XMLDomDoc.loadXML('<?xml version="1.0" encoding="UTF-8"?><Document></Document>');
...
...
XMLNodeCurr@1000001 : Automation "{F5078F18-C551-11D3-89B9-0000F81FE221} 3.0:{2933BF80-7B36-11D2-B20E-00C04F983E60}:'Microsoft XML, v3.0'.IXMLDOMNode";
XMLNewChild@1000000 : Automation "{F5078F18-C551-11D3-89B9-0000F81FE221} 3.0:{2933BF80-7B36-11D2-B20E-00C04F983E60}:'Microsoft XML, v3.0'.IXMLDOMNode";
ServerTempFileName@1000005 : Text[250];
ClientTempFileName@1000004 : Text[250];
BEGIN
CREATE(XMLDomDoc,TRUE,FALSE);
XMLDomDoc.loadXML('<?xml version="1.0" encoding="UTF-8"?><Document></Document>');
...
...
IF ISSERVICETIER THEN BEGIN
ServerTempFileName := FileMgt.EnvironFileName('','xml');
XMLDomDoc.save(ServerTempFileName);
DOWNLOAD(ServerTempFileName,'','','XML (*.xml)|*.xml',ExportFileName);
END ELSE
XMLDomDoc.save(ExportFileName);
...
...
IF ISSERVICETIER THEN BEGIN
ServerTempFileName := FileMgt.EnvironFileName('','xml');
XMLDomDoc.save(ServerTempFileName);
ClientTempFileName := FileMgt.DownloadTempFile(ServerTempFileName);
COPY(ClientTempFileName,ExportFileName);
END ELSE
XMLDomDoc.save(ExportFileName);
...