Programming i!-Database Plus
15
i!-Database Plus and DBWizard
sDB_TITLES[nLIST_PTR].strArtist =
DB_GET_XML_VALUE(strDB_RECORD,'Artist')
sDB_TITLES[nLIST_PTR].strCopyright =
DB_GET_XML_VALUE(strDB_RECORD,'Copyright')
sDB_TITLES[nLIST_PTR].strLabel =
DB_GET_XML_VALUE(strDB_RECORD,'Label')
sDB_TITLES[nLIST_PTR].strReleaseDate =
DB_GET_XML_VALUE(strDB_RECORD,'ReleaseDate')
sDB_TITLES[nLIST_PTR].strTitle =
DB_GET_XML_VALUE(strDB_RECORD,'Title')
sDB_TITLES[nLIST_PTR].slTitleID =
ATOL(DB_GET_XML_VALUE(strDB_RECORD,'TitleID'))
}
lLOOP =
FIND_STRING(sDB_CLIENT.strBUFF,'<struct>',nLAST+LENGTH_STRING('<struct'))
}
IF (sTempListBox.snTOTAL > 0) sTempListBox.snTOTAL =
TYPE_CAST(nLIST_PTR)
DB_DISPLAY_TITLES(sDB_TITLES,sTempListBox)
}
}
(* CLEAR BUFFER *)
DB_ACK_QUE (sDB_QUE,sDB_CLIENT)
CLEAR_BUFFER sDB_CLIENT.strBUFF
}
}
The very last bit of code keeps your queue going. Call
DB_CHECK_QUE
in mainline to make sure all
request get processed and sent to the web server.
(***********************************************************)
(* THE ACTUAL PROGRAM GOES BELOW *)
(***********************************************************)
DEFINE_PROGRAM
DB_CHECK_QUE(sDB_QUE,sDB_CLIENT)
Creating an AXS file
The CDExample.axs file contains the remaining part of the code. You still need to provide the user
with some way to read and possibly update all this information. The first thing to do is create a
touch panel device to use as a user interface and include your AXI file.
(***********************************************************)
(* DEVICE NUMBER DEFINITIONS GO BELOW *)
(***********************************************************)
DEFINE_DEVICE
dvTP = 128:1:0
(***********************************************************)
(* INCLUDE FILES GO BELOW *)
(***********************************************************)
#INCLUDE 'CDList.axi'