Hent og brug dimensioner på billede

Du skal bruge er object i stil med AspImage. Jeg husker at der er et gratis objekt der kan det, leder lige lidt ...

Det kræver selvfølgelig enten at komponenten er indstalleret på serveren eller at du har rettigheder til at indstallere den :o)
Jeg har fx et billigt webhotel hvor der ikke er billede komponenter, og de vil ikke indstallere mere eftersom det er billigt
I sådan tilfælde er det lidt "bad luck"

Alternativt skal du selv over i at læse binary streams med ADO og tolke headers... meeen det er lidt langhåret, så det er nok ikke den første løsning.

http://www.serverobjects.com/comp/imgsize.zip

Den klarer det, er gratis og der er en demo med

Og ja, du skal jo have lov til at installere den på serveren. Hvis du ligger hos en udbyder er der en god chance for at der allerede er installeret et komponent der kan det.

ellers vil koden herunder klare det hvis du kan få rettighederne til mappen med billeder ændret:

<%
dim iWidth, iHeight, iType
sub ImgDimension(img)
    dim myImg, fs
    Set fs= CreateObject("Scripting.FileSystemObject")
    if not fs.fileExists(img) then exit sub
    set myImg = loadpicture(img)
    iWidth = round(myImg.width / 26.4583)
    iHeight = round(myImg.height / 26.4583)
    iType = myImg.Type
    select case iType
    case 0
    iType = "None"
    case 1
    iType = "Bitmap"
    case 2
    iType = "Metafile"
    case 3
    iType = "Icon"
    case 4
    iType = "Win32-enhanced metafile"
    end select
    set myImg = nothing
end sub

' so if you whant to test it in asp just give the path to your image
ImgDimension(Server.MapPath("/images/logos/header.gif")


response.write("Dimensions: " & iWidth & " x " & iHeight & "<br>")
response.write("Image Type: " & iType & "<br>")
%>

ldanielsen send svar så sender jeg points det var da en fantastisk løsning, den er ikke testet endnu, men jeg forventer at have testet det inden midnat.

Men send svar :o)

Og mange tak for hjælpen til jer alle 3

Hilsen

duno :o)

Tak

Selv tak :o)