Hello friends,
How can I get the resolution of a JPG?
I want to remember that I read here that it can be done without opening and reading the photo.
Best regards,
Otto
Hello friends,
How can I get the resolution of a JPG?
I want to remember that I read here that it can be done without opening and reading the photo.
Best regards,
Otto


Great !
Great !
Dear Mr. Rao,
Hearing that from you means a lot to me.
Have a nice Sunday.
Best regards,
Otto
Otto wrote:Hello friends,FWH function
How can I get the resolution of a JPG?
I want to remember that I read here that it can be done without opening and reading the photo.
Best regards,
Otto
JpegDim( cFileJpg ) // --> { nWidth, nHeight }#include "fivewin.CH"
PROCEDURE MAIN
MsgInfo( hb_valToExp( JpgMetaData("d:\Bilder\NASA\","02-spitzer-smc.jpg") ) )
RETURN
FUNCTION JpgMetaData( cPath, cFilename )
LOCAL aRet := {}
LOCAL nItem, ii,iMax
LOCAL objShell := CreateObject( "Shell.Application" )
LOCAL objFolder
LOCAL objFolderItem
LOCAL cFileInfo
LOCAL cHeaderInfo
LOCAL aItems := {176,178,175,177}
objFolder := objShell:Namespace( cPath )
objFolderItem := objFolder:ParseName( cFilename )
iMax := LEN(aItems)
FOR ii := 1 TO iMax
nItem := aItems[ii]
cFileInfo := objFolder:GetDetailsOf( objFolderItem, nItem )
cHeaderInfo := objFolder:GetDetailsOf( objFolder:Items, nItem )
IF !EMPTY( cHeaderInfo ) .AND. !EMPTY( cFileInfo )
AADD( aRet, { STRZERO( nItem, 3 ), cHeaderInfo, STRTRAN( cFileInfo , "?", "" ) } )
ENDIF
NEXT
objFolderItem := NIL
objFolder := NIL
objShell := NIL
RETURN ACLONE( aRet )