Dimension d'une image TIFFRésolu

Question

Bonjour,
Existerait-il une méthode simple et rapide pour obtenir la dimension en pixels d'une image TIFF?
Jacques13

Renfield · Accepted Answer

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

Renfield · Answer

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

cs_jacques13 · Answer

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?

cs_jacques13 · Answer

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

Dimension d'une image TIFF

4 réponses

Votre réponse

Discussions similaires