AMX NETLINX PROGRAMMING LANGUAGE Manual page 228

Encoding and Decoding: Binary and XML
DEFINE_EVENT
(* CONVERT AND SAVE *)
BUTTON_EVENT[dvTP,1]
{
FILE_WRITE(slFile,sBinaryString,LENGTH_STRING(sBinaryString))
RETURN=',ITOA(slReturn)"
RETURN=',ITOA(slReturn)"
RETURN=',ITOA(slReturn)"
RETURN=',ITOA(slReturn)"
}
}
(* READ AND DECODE *)
BUTTON_EVENT[dvTP,2]
212
PUSH:
{
(* CONVERT TO BINARY *)
lPos = 1
slReturn = VARIABLE_TO_STRING (AlbumStruct,sBinaryString,lPos)
SEND_STRING 0,"'POSITION=',ITOA(lPos),'; RETURN=',ITOA(slReturn)"
(* CONVERT TO XML *)
lPos = 1
slReturn = VARIABLE_TO_XML (AlbumStruct,sXMLString,lPos,0)
SEND_STRING 0,"'POSITION=',ITOA(lPos),'; RETURN=',ITOA(slReturn)"
(* NOW WE CAN SAVE THESE BOTH TO DISCS *)
slFile = FILE_OPEN('BinaryEncode.xml',nFileWrite)
IF (slFile > 0)
{
slReturn =
IF (slReturn < 0) SEND_STRING 0,"'FILE WRITE FAIL
slReturn = FILE_CLOSE(slFile)
IF (slReturn < 0) SEND_STRING 0,"'FILE CLOSE FAIL
}
slFile = FILE_OPEN('XMLEncode.xml',nFileWrite)
IF (slFile > 0)
{
slReturn = FILE_WRITE(slFile,sXMLString,LENGTH_STRING(sXMLString))
IF (slReturn < 0) SEND_STRING 0,"'FILE WRITE FAIL
slReturn = FILE_CLOSE(slFile)
IF (slReturn < 0) SEND_STRING 0,"'FILE CLOSE FAIL
}
(* Clear string *)
sBinaryString = ""
sXMLString = ""
NetLinx Programming Language Reference Guide