<%
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: bmp, gif, jpg und png ::::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: :::
'' ::: Diese Funktion erhält eine bestimmte Anzahl von Bytes von allen :::
'' ::: Datei, beginnend am Offset (Basis 1) :::
'' ::: :::
''::: Bestanden: :::
'' ::: flnm => filespec der Datei zu lesen :::
'' ::: Offset => Offset, bei dem ich mit dem Lesen beginnen soll :::
'' ::: bytes => Wie viele Bytes zu lesen :::
'' ::: :::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::
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 die 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 '' bekomme alles!
GetBytes = objtextstream.read (lngsize) '' readall
anders
GetBytes = objtextstream.read (Bytes)
Ende wenn
objtextstream.close
objtextstream einstellen = nichts
Setzen Sie objfso = nichts
Endfunktion
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: :::
'' ::: Funktionen, um zwei Bytes in einen numerischen Wert zu konvertieren (lang) :::
'' ::: (sowohl Little-Endian als auch 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 wird versuchen :::
'' :::, um eine Datei zu lesen, unabhängig von der Erweiterung, und Will :::
'' ::: Identifizieren Sie, ob es sich um ein grafisches Bild handelt. :::
'' ::: :::
''::: Bestanden: :::
'' ::: flnm => filespec der Datei zu lesen :::
'' ::: width => bildes bild :::
'' ::: HEIGHT => Bildhöhe :::
'' ::: Tiefe => Farbtiefe (in Anzahl von 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)