<%
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: 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 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
':::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: 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 :::
'::: 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