Dimension d'une image TIFF [Résolu]

Signaler
Messages postés
252
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
29 juin 2013
-
Messages postés
252
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
29 juin 2013
-
Bonjour,
Existerait-il une méthode simple et rapide pour obtenir la dimension en pixels d'une image TIFF?
Jacques13

4 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
Allez... je suis de bonne humeur :

Private Type TIFFFDE
    Tag As Integer
    DataType As Integer
    DataTypeCount As Long
    OffsetOfData As Long
End Type

Private Sub Form_Load()
Dim nWidth As Long
Dim nHeight As Long
    If GetTiffImageSize("C:\........tif", nWidth, nHeight) Then
        MsgBox nWidth & " x " & nHeight
    End If
End Sub

Public Function GetTiffImageSize(ByRef vsFileName As String, ByRef vnWidth As Long, ByRef vnHeight As Long) As Boolean
Dim tEntry As TIFFFDE
Dim i As Long
Dim nEntrycount As Integer
Dim nOffset As Long
    Open vsFileName For Binary Access Read As #1
        Get #1, , nOffset
        Get #1, , nOffset
        Seek #1, nOffset + 1
        Get #1, , nEntrycount
        For i = 0 To nEntrycount - 1
            Get #1, , tEntry
            If tEntry.Tag = 256 Then
                vnWidth = tEntry.OffsetOfData
            ElseIf tEntry.Tag = 257 Then
                vnHeight = tEntry.OffsetOfData
            End If
            If vnWidth <> 0 And vnHeight <> 0 Then
                GetTiffImageSize = True
                Exit For
            End If
        Next
    Close #1
End Function



Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
le plus simpls et efficace, la lire diectement dans le fichier tiff

analyse le format, grace a www.wotsit.org


Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
252
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
29 juin 2013

Merci pour ta réponse Renfield.
Mais la documentation est en anglais et assez indigeste, pourrais-tu me donner directement l'adresse et la longueur des octets à lire?
Messages postés
252
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
29 juin 2013

Merci, Renfield, vraiment merci!
Ton code fonctionne parfaitement.
Et toutes mes félicitations pour l'ensemble de tes sources que j'ai pu consulter sur ce site!
Jacques13