I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
md
md
l'1 luglio 2002 alle 00:25
7 messaggi dal 19 giugno 2001
ciao a tutti,
vorrei dare la possibilità algli utenti del mio futuro sito di crearsi delle piccole gallerie di immagini.
vorrei però scoprire la dimensione delle immagini di cui fanno l'upload.
ho trovato questo script http://www.aspitalia.com/liste/usag/script.aspx?ID=85, ma restituisce i valori di altezza e larghezza in punti, come posso fare per avere le dimensioni in pixel?

grazie
marco

RispondiQuoting
rome
rome
l'1 luglio 2002 alle 01:05
2.907 messaggi dal 15 maggio 2001
Contributi
Credo che questo dovrebbe fare al caso tuo :

<%

'conoscenza delle dimensioni dell'immagine
IMG=("prova.gif")

Dim Dimensione
Function ImageSize(IMG)
Dimensione= Array("","")
Formato = Right(uCase(IMG),3)
Select Case Formato
Case "JPG"
Start = 167
max = 4
xs = 3
xe = 4
ys = 1
ye = 2
'stà per JPEG (l'ho messo io)
Case "PEG"
Start = 167
max = 4
xs = 3
xe = 4
ys = 1
ye = 2
Case "GIF"
Start = 10
max = 4
xs = 2
xe = 1
ys = 4
ye = 3
End Select

Set fso = CreateObject("Scripting.FileSystemObject")
Set tttsss = fso.OpenTextFile(Server.MapPath(IMG),1)
sss = Right(tttsss.Read(Start),max)
Dimensione(0) = HexToDec(HexAt(sss,xs) & HexAt(sss,xe))
Dimensione(1) = HexToDec(HexAt(sss,ys) & HexAt(sss,ye))
tttsss.Close
ImageSize = Dimensione
End Function

Function HexAt(sss, nn)
HexAt = Hex(Asc(Mid(sss, nn, 1)))
If Len(HexAt) = 1 Then HexAt = "0" & HexAt
End Function

Function HexToDec(cadhex)
Dim nn, iii, ch, decimal
decimal = 0
nn = Len(cadhex)
For iii=1 To nn
decimal = decimal * 16
ch = Mid(cadhex, iii, 1)
decimal = decimal + inStr("0123456789ABCDEFabcdef", ch) -1
Next
HexToDec = decimal
End Function

Dimensione = ImageSize(IMG)


%>


Rome Webmaster

RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.