topic-32412

Board index FiveWin for Harbour/xHarbour Determine image dimensions

Posts: 301

Joined: Fri Jun 01, 2007 09:07 AM

Determine image dimensions
Posted: Tue May 10, 2016 12:54 PM

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

Posts: 301

Joined: Fri Jun 01, 2007 09:07 AM

Re: Determine image dimensions
Posted: Tue May 17, 2016 09:50 AM

Anyone ?

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Determine image dimensions
Posted: Tue May 17, 2016 10:17 AM

Here you have an example:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

   local oImg 

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

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

   oImg:End()

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Determine image dimensions
Posted: Tue May 17, 2016 10:25 AM

To print it:

Code (fw): Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion