还是问下winsock的小问题,谢谢

1111111 1111111 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
WinS.SendData bytData
客户端,一到这里,就出问题.40006错误,所需事物或请求的错误协议或连接状态.如果再继续执行一下,就可以了.连接状态,我写了检查的代码SWinsock1.State如果没关,就关闭.不知道怎样解决?请高人指点.

这段代码是在sock服务端的DataArrival内写的.
Dim bytData() As Byte
Dim i As Long
Dim f
f = FreeFile
Dim strFileName As String
strFileName = "D:\c.zip"

Open strFileName For Binary As #f
ReDim bytData(1 To bytesTotal)
SWinsock1.GetData bytData
Put #f, i, bytData'这个i到底定义成什么类型???????????????????????
i = i + bytesTotal '保证每次写都是在文件的末尾, i是个全局变量
Close #f
怎样知道i的大小呢?

谢谢了,感激不尽~``
...全文

相关推荐

评论 12
收藏 已收藏
分享
返回顶部
1111111
VB基础类 7,788 成员 197,583 内容