AMX NETLINX PROGRAMMING LANGUAGE - Page 176

Reserved Identifiers
160
NetLinx Programming Language Reference Guide
Keywords & Run-Time Library Functions (Cont.)
VARIABLE_TO_XML
(Cont.)
DEFINE_EVENT
BUTTON_EVENT[TP,1] / /Convert And Save
{
PUSH:
{
// Convert To Binary
lPos = 1
slReturn = VARIABLE_TO_STRING(MyAlbumStruct, sBinaryString,
lPos)
SEND_STRING 0,"’POSITION=’,ITOA(lPos),’ – Result =
‘,ITOA(slReturn)"
// Convert To XML
lPos = 1
slReturn = VARIABLE_TO_XML(MyAlbumStruct, sXMLString, lPos,
0)
SEND_STRING 0,"’POSITION=’,ITOA(lPos),’ – Result =
‘,ITOA(slReturn)"
// Save Structure to Disk - Binary
slFile = FILE_OPEN(‘BinaryEncode.xml’, 2)
slReturn = FILE_WRITE(slFile, sBinaryString,
LENGTH_STRING(sBinaryString))
slReturn = FILE_CLOSE(slFile)
// Save Structure To Disk – XML
slFile = FILE_OPEN(‘xmlEncode.xml’, 2)
slReturn = FILE_WRITE(slFile, sXMLString,
LENGTH_STRING(sXMLString))
slReturn = FILE_CLOSE(slFile)
}
RELEASE:
{
}
}
BUTTON_EVENT[TP,2] // Read and Decode
{
PUSH:
{
// Read Binary File
slFile = FILE_OPEN(‘BinaryEncode.xml’,1)
slResult = FILE_READ(slFile, sBinaryString,
MAX_LENGTH_STRING(sBinaryString)
slResult = FILE_CLOSE (slFile)
// Read XML File
slFile = FILE_OPEN(‘XMLEncode.xml’,1)
slResult = FILE_READ(slFile, sXMLString,
MAX_LENGTH_STRING(sXMLString))
slResult = FILE_CLOSE (slFile)
}