-
-
-
'::: bmp, gif, jpg และ png :::
':::: ดั้งเดิม: Junyd :::::::::::::
- -
-
'::: สิ่งนี้จะได้รับไบต์จาก BMP, GIF, JPG และ PNG Pictures :::::
-
ฟังก์ชั่น 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 = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
-
'::: ต่อไปนี้เป็นหน้าที่ของการแปลงสองไบต์ให้เป็นค่ารวม :::
'::: (endian ขนาดเล็กและใหญ่ใหญ่) :::
-
-
ฟังก์ชั่น 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
strimageType = gif
ความกว้าง = lngConvert (getBytes (flnm, 7, 2))
ความสูง = lngConvert (getBytes (flnm, 9, 2))
ความลึก = 2 ^ ((asc (getBytes (flnm, 11, 1)) และ 7) + 1)
gfxSpex = true
elseif left (strtype, 2) = strbmp จากนั้น 'คือ bmp
strimageType = bmp