Determine image dimensions

[avista]

Hi all,
Please for solution how to determine dimensions of image (.jpg) file
and what is the best way to print image (i use fwh 14.12)
Best regards,

[avista]

Anyone ?

[Antonio Linares]

Here you have an example:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oImg

   DEFINE IMAGE oImg FILENAME "..\bitmaps\olga1.jpg"

   MsgInfo( oImg:nWidth )
   
   MsgInfo( oImg:nHeight )

   oImg:End()

return nil

[Antonio Linares]

To print it:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oImg, oPrn

   DEFINE IMAGE oImg FILENAME "..\bitmaps\olga1.jpg"

   PRINT oPrn NAME "Test" PREVIEW
      PAGE
         oPrn:SayImage( 0, 0, oImg, oImg:nWidth * 4, oImg:nHeight * 4 )        
      ENDPAGE
   ENDPRINT
   
   oImg:End()

return nil