WINSOCK1传送文件问题

2007-12-05 05:26:51 168 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB中使用WinSock控件传送文件传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件时，我从网上下了很多传文件的程序，这些程序提供的传文件功能根本就不能用。传文本还可以，传二进制文件根本就不行。因此，作为一个基本的功能模块，有必要单独介绍一下。首先，在VB中要传送字符串，你可以这样写：Dim strData As StringstrData = "Test"Winsock1.SendData strDa 阅读详情

写了个WINSOCK传送文件的程序主要代码如下

发送端



Dim exe() As Byte

Open "d:\1.exe" For Binary As #1

ReDim exe(LOF(1)) As Byte

Get #1, , exe

Close #1

Winsock2.SendData exe

接受端



Dim bxb() As Byte

Winsock1.GetData bxb

Open "d:\2.exe" For Binary As #2

Put #2, , bxb

Close #2

Text2.Text = bxb

传送8K以下文件没问题可是 8K以上为什么传送过去就只有8K呢

...全文

WinSock实现多线程网络文件传输程序(二)(MFC+WinSock 附源代码) 上回对这个程序做了个简单的介绍,这回我来讲讲具体实现细节. 首先最主要的是加载套接字库在StdAfx.h中我们加入如下语句:#include 然后初始化套接字库,在App类中的InitInstance()函数中加入如下语句: if(!AfxSocketInit()) { AfxMessageBox("加载套接字库失阅读详情

tk600158

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

qcjqtvb 2007-12-07

打赏
举报

超过8k时，winsock会自动分包

vbman2003 2007-12-07

打赏
举报

超过8k时，winsock会自动分包，那个贴子上有示例啊



    Open "d:\1.exe" For Binary As #1

        ReDim exe(LOF(1)) As Byte

        Get #1, , exe

    Close #1



    '读出数据后不要急于发送，在结尾添加一个标志，供客户端判断是否完整的接收到了数据。比如：

     

    Dim arrLength As Long

    arrLength = UBound(exe)

    '添加结束标志

    dim FinisData() as byte

    FinisData = "`!"

    ReDim Preserve arrData(arrLength + 4)

    CopyMemory exe(arrLength + 1), FinisData(0), 4

    '向客户端发送数据

    Winsock1(Index).SendData exe

   DoEvents





    '接收端

    Dim bxb() As Byte

    Dim Finis As String, FinisData(3) As Byte   '结尾标志

    Static mData() As Byte  '完整的数据

    Static mLength As Long

    Static iCount As Integer

    '接收数据

    Winsock1.GetData bxb

    '保存分包收到的数据

    If iCount = 0 Then              '第一次接收

         mData = bxb

        iCount = 1

    Else

        ReDim Preserve mData(mLength + bytesTotal)

        CopyMemory mData(mLength + 1), bxb(0), bytesTotal

    End If

    mLength = UBound(mData)   

    

    '判断结尾(结尾4个字节)

    CopyMemory FinisData(0), mData(mLength - 3), 4

    Finis = FinisData

    If Finis = "`!" Then

        '如果是结尾，截断结尾标志数据

        ReDim Preserve mData(mLength - 4)

       '写入文件

        Open "d:\2.exe" For Binary As #2

           Put #2, , mData

       Close #2

        

        Erase mData

        iCount = 0

        mLength = 0

        MsgBox "OK"

    End If

思路就这样，没有测试，下班了......

tk600158 2007-12-07

打赏
举报

可以说说怎么分包不
比如



Open "d:\1.exe" For Binary As #1

ReDim exe(LOF(1)) As Byte

Get #1, , exe

Close #1

现在把二进制数据读到exe数组中间了
怎么实现1次发8K？
我知道如果这样发送



Open "d:\1.exe" For Binary As #1

ReDim exe(LOF(1)) As Byte

Get #1, , exe

Close #1

for a=0 to ubound(exe)-1

Winsock2.SendData exe

doevents

next

对方写



Dim bxb() As Byte

Winsock1.GetData bxb

Open "d:\2.exe" For Binary As #2

Put #2, , bxb

Close #2

Text2.Text = bxb

这样每次发数组中的一个数据对方是可以接受的
但是这样1个1M文件起码发半天
谁帮忙优化下

vbman2003 2007-12-06

打赏
举报

http://topic.csdn.net/u/20071129/14/2b639fb5-4b3d-42fa-a0ec-e8758632d2e3.html

tk600158 2007-12-05

打赏
举报

晕都没人回答啊

tk600158 2007-12-05

打赏
举报

不知道怎么弄了还望高手赐教

WINSOCK1传送文件问题

相关推荐