O problema é que estou em modo console.
Dei uma pesquisada aqui antes de testar e và que dá problema em modo console...
Entretanto, nessa direção que você me apontou conseguà achar essa alternativa aqui que vou testar depois. Pareceu interessante.
Vou compartilhar logo aqui pra ficar mais fácil de achar depois:
/*
Test.prg
Get image dimensions in pixels.
*/
// Parameter.
#define imageIn hb_dirbase() + "Test.bmp"
procedure Main
local Height, Width
request DBFNTX // Utilisation de fichiers .dbf avec des index .ntx
set( _SET_DATEFORMAT, "DD/MM/YYYY" ) // Affichage de l'année sur 4 chiffres.
set( _SET_EOF, .F. ) // Pas de <Ctrl-Z> à la fin des fichiers créés avec set alte.
set exact on // Pas d'approximation dans la comparaison des chaînes de caractères.
// ANSI ( Windows ) and french language.
request HB_LANG_FR
request HB_CODEPAGE_FRWIN
hb_cdpSelect( 'FRWIN' )
hb_langSelect( 'FR' )
// Taille de la console.
setmode( 43, 80 )
setcolor( "GR+/B" )
@ 0, 0, maxrow(), maxcol() box space( 9 )
setcolor( "W/B" )
Height := 0
Width := 0
GetImageHeightWidth( imageIn, @Height, @Width )
? "File : " + imageIn
? "Height : " + hb_ntos( Height )
? "Width : " + hb_ntos( Width )
?
wait
return
procedure GetImageHeightWidth( cFile, nHeight, nWidth )
local Img1
img1 := win_oleCreateObject( "WIA.ImageFile" )
img1:LoadFile( cFile )
nHeight := img1:Height
nWidth := img1:Width
img1 := nil
return