Titolo: QPix: ottenere informazioni su un'immagine
Categoria: Codice |
|
Ultimo Aggiornamento: 03/10/04 |
Il comando
PICTURE PROPERTIES permette di ottenere, direttamente da linguaggio quindi, informazioni sulla dimensione in pixel di un'immagine, ma non la sua risoluzione in dpi e/o la profondità di colore. Per ottenere queste informazioni è possibile usare le funzioni di QPix
QPx_GetImageFileInfo e
QPx_GetPictureInfo (per un'introduzione a QPix è possibile consultare
questa faq).
I parametri che usano sono simili e la sintassi è praticamente identica. Entriamo nel dettaglio.
La sintassi è:
QPx_GetImageFileInfo(imagePath; imageWidth; imageHeight; pixelDepth; hRes; vRes)
e
QPx_GetPictureInfo(pictVar; pictWidth; pictHeight; pixelDepth; hRes; vRes)
dove:
- imagePath è il percorso al file di cui vogliamo ottenere le informazioni;
- pictVar è invece la variabile 4D che contiene la pict di cui vogliamo ottenere informazioni;
- pictWidth e pictHeight vengono riempiti dai comandi con i valori relativi la larghezza e altezza dell'immagine;
- pixelDepth viene riempito con un valore che rappresenta la profondità di colore dell'immagine (1 per il bianco e nero, 2 8 16 24 e 32 per le immagini a colori, 34 [2 bit], 36 [4-bit], 40 [8 bit] per le immagini a scala di grigi);
- hRes e vRes vengono riempiti con la risoluzione orizzontale e verticale dell'immagine espressa in dots per inch (dpi).
Vediamo un esempio di uso di QPx_GetImageFileInfo
`Ottenere info su un'immagine da file
C_LONGINT($error)
C_TEXT($imagePath)
C_LONGINT($width;$height;$depth;$hRes;$vRes)
$imagePath:="Hard disk:Barocco in Sicilia:Contea di Modica:Montalbano:San Pietro.gif"
$error:=
QPx_GetImageFileInfo ($imagePath;$width;$height;$depth;$hRes;$vRes)
If ($error=qpx_noErr)
`usa i dati ottenuti
End if Un esempio per QPx_GetPictureInfo:
`Info su una pict
C_LONGINT($error)
C_PICTURE($picture)
C_LONGINT($width;$height;$depth;$hRes;$vRes)
$picture:=[Chiese di Modica]Immagine
$error:=
QPx_GetPictureInfo ($picture;$width;$height;$depth;$hRes;$vRes)
If ($error=qpx_noErr)
`usa i dati ottenuti
End if
Inviato da: PierPaolo Sichera |
|
Visite: 13194 |
Se accedi con utente e password, puoi aggiungere dei commenti.