Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
Questo script ASP ci permette di Ricavare le dimensioni di una immagine (.JPG - .GIF - .BMP)
Codice per lo script
<% '################################## '#Come ricavare la dimensione in '#pixel di una immagine .jpg .gif '#.bmp '################################## Dim Dimensione
Function ImageSize(Immagine)
Dimensione = Array("","")
Formato = Right(UCase(Immagine),3)
Select Case Formato Case "JPG" start = 289 max = 4 xs = 3 xe = 4 ys = 1 ye = 2 Case "GIF" start = 10 max = 4 xs = 2 xe = 1 ys = 4 ye = 3 Case "BMP" start = 24 max = 8 xs = 4 xe = 3 ys = 8 ye = 7 End Select
Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(Server.MapPath(Immagine),1) s = Right(ts.Read(start), max)
Dimensione(0) = hextodec(hexat(s,xs) & hexat(s,xe)) Dimensione(1) = hextodec(hexat(s,ys) & hexat(s,ye)) ts.Close
ImageSize = Dimensione
End Function
Function hexat(s, n)
hexat = hex(asc(mid(s, n, 1))) If len(hexat) = 1 then hexat = "0" & hexat
End Function
Function hextodec(cadhex) Dim n, i, ch, decimal
decimal = 0 n = Len(cadhex)
For i = 1 to n decimal = decimal * 16 ch = Mid(cadhex, i, 1) decimal = decimal + inStr("0123456789ABCDEFabcdef", ch) - 1 Next hextodec = decimal
End Function
Immagine = "tuaimmagine.jpg" 'qui il path virtuale dell'immagine
Dimensione = ImageSize(Immagine)
Response.Write "Larghezza: " & Dimensione(0) & " pixel<br>"
Response.Write "Altezza: " & Dimensione(1) & " pixel<BR>" %>
|