| Code sample | Finding out the number of images in an MBM file.
Submitted by m on 14:52:05 20036 23rd June 2003 (2208 hits) | | OPL32 : Graphics | | Level: Intermediate | This procedure is quite useful when the number of images in an MBM file is unknown.
dpNote 0001 - 2 July 2002
www.dp.com.my
| CONST KImageCounterOffset&=&00000010
PROC GetNoOfImagesInMbmFile&:(aMbmFileName$)
LOCAL IOstatus%,hMbm%,IOmode%,Offset&,NoOfImages&
REM --- open the image file
IOmode%=KIOModeOpen% OR KIOFormatBinary% OR KIOAccessRandom% OR KIOAccessShare%
IOstatus%=IOOPEN(hMbm%,aMbmFileName$,IOmode%)
IF IOstatus%<0
RAISE KErrNotExists%
ENDIF
REM --- move to the position of the offset address of the image counter
Offset&=KImageCounterOffset&
IOSEEK(hMbm%,1,Offset&)
REM --- read the position of the image counter
IOREAD(hMbm%,ADDR(Offset&),4)
REM --- move to the position of the image counter
IOSEEK(hMbm%,1,Offset&)
REM --- read the image counter
IOREAD(hMbm%,ADDR(NoOfImages&),4)
REM --- close the image file
IOCLOSE(hMbm%)
REM --- return number of images in file
RETURN NoOfImages&
ENDP
| | [ show as plain text ] [ codebase index ] |
| Comments: 0 |
[ expand all ] |
[ post a new comment ] |
|
Disclaimer: The following comments are the responsibility of the poster. epoczone.com is not responsible in any way for what they may say.
If you have not already done so, please read the terms and conditions before you post a comment.
|
|
|
|
|
| Digital SLR News - DSLR camera information
|
