�hm... ja... ich check das mal. danke :-)
ubject: [aspdecoffeehouse] AW: Bildabmessungen ermitteln
>
>
> Hier einSkript, das ich mal genutzt habe. Ich biete aber
> keinen Support ;-)
>
> <%
>
> ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
> ::::::::::::::
> ::::::::::
> '::: blah blah blah blah blah blah blah blah blah blah blah blah :::
> '::: blah blah blah blah blah blah blah blah blah blah blah blah :::
> '::: blah blah Copyright *c* MM, Mike Shaffer blah blah :::
> '::: blah blah ALL RIGHTS RESERVED WORLDWIDE blah blah :::
> '::: blah blah Permission is granted to use this code blah blah :::
> '::: blah blah in your projects, as long as this blah
> blah :::
> '::: blah blah copyright notice is included blah
> blah :::
> '::: blah blah blah blah blah blah blah blah blah blah blah blah :::
> '::: blah blah blah blah blah blah blah blah blah blah blah blah :::
>
> ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
> ::::::::::::::
> ::::::::::
>
> function GetBytes(flnm, offset, bytes)
> Dim objFSO
> Dim objFTemp
> Dim objTextStream
> Dim lngSize
> on error resume next
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> ' First, we get the filesize
> Set objFTemp = objFSO.GetFile(flnm)
> lngSize = objFTemp.Size
> set objFTemp = nothing
> fsoForReading = 1
> Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
> if offset > 0 then
> strBuff = objTextStream.Read(offset - 1)
> end if
> if bytes = -1 then ' Get All!
> GetBytes = objTextStream.Read(lngSize) 'ReadAll
> else
> GetBytes = objTextStream.Read(bytes)
> end if
> objTextStream.Close
> set objTextStream = nothing
> set objFSO = nothing
> end function
> function lngConvert(strTemp)
> lngConvert = clng(asc(left(strTemp, 1)) +
> ((asc(right(strTemp, 1)) *
> 256)))
> end function
> function lngConvert2(strTemp)
> lngConvert2 = clng(asc(right(strTemp, 1)) +
> ((asc(left(strTemp, 1)) *
> 256)))
> end function
> function gfxSpex(flnm, width, height, depth, strImageType)
> dim strPNG
> dim strGIF
> dim strBMP
> dim strType
> strType = ""
> strImageType = "(unknown)"
> gfxSpex = False
> strPNG = chr(137) & chr(80) & chr(78)
> strGIF = "GIF"
> strBMP = chr(66) & chr(77)
> strType = GetBytes(flnm, 0, 3)
> if strType = strGIF then ' is GIF
> strImageType = "GIF"
> Width = lngConvert(GetBytes(flnm, 7, 2))
> Height = lngConvert(GetBytes(flnm, 9, 2))
> Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
> gfxSpex = True
> elseif left(strType, 2) = strBMP then ' is BMP
> strImageType = "BMP"
> Width = lngConvert(GetBytes(flnm, 19, 2))
> Height = lngConvert(GetBytes(flnm, 23, 2))
> Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
> gfxSpex = True
> elseif strType = strPNG then ' Is PNG
> strImageType = "PNG"
> Width = lngConvert2(GetBytes(flnm, 19, 2))
> Height = lngConvert2(GetBytes(flnm, 23, 2))
> Depth = getBytes(flnm, 25, 2)
> select case asc(right(Depth,1))
> case 0
> Depth = 2 ^ (asc(left(Depth, 1)))
> gfxSpex = True
> case 2
> Depth = 2 ^ (asc(left(Depth, 1)) * 3)
> gfxSpex = True
> case 3
> Depth = 2 ^ (asc(left(Depth, 1))) '8
> gfxSpex = True
> case 4
> Depth = 2 ^ (asc(left(Depth, 1)) * 2)
> gfxSpex = True
> case 6
> Depth = 2 ^ (asc(left(Depth, 1)) * 4)
> gfxSpex = True
> case else
> Depth = -1
> end select
> else
> strBuff = GetBytes(flnm, 0, -1) ' Get all
> bytes from file
> lngSize = len(strBuff)
> flgFound = 0
> strTarget = chr(255) & chr(216) & chr(255)
> flgFound = instr(strBuff, strTarget)
> if flgFound = 0 then
> exit function
> end if
> strImageType = "JPG"
> lngPos = flgFound + 2
> ExitLoop = false
> do while ExitLoop = False and lngPos < lngSize
> do while asc(mid(strBuff, lngPos, 1)) = 255 and
> lngPos < lngSize
> lngPos = lngPos + 1
> loop
> if asc(mid(strBuff, lngPos, 1)) < 192 or
> asc(mid(strBuff, lngPos,
> 1)) > 195 then
> lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
> lngPos = lngPos + lngMarkerSize + 1
> else
> ExitLoop = True
> end if
> loop
> if ExitLoop = False then
> Width = -1
> Height = -1
> Depth = -1
> else
> Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
> Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
> Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
> gfxSpex = True
> end if
> end if
> end function
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objF = objFSO.GetFolder(server.mappath("../fileup/"))
> Set objFC = objF.Files
> %>
>
> Beste Gr��e | Michele Marsching
> Application Development
>
> KlickTick.de * Internetservices & -consulting http://www.klicktick.de
>
> [EMAIL PROTECTED]
>
> # -----Urspr�ngliche Nachricht-----
> # Von: Thomas Bandt [mailto:tb@;pim.de]
> # Gesendet: Mittwoch, 23. Oktober 2002 12:02
> # An: AspGerman Kaffeehaus
> # Betreff: [aspdecoffeehouse] Bildabmessungen ermitteln
> #
> #
> # Hi,
> #
> # gibt es einen Weg die Abmessungen einer Grafik ohne(!)
> # Komponente zu ermitteln? Wei� da jemand etwas, was ich
> # nicht wei�? ;-)
> #
> # Gru�, Thomas
> #
> #
> # | [aspdecoffeehouse] als [EMAIL PROTECTED]
> subscribed # |
> http://www.aspgerman.com/archiv/aspdecoffeehou> se/ =
> Listenarchiv # | Sie k�nnen sich unter folgender URL
> an- und abmelden: # |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
house.asp
#
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv Sie
| k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.as
| p
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
