利用Winsocket控件实现C/S结构，主要实现发送接收Excel文件的功能？

2002-06-24 01:26:38 83 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

openMVS ---dense point cloud（代码理解） openMVS ---dense point cloud（代码理解）0 代码实现原理1 代码实现步骤1.1 参数传递1.2 loading .mvs数据1.3 稠密重建1.3.0 相关变量及概念1.3.1 ComputeDepthMaps(data) --计算多张深度图1.3.1.1. pre1.3.1.2 为每一张depth map Select view（s）！！！1.3.1.2.1 N neighbors --- global score + filter1.3.1.2.2 MRF ---- t 阅读详情

小弟利用Winsocket控件实现C/S结构，主要实现实户端发送，服务器端接收Excel文件的功能，不知如何操作，请各位大哥帮忙!!!

...全文

从零构建eSIM RSP服务：云原生架构与GSMA合规实践本文详细阐述了从零开始构建一个符合GSMA SAS-SM安全标准的云原生eSIM RSP服务的完整路径。内容涵盖云原生基础设施选型、容器化部署、GSMA标准接口集成，并重点分享了通过SAS-SM安全审计的实战经验与避坑指南，为物联网及智能设备企业自建可控的远程SIM配置服务提供了系统性的解决方案。阅读详情

yuercf

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

yuercf 2002-07-01

打赏
举报

太谢谢你了

hezhongxia 2002-06-29

打赏
举报

对不起，你的邮件我发了，就是发不出去，每次都被打了回来。
现在我给你关键代码。(如果你现在在网上的话，请连系我，我的QQ：28711743)
接收端：
注1: 最好定义一个全局字符变量 strTXT,Lenx as Long型变量
strTXT="FileSize" 接收文件大小字节(此变量先设置)
strTXT="File" 接收文件

private sub form_load()
Winsock1.Close
Winsock1.LocalPort = 3016
Winsock1.Listen
end sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Winsock1.SendData "FileLenx"
End Sub

'以下这个事件是Winsock1收到数据时发生的
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim lenx as long
select case strtxt
case "FileSize" '接收文件大小
Winsock1.GetData lenx
Winsock1.SendData "File"
strTXT="File"
Case "File"
On Error GoTo errx
ReDim bytx(Lenx) As Byte
If bytesTotal >= Lenx Then
Winsock1.PeekData bytx, vbArray + vbByte, Lenx
Dim l As Long
l = FreeFile
Open "c:\Excl.xls" For Binary Access Write As #l
Put #1, , bytx
Close #l
msgbox "收到文件 C:\Excl.xls"
ReDim bytx(0)
End If
end select
End Sub

'以下是发送端(全局变量同上)
Private sub command1_click()
Winsock1.Close
Winsock1.RemoteHost ="10.10.1.1"
Winsock1.RemotePort = 3016
Winsock1.Connect
end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim i As Long
Winsock1.GetData strTXT
Select Case strTXT
Case "FileLenx"
lenx=filelen("c:\book1.xls")
Winsock1.SendData lenx
Case "File"
ReDim bytt(Lenx) As Byte
Dim l As Long
l = FreeFile
Open "c:\book1.xls" For Binary Access Read As #l
Get #l, , bytt
Close #l
Winsock1.SendData bytt
ReDim bytt(0)
ens select
End Sub

实在对不起，这是我现写的，如果有什么问题请连系我。
注:主要注意使用Open 打开文件，读出二进制数数据，发送二进制数据-->接收二进制数据，然后还原文件。主要思路是这样的。

yuercf 2002-06-25

打赏
举报

有没有人帮忙呀，小弟实在别无办法，只有求助csdn中的高手了

yuercf 2002-06-25

打赏
举报

我已经发过了，就不见回音

yuercf 2002-06-25

打赏
举报

老大我已经给他发邮件了呀

SleepKyo 2002-06-25

打赏
举报

你要发个邮件通知他啊~~~~不要在这里瞎等~~~~他不是叫你发个邮件给他通知他你要源程序吗？？

yuercf 2002-06-25

打赏
举报

hezhongxia(老厶）太没信用了，说好了，却没有给我发过来，难道担心不给分，也太小气了吧！

yuercf 2002-06-25

打赏
举报

小弟只想要针对Excel文件的传送接收方面的代码！！！帮忙呀

xxlroad 2002-06-24

打赏
举报

希望这个对你有点用

他可以下文件

http://www.21code.com/codebase/?pos=down&id=756
源码简介：
这个实用程序允许你通过TCP/IP，远程重新启动, 登录-离开, 下载文件, 删除文件, 调用应用程序,自动打开一个浏览器浏览网址，并且查看桌面

yuercf 2002-06-24

打赏
举报

我等到花儿也谢了！

yuercf 2002-06-24

打赏
举报

yuercf 2002-06-24

打赏
举报

大哥，你在吗？为什么没有给我发过来？

hello8118 2002-06-24

打赏
举报

huhexu@hotmal.com

hello8118 2002-06-24

打赏
举报

我也要一份，谢谢up!

yuercf 2002-06-24

打赏
举报

怎么还没有发过来？？？？？

yuercf 2002-06-24

打赏
举报

我的Email是：cf0805@sohu.com
太谢谢你了！

hezhongxia 2002-06-24

打赏
举报

在这果里写代码，不好看，你也不一定理解，如果需要原程序的话，可以把Email告诉我。
也可以发Email给我，hezhongxia@sina.com
我有一个自己编的网络监视器可以得到对方的屏幕锁定对方等。运行方式是TCP/IP方式，得到对方的屏幕就是把对方机器上的文件通过WinSock在TCP/IP下传送到本机来，用来二进制文件的读写，把Excel文件读成二进制数据，再还原是可以的。我原来写一个报表传递程序就是这样实现的。

利用Winsocket控件实现C/S结构，主要实现发送 接收Excel文件的功能？

相关推荐

利用Winsocket控件实现C/S结构，主要实现发送接收Excel文件的功能？