Taille en pixels des gif et jpg placés sur le serveur

Commenter

Contenu du snippet

Ce module permet de connaitre la taille des images GIF et JPEG placés sur le serveur grâce à FSO.
Notez que parfois, la taille des JPG est mauvaise, due à la non-conformité de l'image.
Ce source va chercher dans les Header de ces fichiers pour en retrouver les valeurs des tailles

Source / Exemple : 


Function GetPicSize (fn)
	Set fso = CreateObject("Scripting.FileSystemObject")
	if fso.FileExists(Server.MapPath(fn)) = false then exit function
	pn = Server.MapPath(fn)
	tstr = ""
	Set f = fso.OpenTextFile(pn)

	Select Case UCase(Right(fn,4))
	Case ".GIF",".JPG"
		If NOT f.AtEndOfStream Then
			If UCase(Right(fn,4))=".GIF" Then
				chars		= f.read(10)
				width		= asc(mid(chars,8,1))*256 + asc(mid(chars,7,1))
				height	= asc(mid(chars,10,1))*256 + asc(mid(chars,9,1))
				hw = " WIDTH=" & width & " HEIGHT=" & height
			Else
				chars		= f.read(200)
				height	= asc(mid(chars,164,1))*256 + asc(mid(chars,165,1))
				width		= asc(mid(chars,166,1))*256 + asc(mid(chars,167,1))
				If (height>600) OR (height<3) OR (WIDTH<3) OR (WIDTH>600) Then
				Else
					hw = " WIDTH=" & width & " HEIGHT=" & height
				End If
			End If
		End If
		GetPicSize = "W : " & width & " H :" & height
	End Select
	f.Close
	Set f = Nothing
	Set fso = Nothing
End Function

Conclusion :


Utilisation :
response.write GetPicSize ("images\monimage.gif")

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BinOff)