CAB A Series - File Handling and Image Dimension Examples

cab Produkttechnik GmbH & Co KG 245
245
[TABLE OF CONTENTS]
[COMMAND LIST][INDEX]
Hermes
Apollo
A-series
This
function is
available
for:
[ESC][i][L][S]
PRODUCT MARKING AND BARCODE IDENTIFICATION
M-series
This program demonstrates the differences for file handling (a compactflash drive and a hex
editor are useful to see the difference):
<ABC>
a$="Hello "+CHR$(DEC("20AC"))
OPEN 1,"test.dat","w"
PRINT #1 a$
CLOSE 1
OPEN 1,"testu.dat","wu"
PRINT #1 a$
CLOSE 1
OPEN 1,"testb.dat","wb"
PRINT #1 a$
CLOSE 1
</ABC>
This program does also writing using files but on the RS-232:
<ABC>
a$="Hello "+CHR$(DEC("20AC"))
OPEN 1,"/DEV/RS232:57600,RTS/CTS","w"
PRINT #1 a$,chr$(13);
FOR i=1 TO 10
PRINT #1 i,chr$(13);
NEXT i
CLOSE 1
</ABC>
This demonstrates the file path and name handling of abc (it is necessary to have test.dat on
the card, e.g. from the last demo program):
<ABC>
PRINT "a"
PRINT "; test.dat: ",exists("test.dat")
PRINT "; test.dat: ",exists("TEST.DAT")
PRINT "; test.dat: ",exists("/card/misc/test.dat")
PRINT "; test.dat: ",exists("/CARD/TEST.dat")
PRINT "; test2.dat: ",exists("test2.dat")
</ABC>
If you want to know the dimensions of an image try this:
a
<ABC>
print "M l img;sample"
wait 1
b=0
h=0
DO
b=PEEK("imagewidth:SAMPLE")
h=PEEK("imageheight:SAMPLE")
IF b>0 AND h>0 BREAK
LOOP
PRINT "; Width: ",b
PRINT "; Height: ",h
PRINT "; Free memory: ",PEEK("freememory")
</ABC>
no
no