Menu













Yehpee.com cerca l'azienda e promuovi il made in italy

    Calcolare dimensione immagini

    Come trovare la dimensione in punti di una immagine.



    Questa funzione vi restituisce le misure di una immagine espressa in punti:

    
    <% 
    'impostare qui sotto il nome dell'immagine
     Immagine="/images/miaimmagine.jpg" 
     
     
     Dimensione = ImageSize(immagine) 
     Response.Write("punti di larghezza: " & Dimensione(0) & "<br>") 
     Response.Write("punti di altezza: " & Dimensione(1)) 
    
    
    
    Function ImageSize(immagine) 
       Dimensione = Array("","") 
       Formato = Right(uCase(immagine), 3) 
       Select Case Formato 
         Case "JPG" 
           Start = 167 
           max = 4 
           xs = 3 
           xe = 4 
           ys = 1 
           ye = 2 
         Case "PNG" 
           Start = 24 
           max = 8 
           xs = 3 
           xe = 4 
           ys = 7 
           ye = 8 
         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 
         Case "WMF" 
           Start = 14 
           max = 4 
           xs = 2 
           xe = 1 
           ys = 4 
           ye = 3 
       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 
    %>
    





    script, senna, formula1, radio, meteo, auto, risorse per webmaster, javascript, sport, scripts, macchine sportive, freeware, asp, programmare, del piero, visual basic, shumacher, sorpassi, porsche, free

Usiamo i cookies per rendere possibile il corretto funzionamento del sito web per ogni utente. Utilizzando il nostro sito, accetti le nostre modalità di utilizzo dei cookies.
Privacy e cookie policy