begin process at 2012 05 27 01:44:35
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > TAILLE EN PIXELS DES GIF ET JPG PLACÉS SUR LE SERVEUR

TAILLE EN PIXELS DES GIF ET JPG PLACÉS SUR LE SERVEUR


 Information sur la source

Note :
9 / 10 - par 4 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :taille, pixels, gif, jpeg, images Niveau :Expert Date de création :29/07/2001 Vu :11 075
Auteur : BinOff

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

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

  • 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 
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")


 Sources du même auteur

GÉNÉRATION AUTOMATIQUE DE TABLEAUX CROISÉS EN FONCTION D'UNE...
GÉNÉRER UNE CHAINE ALÉATOIRE
VÉRIFICATION D'UNE DATE AVEC GESTION DES ANNÉES BISSEXTILE
Source avec Zip GESTIONNAIRE DE NEWS AVEC COMMENTAIRES
FONCTIONS DE CONVERSION FRANCS <> EUROS
Toutes les sources de BinOff

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CLASS CHARTS, HISTOGRAMCHART ET SECTORCHART par The Red Man
EXTRACTION D'INFORMATIONS IPTC D'UNE IMAGE par teenage
Source avec Zip Source avec une capture Source .NET (Dotnet) MANIPULATION D'IMAGES EN TEMPS RÉEL - RÉDUCTION COMPRESSION ... par badrbadr
Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION D’AJAX ET D’UN WEBSERVICE POUR LA GÉNÉRATION D’I... par tikrimi
REDIMENSIONNER UNE IMAGE - ASPIMAGE par Keneyda
Toutes les sources de la catégorie Graphique

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) GÉNÉRATEUR D'IMAGES CAPTCHA UTILISANT UN HTTPHANDLER par istamkenitra
EXTRACTION D'INFORMATIONS IPTC D'UNE IMAGE par teenage
Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION D’AJAX ET D’UN WEBSERVICE POUR LA GÉNÉRATION D’I... par tikrimi
Source .NET (Dotnet) FONCTION POUR GÉNÉRER UN JAVACRIPT D'OUVERTURE D'UNE IMAGE E... par tikrimi
Source avec Zip Source avec une capture TURBOGALERIE - GESTION D'UNE GALERIE D'IMAGES / DE FONDS D'É... par vlad_le_rouge

Commentaires et avis

Commentaire de cyril722 le 01/02/2002 15:42:07

bien joué

Commentaire de cbu le 08/08/2003 11:31:59

Est trouvé sur planete code source pour les JPG mal reconnu :
-----------------------------------------------------------------------
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) &gt;= &HC0 _
                         And bytArr(intPos + 1) &lt;= &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

Commentaire de cbu le 08/08/2003 11:32:45

Si adTypeBinary n'est pas reconnu par votre serveru mettez 1
A+

Commentaire de cbu le 08/08/2003 16:31:28

Ca marchait avec des petits JPG .. Est toujours pas trouvé un truc qui marche pour tout !! :(

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Cadre en taille dynamique [ par JBeuh ] Voilà mon problème :J'essaye de rendre un site en taille relative (cad avec des % et non des chiffres pré-déterminés).Ca parait pas si compliqué au dé Comment valider un formulaire avec un GIF ou JPEG [ par Chris ] Bonjour,Je souhaiterai valider un formulaire avec autre chose que le classique Valider avec fond gris.J'aimerai en effet valider mon formulaire avec u Quand j'actualise ma page mon compteur me compte un visite en plus [ par Caius_junioricus ] Qu'est ce qui cloche? Voici mon code:[code]&lt;% dim cndim rcdim nbredim sql Set cn = CreateObject("ADODB.Connection")&nbsp;&nbsp;cn.Provider="Microso Images GIF animées... statiques! [ par v.massip ] Bonjour à tous!Voici mon problème :Sur mon site web en ASP.NET 2.0, je souhaite intégrer des élément visuels animés pour réaliser un menu sympa.2 solu Fusion d'image pour en faire un gif animé [ par karn ] Bonjour, je voudrais pouvoir a partir de plusieurs images(gif) les réunir pour en faire au final un gif animé...j'ai vue qu'on pouvais le faire en php création page html avec images et taille personnalisée [ par penchu ] Balise <%# %> et balise <% %> [ par aifzaide ] Bonjour, Dans une GridView, pour un champ Email, j'ai créer un dans lequel j'affiche une petite enveloppe afin d'éviter de prendre trop de place en Problèmes avec fichiers GIF/JPEG [ par xtz ] Bonjour,j'ai un petit probl&#232;me avec des images gif/jpeg qui sont upload&#233;s sur un site.Pour pouvoir &#233;crire sur le disque du serveur, je Taille textbox [ par milo2009 ] Salut, J'aimerai savoir comment modifier la taille d'une textbox dans un datagrid. Quand j'utilise la fonction 'width = 25' dans l'onglet design la taille textbox multiline [ par marliche0 ] Je dois bloquer la taille de ma textbox &#224; 2000 caract&#232;res et comme maxlength ne marche pas sur les textbox multiline j'ai cr&#233;&#233; une


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,930 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)