TAILLE EN PIXELS DES GIF ET JPG PLACÉS SUR LE SERVEUR
cyril722
Messages postés
26
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
16 août 2002
-
1 févr. 2002 à 15:42
cs_cbu Messages postés 394 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 novembre 2009 - 8 août 2003 à 16:31
cs_cbu Messages postés 394 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 novembre 2009 - 8 août 2003 à 16:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8679-taille-en-pixels-des-gif-et-jpg-places-sur-le-serveur
https://codes-sources.commentcamarche.net/source/8679-taille-en-pixels-des-gif-et-jpg-places-sur-le-serveur
8 août 2003 à 16:31
8 août 2003 à 11:32
A+
8 août 2003 à 11:31
-----------------------------------------------------------------------
Sub GetJpegDims(ByVal strFileName, ByRef lngHeight, ByRef lngWidth)
on error resume next
Dim stmFile
set stmFile = server.createobject("ADODB.Stream")
Dim bytArr(256)
dim byt
Dim intPos
With stmFile
.Type = adTypeBinary
.Open
.LoadFromFile strFileName
.Position = 0
for intPos = 0 to 255
.position = intpos
bytArr(intPos) = ascb(.Read(1))
next
.Close
End With
Set stmFile = Nothing
For intPos = 0 To 255
If bytArr(intPos) = &HFF And bytArr(intPos + 1) >= &HC0 _
And bytArr(intPos + 1) <= &HCF Then
lngHeight = bytArr(intPos + 5) * 256 + bytArr(intPos + 6)
lngWidth = bytArr(intPos + 7) * 256 + bytArr(intPos + 8)
Exit For
End If
Next
End Sub
1 févr. 2002 à 15:42