<%
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP, GIF, JPG und PNG :::
':::: Original: junyd :::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: :::
'::: Dieses Ding kann Bytes von BMP-, GIF-, JPG- und PNG -Bildern bekommen :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
Funktion getBytes (FLNM, Offset, Bytes)
Dimer objfso
Dimer objftemp
Dimer Objtextstream
Dumm lngsize
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie OBJFSO = CreateObject (Scripting.FilesSystemObject)
'Erstens erhalten wir eine Dateigröße
Setzen Sie objftemp = objfso.getFile (FLNM)
lngSize = objftemp.size
Setzen Sie objftemp = nichts
fSoforReading = 1
SET OBJTEXTSTREAM = OBJFSO.OPENTEXTFILE (FLNM, FSOFORREADING)
Wenn Offset> 0 dann
strbuff = objTextStream.read (Offset - 1)
Ende wenn
Wenn Bytes = -1, dann erhalten Sie alles!
GetBytes = objtextstream.read (lngsize) 'readall
anders
GetBytes = objtextstream.read (Bytes)
Ende wenn
objtextstream.close
objtextstream einstellen = nichts
Setzen Sie objfso = nichts
Endfunktion
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: :::
'::: Folgendes ist die Funktion, zwei Bytes in einen einheitlichen Wert zu konvertieren :::
'::: (Small Endian und Big Endian) :::
':::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
Funktion LNGConvert (Strtemp)
lngconvert = clng (ASC (links (Strtemp, 1)) + ((asc (rechts (Strtemp, 1)) * 256)))
Endfunktion
Funktion LNGConvert2 (STRTemp)
lngconvert2 = clng (ASC (rechts (Strtemp, 1)) + ((ASC (links (Strtemp, 1)) * 256)))
Endfunktion
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: :::
'::: Diese Funktion erledigt den größten Teil der wirklichen Arbeit. Es ist bereit zu versuchen :::
'::: Lesen Sie eine Datei :::
'::: Wenn es sich um ein Bild eines Diagramms handelt, identifizieren Sie sich. :::
':::: :::
'::: Bestanden: :::
'::: flnm => filespec der Datei zu lesen :::
'::: breit => bildbreite ::::
'::: HEITH => Bildhöhe ::::
'::: Tiefe => Farbtiefe (in Anzahl der Farben) :::
'::: strimagetype => Bildtyp (zB GIF, BMP usw.) :::
':::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
Funktion GFXSPEX (FLNM, Breite, Höhe, Tiefe, Strimagetyp)
Dimes Strpng
Dim strgif
dimer strbmp
Dim Strtype
STRTYPE =
Strimagetype = (unbekannt)
gfxspex = false
STRPNG = CHR (137) & CHR (80) & CHR (78)
strgif = gif
strbmp = chr (66) & chr (77)
STRTYPE = GetBytes (FLNM, 0, 3)
Wenn Strype = strgif ist, dann ist 'GIF
strimagetype = gif
Width = lngconvert (getBytes (flnm, 7, 2))
Höhe = lngconvert (getBytes (flnm, 9, 2))
Tiefe = 2 ^ ((ASC (KETBYTES (FLNM, 11, 1)) und 7) + 1)
gfxspex = true
elseif links (strtype, 2) = strbmp dann 'ist BMP
strimagetype = bmp