ImageSize (Server Objects)

ImageSize- komponentti kykenee määrittämään kuvan leveyden ja korkeuden pikseleinä useimmista bmp,- png,- gif- ja jpg- tiedostoista.

 
Ohjelmointiesimerkki:

Dim Img

sub CheckFile (strFileName)
set Img = Server.CreateObject ("ImgSize.Check")
Img.FileName = strFileName
if Img.Error <> "" then
Response.Write "Kuvan käsittelyssä tapahtui virhe."
Response.Write "Virhe: " & Img.Error & ""
else
Response.Write "Kuva " & strFileName & " luettu"
Response.Write "Korkeus: " & Img.Height & ""
Response.Write "Leveys: " & Img.Width & ""
end if
set Img = nothing
end sub

CheckFile Server.MapPath("orangearrow2.jpg")

Add Feedback