怎样快速读取BMP图像文件

[miranda516]

我是想通过WINSOCK控件传输BMP图像，目前传输一幅2OOK的图像需要2-3秒，我使用OPEN语句实现，能否快速读取？

[miranda516]

各位请提点意见吧！

[miranda516]

大家帮帮忙吧！

[zqfleaf]

我想问题不在读取，而在于传送

[miranda516]

我在本地传送的速度也需要2秒，我想问题出在读上面。

[zyl910]

你是怎么读的？

[miranda516]

我是这么读的：
Open CommonDialog1.FileName For Binary As #1
ReDim PData(t) As Long
Do While Not EOF(1)
Get #1, , PData(i)
i = i + 1
Loop

[miranda516]

有没有更好的读取方法，各位请帮帮忙。

[zyl910]

这样读当然慢

一次性读快些

Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

[zyl910]

你是怎么传送的？

循环读取数组很慢（因为计算数组元素地址需要一些列运算）

[miranda516]

Do While i < t / 4 + 1
tcpServer.SendData PData(i)
i = i + 1
Loop
其中t=lof(1)

[zyl910]

果然
循环读取数组很慢


这方面我不熟
我想知道，能不能这样：
tcpServer.SendData PData

[miranda516]

这样应该不行的吧。我实在想不出还有什么方法了。

[zyl910]

试过没有？


我觉得应该可以

SendData的data参数的类型是Variant
Variant能包含数组

[miranda516]

我的bmp图片有217k,共222262个字节，用byte　传送读取稍慢，所以我用long作为单位。