-
-
-
'::: bmp, gif, jpg และ png :::
-
-
-
'::: ฟังก์ชั่นนี้ได้รับจำนวนไบต์ที่ระบุจาก :::
'::: ไฟล์เริ่มต้นที่ชดเชย (ฐาน 1) :::
-
'::: ผ่าน: :::
'::: flnm => filespec ของไฟล์ที่จะอ่าน :::
'::: ออฟเซ็ต => ชดเชยที่จะเริ่มอ่าน :::
'::: 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)
ถ้า strtype = strgif แล้ว 'คือ gif