CALL "W$IMAGESIZE" USING bitmapHandle imageWidth imageHeight |
BitmapHandle | USAGE HANDLE | Specifies the handle of a valid image resource. |
ImageWidth | any numeric data item | Receives the width in pixels of the image. |
ImageHeight | any numeric data item | Receives the height in pixels of the image. |
working-storage section. copy "isgui.def". 77 hBmp pic s9(9) comp-4. 77 w-width pic 9(5)v99. 77 w-height pic 9(5)v99. 77 f-image-name pic x(80). procedure division. main. move "c:\tmp\img1.jpg" to f-image-name call "w$bitmap" using wbitmap-load, f-image-name giving hBmp call "w$imagesize" using hBmp, w-width, w-height display message "File : " f-image-name x"0d0a" "width : " w-width " height : " w-height. |