Jpg Height and Width?

[Ugo]

Hi fw's,
is possible to know the dimensions (Height and Width) of an Jpg with Fwh?

[Enrico Maria Giordano]

Load it in a TImage control and then use nHeight() and nWidth() methods.

EMG

[Ugo]

Load it in a TImage control and then use nHeight() and nWidth() methods.

Enrico,
is possible to load only in memory?
(not in an object/resource?)
I want use this info only for know if the image is horizontal or vertical.

thank you.

[Ugo]

Load it in a TImage control and then use nHeight() and nWidth() methods.

Enrico,
I test this code:

Code: Select all  Expand view  RUN

oImg     := TImage():Define( , cImage, oDlg )
nHorDim  := oImg:nWidth()
nVerDim  := oImg:nHeight()
oImg     := Nil     // is correct for release the lib?
MsgInfo( "Altezza " + cValToChar( nVerDim ) + CRLF +;
              "Larghezza " + cValToChar( nHorDim ), "" )

but the return is height 0 and width 0
in cImage there is a correct path and jpg file name,
use the standard nviewlib;
where is my error?

and

Code: Select all  Expand view  RUN

oImg := Nil

is correct to release the lib?

Thank you.

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


STATIC hLib


FUNCTION MAIN()

    LOCAL oDlg, oImg

    DEFINE DIALOG oDlg

    @ 0,  1 BUTTON "Sizes" ACTION SHOWSIZES( oDlg )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION SHOWSIZES( oDlg )

    LOCAL oImg := TImage():Define( , "SFONDO.JPG", oDlg )

    ? oImg:nWidth(), oImg:nHeight()

    oImg:End()

    RETURN NIL

EMG

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

oImg := Nil

is correct to release the lib?

No, you need oImg:End() or RELEASE IMAGE oImg.

EMG

[Ugo]

This is a working sample:
...

Enrico,
work but in any case return 0 and 0
it is correct?

[Ugo]

No, you need oImg:End() or RELEASE IMAGE oImg.

Thank you.

[Enrico Maria Giordano]

This is a working sample:
...

Enrico,
work but in any case return 0 and 0
it is correct?

Which cases? Can I reproduce the problem? How?

EMG

[Ugo]

Which cases? Can I reproduce the problem? How?

Yes, the case is the jpg create from my camera!

Can I send to your mail?

[Enrico Maria Giordano]

Yes.

EMG