对不起,我没有调试过,应该是
Dim S As String
S = ByteArray(i)
StrData = StrData + S
或者
StrData = StrData + CStr(ByteArray(i))
--------------------------------------------------------------------
另,如果需要速度,只有两种办法,图象压缩和把图象变小两种方法。图象压缩你可以尝试将彩色图象转换为灰度图象,或者更复杂的(坦率说,更复杂的方法我也不大清楚算法)
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)