7,762
社区成员
发帖
与我相关
我的任务
分享把一个大的二进制文件读到一个buffer里面可以这样写吗？为什么读到中间就会出现overflow?
Dim Data(Size2ndBoot - 1) As Byte
Do While cnt < Size2ndBoot
Data(cnt) = Asc(Input(1, #1))
cnt = cnt + 1
Loop
大家帮我看看啦
Do While cnt < Size2ndBoot
Data(cnt) = Asc(Input(1, #1))
cnt = cnt + 1
Loop
大家帮我看看啦
...全文
请发表友善的回复…
发表回复
lhaaaaaa 2004-07-14
- 打赏
- 举报
还有我想把integer类型转换成type类型应该用哪个强制类型转换的函数？
lhaaaaaa 2004-07-14
- 打赏
- 举报
Get 1, , data
是什么意思啊
是什么意思啊
lhaaaaaa 2004-07-14
- 打赏
- 举报
好我试一下
northwolves 2004-07-14
- 打赏
- 举报
这样读，快速且不会溢出：
Dim data() As Byte
Open "c:\win98\setup.bmp" For Binary As 1
ReDim data(1 To LOF(1) ) As Byte
Get 1, , data
Close 1
Dim data() As Byte
Open "c:\win98\setup.bmp" For Binary As 1
ReDim data(1 To LOF(1) ) As Byte
Get 1, , data
Close 1
faib920 2004-07-14
- 打赏
- 举报
分作几个数组吧
