解放军452医院体检程序:vb winsock控件如何做才能使局域网传输文件的速率达到极限值

来源：百度文库编辑：神马品牌网时间：2024/04/30 07:35:47

vb winsock控件如何做才能使局域网传输文件的速率达到极限值？

我做的winsock局域网传输文件，速度只有2-3M之间，后来干脆只有几百K,100M的局域网传输速度应该能达到9-10M。

我服务器端用winsock,客户端用HTTP下载文件
Dim buffsize As Long
buffsize = 16384
Dim myByteSize As Long
myByteSize = buffsize
Dim myByte() As Byte

Do While Loc(FileHandle) < LOF(FileHandle)
If LOF(FileHandle) - Loc(FileHandle) < buffsize Then
myByteSize = LOF(FileHandle) - Loc(FileHandle)
End If
ReDim myByte(myByteSize - 1)

Get #FileHandle, , myByte

Winsock1(Index).SendData myByte

DoEvents
Sleep 1
Loop

vb winsock控件如何做才能使局域网传输文件的速率达到极限值在VB中如何winsock控件? vb中的WinSock控件如何设置代理. 在vb 中如何调出winsock 控件？如何使用Winsock控件(VB/VB.NET) 在VB中的控件winsock vb中添加winsock控件如何制作winsock控件在VB中什么是winsock控件？ vb中WINSOCK控件的DataArrival事件