Domino Code Fragment

Code Name*
Image dimensions		Date*
02/12/1999		Source (or email address if you prefer)*
John Toton
IP address:.18.221.129.19
Description*
Gets dimensions of a JPEG or GIF image		Type*
LotusScript		Categories*
User Interface (Web), Website Tools
Implementation:
Modify constants		Required Client:
Server:
Limitations:
Comments:
give it a filename. Useful in QueryOpen events.
Files/Graphics attachments (if applicable): Code:

     Dim header As String
    Dim f As Integer
   
    filename="c:\top_e.gif"
   
    f = Freefile
    Open filename For Input As #f
   
    If Lcase(Right(filename, 3))="gif" Then    
         header = Input(10, f)
         Close #f
         wHi = Mid(header, 8, 1)
         wLo = Mid(header, 7, 1)
         hHi = Mid(header, 10, 1)
         hLo = Mid(header, 9, 1)
         w = Asc(wHi) * 256 + Asc(wLo)
         h = Asc(hHi) * 256 + Asc(hLo)
         
    Elseif Lcase(Right(filename, 3))="jpg" Then
         header = Input(167, f)
         Close #f
         wHi = Asc(Midbp(header, 166, 1))
         wLo = Asc(Midbp(header, 167, 1))
         hHi = Asc(Midbp(header, 164, 1))
         hLo = Asc(Midbp(header, 165, 1))
         w = (wHi) * 256 + (wLo)
         h = (hHi) * 256 + (hLo)
    End If