VB winsock文件传输
DimmyFile()AsByteDimmyLongAsDoubleDimmyPathAsStringmyPath="c:\qwe.txt"ReDimmyFile(byt...
Dim myFile() As Byte
Dim myLong As Double
Dim myPath As String
myPath = "c:\qwe.txt"
ReDim myFile(bytesTotal - 1)
Winsock1.GetData myFile
Open myPath For Binary As #1 '新建文件
myLong = FileLen(myPath)
Put #1, myLong + 1, myFile '将收到的数据写入新文件中
Close #1
这段代码怎么改才可以 得到文件名并且保存到指定目录,别人发什么文件过来,这边就是什么文件 展开
Dim myLong As Double
Dim myPath As String
myPath = "c:\qwe.txt"
ReDim myFile(bytesTotal - 1)
Winsock1.GetData myFile
Open myPath For Binary As #1 '新建文件
myLong = FileLen(myPath)
Put #1, myLong + 1, myFile '将收到的数据写入新文件中
Close #1
这段代码怎么改才可以 得到文件名并且保存到指定目录,别人发什么文件过来,这边就是什么文件 展开
展开全部
在Winsock时你可以像Tcp发送报文一样 规定多少位到多少位是干什么用的
如
Dim s As String * 10
s = "1.txt"
winsock1.senddata s & "yourfile
那么在Winsock.getdata myfile时
trim(left(myfile,10))就是你的文本名称
right (myfile,len(myfile-10))就是你的文本内容
指定文本是你可以在
Winsock1.GetData myFile后用commondialog控件来自己指定或者用Dirver与Dir控件来决定路径
如
Dim s As String * 10
s = "1.txt"
winsock1.senddata s & "yourfile
那么在Winsock.getdata myfile时
trim(left(myfile,10))就是你的文本名称
right (myfile,len(myfile-10))就是你的文本内容
指定文本是你可以在
Winsock1.GetData myFile后用commondialog控件来自己指定或者用Dirver与Dir控件来决定路径
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
上海莘默
2024-04-12 广告
{ODU}连接器是一种高效、稳定的连接解决方案，广泛应用于通信设备、数据中心和工业自动化等领域。我们莘默（上海）自动化设备有限公司致力于为客户提供优质的{ODU}连接器产品，确保网络连接的可靠性和高效性。我们的{ODU}连接器具有出色的电气...
点击进入详情页
本回答由上海莘默提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
