社区
VB基础类
帖子详情
用winsock接收数据
doudoushen
2003-09-04 08:57:45
机器发出信数据(用c写的)以前是用vc接收的 我现在用winsock接收 问题是我收到的有数字,乱码 请问如何解决 谢谢
...全文
99
8
打赏
收藏
用winsock接收数据
机器发出信数据(用c写的)以前是用vc接收的 我现在用winsock接收 问题是我收到的有数字,乱码 请问如何解决 谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
doudoushen
2003-09-10
打赏
举报
回复
没人回答吗
doudoushen
2003-09-09
打赏
举报
回复
好象不行啊 总说报文太大
jlum99
2003-09-08
打赏
举报
回复
直接用byte数组接受吧
doudoushen
2003-09-08
打赏
举报
回复
各位 我是用string形式收的 然后用ascii转成10进制 最后转成16进制 但总有其他“渣滓”请问如何解决
最好有例子
谢谢
doudoushen
2003-09-05
打赏
举报
回复
谢谢 chao778899(220330 据写vc的朋友说 vb能否在内存中开辟一个区 专门管理接受数据
girl888
2003-09-05
打赏
举报
回复
StrConv试试
doudoushen
2003-09-05
打赏
举报
回复
有人知道吗
chao778899
2003-09-04
打赏
举报
回复
试一下
StrConv(string,64)
winsock
收发数据AsyncSelect型
一种
winsock
的套接字I/O模型 给需要的人
winsock
传输,曲线显示接收端接收到数据
这也算是我在前人的基础上摸索的东西,借鉴的资料是本社区内的。名字为“使用
winsock
传输并显示图片的例” 它这个是显示接收到图片,而我的是txt文件。因为有的时候我们会把数据保存在txt文件中。当你想从txt文件中读取这些数据并曲线综合显示的话,可以用一用。这其中用到NTGraph控件,需要提醒你的是,别忘记使用是一定要注册。注册的方法是在运行中输入:regsvr32+NTGraph.ocx所在的路径。
Socket编程系列之2:Windows-API网络编程入门实战
Socket编程系列初步计划:Socket编程系列之1: Linux-API 网络编程入门实战Socket编程系列之2: Windows-API 网络编程入门实战Socket编程系列之3: Muduo 网络编程入门实战Socket编程系列之4: Libevent 网络编程入门实战Socket编程系列之5: Libcurl 网络编程入门实战Socket编程系列之6: Boost-ASIO 网络编程入门实战----------------------------------------------------Socket编程系列之2:Windows-API网络编程入门实战l
Winsock
编程接口l UDP程序设计l TCP套接口函数l Web客户/服务器程序l 基于windows的IO复用机制l UDP广播和多播l 套接字选项l Windows套接字I/O模型l 原始套接字与ICMPl WinInet简介与案例实战
winsock
收发结构体
花了一天时间做了个C/S socket通信有关收发结构体的程序。受益于开源的环境,也想做点东西回馈万一。
使用vbRichClient代替
winsock
,实现局网多客户端非gui数据收发
发现网上关于vbrichclient的教程比较少,但这个实在是好东西,实用性,稳定性都比VB自带的
winsock
好的多,多客户端不用
winsock
控件数组。 也不用在各窗体上放
winsock
,直接在模块中就能实现收发 下面直接上代码,窗体和文本钮、按钮大家自行拖放。要用到VB自带隐藏函数varptr()取内存指针(VbMsdn中没有这个函数,实际上很简单^^)。 VbRichClient5.0.38中包含sqlite3.9支持 上面共享中也包含VbRichClient5.0.38支持库 VbRichClient代替
winsock
主要使用 cTCPServer cTCPClient cUDP '--------------------------------------------------------------------- '服务器端,代码最简化,要实现多客户端只要用数组存hsocket就可以 Option Explicit Dim WithEvents sv As cTCPServer Dim WithEvents udp1 As cUDP Dim cHsocket& Private Sub Form_Load() Set sv = New cTCPServer sv.Listen sv.GetHost("127.0.0.1"), 35912 Debug.Print sv.GetHost("") Set udp1 = New cUDP udp1.Bind "127.0.0.1", 5616 End Sub Private Sub sv_DataArrival(ByVal hSocket As Long, ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) sv.GetData hSocket, VarPtr(d(0)), BytesTotal '★★关键代码 s = d Text2.Text = Text2.Text & s & vbCrLf Debug.Print "收到:" & BytesTotal End Sub Private Sub sv_TCPAccepted(ByVal hSocket As Long) cHsocket = hSocket Text1.Text = Text1.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub sv_TCPDisConnect(ByVal hSocket As Long) Text3.Text = Text3.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) udp1.GetData VarPtr(d(0)), BytesTotal s = d Text2.Text = Text2.Text & s & vbCrLf End Sub '------------------------------------------------------- '客户端 Option Explicit Dim WithEvents cl As cTCPClient Dim WithEvents udp1 As cUDP Dim cid& Private Sub Command1_Click() cid = cl.Connect("QgB1", 35912) End Sub Private Sub Command2_Click() cl.Disconnect cid End Sub Private Sub Command3_Click() Dim b() As Byte b = Text1.Text cl.SendData cid, VarPtr(b(0)), UBound(b) + 1 End Sub Private Sub Command4_Click() Dim d() As Byte, s$ s = "yessss" d = s udp1.RemoteIP = "127.0.0.1" udp1.RemotePort = 5616 u
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章