[VB6] Routine per ricavare la risoluzione di una immagine

[giorgiogio48]

Ciao amici,
ho trovato su questo forum, inserita da oregon, una routine per ricavare la risoluzione di una immagine. Funziona benissimo. Ma io vorrei sapere come si arriva a crearla. La routine è:

Dim XDPI As Integer 
Dim YDPI As Integer 
Open "File.jpg" For Binary As #1 
Seek #1, 16 
Get #1, , XDPI 
Get #1, , YDPI 
Close #1 
Debug.Print "Ris. Orizz. " & XDPI; " dpi" 
Debug.Print "Ris. Vert. " & YDPI; " dpi"

Grazie.

[alka]

Non so se questo è uno dei casi in cui non l'hai dimenticato, ma il linguaggio di programmazione non c'è.

Comunicamelo così correggo il titolo della discussione.

[oregon]

Come si arriva a crearla? Che vuoi dire?

[giorgiogio48]

Originariamente inviato da oregon
Come si arriva a crearla? Che vuoi dire?

Ciao oregon,
grazie del'intervento. Intendo dire: quali dati hai studiato tu nel file e come li hai trovati.

[oregon]

Te l'ha detto Mauro ... nell'altro forum ...

Basta una ricerca su google circa il formato dei file jpg, in particolare, dell'header ...

[giorgiogio48]

Ciao oregon,
tu sei gentile ma in questo caso fai facile una cosa che facile non è.
Ho cercato su google usando le parole chiave che dici tu e Mauro ma a tuttora non ho trovato niente. Non è cattiva volontà, credimi. Forse fra un giorno, una settimana...
Grazie comunque.

[Rafio]

E se volessi sapere i Pixels?

[alka]

Originariamente inviato da Rafio
E se volessi sapere i Pixels?

Non aprire discussioni concluse da tempo per cambiare la domanda originale. Apri una discussione nuova e dedicata per ogni quesito.

Ciao!

[MdE2005]

Penso che quello che intendeva Oregon è che in Internet ci sono vari siti (reperibili mediante comune motore di ricerca) in cui ti spiegano la struttura di determinati tipi di file; come puoi intuire Oregon ha studiato l'Header (intestazione) di questo tipo di file (.jpg) e si è reso conto che le informazioni sulla risoluzione si trovavano in una parte specifica dell'header: di conseguenza ha scritto una routine che gli permettesse di ricavare da codice questi valori..

Ciao

[Rafio]

Chiedo scusa ad Alka... Perchè dopo aver visto praticamente tutte le discussioni in merito a VB6, leggevo "Moderatore: Apri un'altra discussione".... "Moderatore: Specifica la versione di VB"... "Moderatore: Ti ho indirizzato nel forum giusto"....., e nonostante ciò... ho sbagliato anche io...

Nello stesso momento ringrazio per la dritta. Comunque, e poi concludo, ho provato ad aprire un file .jpg con Notebook e in mezzo a quel groviglio di caratteri e quadratini ho trovato una specie di TAG tipo Html: "<exif:PixelXDimension>300</exif:PixelXDimension>"...
ed è proprio la dimensione in pixels!!!
Solo che poi ho fatto un'altra prova su un altro file e non c'era questa cosa....
Ciao a tutti!!!!