-
-
-
'' ::: bmp, gif, jpg และ png :::
-
-
-
'' ::: ฟังก์ชั่นนี้ได้รับจำนวนไบต์ที่ระบุจาก :::
'' ::: ไฟล์เริ่มต้นที่ชดเชย (ฐาน 1) :::
-
'' ::: ผ่าน: :::
'' ::: flnm => filespec ของไฟล์ที่จะอ่าน :::
'' ::: Offset => ชดเชยที่จะเริ่มอ่าน :::
'' ::: bytes => ต้องอ่านกี่ไบต์ :::
-
-
ฟังก์ชั่น getBytes (FLNM, ออฟเซ็ต, ไบต์)
Dim objfso
dim objftemp
สลัว objtextstream
สลัว lngsize
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objfso = createObject (scripting.filesystemobject)
'' ก่อนอื่นเราได้รับไฟล์
ตั้งค่า objftemp = objfso.getFile (flnm)
lngsize = objftemp.size
ตั้งค่า objftemp = ไม่มีอะไร
fsoforreading = 1
ตั้งค่า objtextstream = objfso.opentextfile (flnm, fsoforreading)
ถ้าชดเชย> 0 แล้ว
strbuff = objtextstream.read (ออฟเซ็ต - 1)
สิ้นสุดถ้า
ถ้า bytes = -1 แล้ว 'ได้รับทั้งหมด!
getBytes = objtextstream.read (lngsize) '' readall
อื่น
getBytes = objtextstream.read (ไบต์)
สิ้นสุดถ้า
objtextstream.close
ตั้งค่า objtextstream = ไม่มีอะไร
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
-
'' ::: ฟังก์ชั่นในการแปลงสองไบต์เป็นค่าตัวเลข (ยาว) :::
'' ::: (ทั้งคู่น้อยและใหญ่ที่สุด) :::
-
-
ฟังก์ชั่น lngconvert (strtemp)
lngConvert = clng (asc (ซ้าย (strtemp, 1)) + ((asc (ขวา (strtemp, 1)) * 256))))))))))))))))))))
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น lngconvert2 (strtemp)
lngConvert2 = clng (asc (ขวา (strtemp, 1)) + ((asc (ซ้าย (strtemp, 1)) * 256)))))))))))))))))))))
ฟังก์ชันสิ้นสุด
-
-
'' ::: ฟังก์ชั่นนี้ทำงานได้จริงส่วนใหญ่ มันจะพยายาม :::
'' ::: เพื่ออ่านไฟล์ใด ๆ โดยไม่คำนึงถึงส่วนขยายและจะ :::
'' ::: ระบุว่าเป็นภาพกราฟิกหรือไม่ -
-
'' ::: ผ่าน: :::
'' ::: flnm => filespec ของไฟล์ที่จะอ่าน :::
'' ::: ความกว้าง => ความกว้างของภาพ :::
'' ::: ความสูง => ความสูงของภาพ :::
'' ::: ความลึก => ความลึกสี (ในจำนวนสี) :::
'' ::: strimageType => ประเภทของภาพ (เช่น gif, bmp ฯลฯ ) :::
-
-
ฟังก์ชั่น gfxspex (flnm, ความกว้าง, ความสูง, ความลึก, strimagetype)
สลัว strpng
Dim strgif
Dim strbmp
สลัดสลัว
strtype =
strimageType = (ไม่ทราบ)
gfxSpex = false
strpng = Chr (137) & Chr (80) & Chr (78)
strgif = gif
strbmp = Chr (66) & Chr (77)
strtype = getBytes (flnm, 0, 3)