本例是用winsock传送文件。下面的代码是服务端的。由客户端向服务端发送文件。客户端选好文件后,点击发送文件大小,然后点击发送文件。

Option Explicit
Option Base 1
Dim file() As

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 沦陷的痛

    19人对此回答表示赞同

    楼主:你的错误在于认为WinSock触发DataArrival事件时,所有的数据都已经到达,实际上不是这样的,这受到发送与接收缓冲区大小的限制,一般是8KB左右.
    你在DataArrival事件写了循环flength次,实际数据没有这么多,所以file(i)是越界.

    改正方法:
    Open Text1.Text For Binary As #5 '不要放在DataArrival里,不然每次有数据
    到达都要执行.
    file()变量也无需
    展开
    19
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 雪中向日葵

    2人对此回答表示赞同

    Option Explicit
    Option Base 1
    Dim file() As Byte
    Dim flag As Integer
    Dim flength
    Private Sub Command1_Click()
    If Winsock1.State <> 0 Then Winsock1.Close
    With Winsock1
    .LocalPort = txtport.Text
    .Bi
    展开
    2
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部