Læsning af højde og bredde i bitmap filer

Jeg er lige med på en lytter - skal bruge noget i retning af det samme...

Det følgende eksempel virker ikke, hvis dit hotel ikke understøtter ImageSize og ASPupload!!

Først connecter du til en database

Session("MyConn") = "DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"\database.mdb;" &_
"DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"\;" &_
"Driver={Microsoft Access Driver (*.mdb)};"

Herefter uploader du billedet til en valgfri sti på dit webhotel:

Set Upload = Server.CreateObject("Persits.Upload.1")
      Upload.OverwriteFiles = True
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual ("/billeder/")

Så finder serveren højde + bredde på billedet

Dim Img

      sub CheckFile (strFileName)
        set Img = Server.CreateObject ("ImgSize.Check")
        Img.FileName = strFileName
        if Img.Error <> "" then
              Response.Write "Der skete en fejæ!<br>"
              Response.Write "Fejlen var: <b>" & Img.Error & "</b>"
    end if
        end sub

og lægger det ind i en database

For Each File in Upload.Files

    CheckFile ("" & Request.ServerVariables("APPL_PHYSICAL_PATH")&"dvd\graphics\covers\" & File.ExtractFileName & "")

        File.ToDatabase Session("MyConn"), "insert into Titler(Titel, Region, Format, Ejere, Cover, Width, Height) " &_
        "values('" & Upload.Form("Titel") & "', '" & Upload.Form("Region") & "','" & Upload.Form("Format") & "','" & Upload.Form("Ejere") & "','" & File.ExtractFileName & "','" & Img.Width & "','" & Img.Height & "')"
        if Err <> 0 Then
          Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
       
    Else

          Response.Write headerfont & "<br>billedet er nu tilføjet til databasen!</strong></font>"
          Response.Write font & "<br><br><a href='add.asp'>Tilføj endnu et billede</a><br>"
          Response.Write font & "<a href='/default.asp?id=billeder'>Se tilføjede billeder</a><br>"
   
    End If
      Next

sådan

Jeg regner med, at du selv kan finde ud af at tilpasse det ...
!

Tak for dit svar - jeg kan fint burge det, men jeg søger egentlig en vba funktion der kan aflæse et billedes højde og bredde.

Så skal du bruge en kompunent, der hedder ImageSize -- den understøttes bla. af NETsite ..

http://www.netsite.dk/support.asp?menu=support.asp&support=aspkomp

Se selve kompuntenten på

http://www.serverobjects.com/products.htm#free

God fornøjelse!