Office中国论坛/Access中国论坛

标题: winsock技术原理 [打印本页]

作者: sxhmft 时间: 2003-11-10 22:54
标题: winsock技术原理
winsock技术原理[attach]2409[/attach]

作者: 阿罗 时间: 2003-11-11 04:11
请版主将一些资料性东西及时归类以便查找。

作者: sxhmft 时间: 2003-11-19 18:37
利用Winsock控件实现局域网通信(一)

　　Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。

　　Winsock控件可以使用两种协议：TCP协议和UDP协议，下面来分别介绍。

　　TCP协议即数据传输协议，它允许创建和维护与远程计算机的连接，使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。

　　在创建客户应用程序时，必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性)，然后调用Connect方法。

　　创建服务器应用程序时，就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect)，就会发生ConnectionRequest事件。为了完成连接，你可以在ConnectionRequest事件中调用Accept方法。建立连接后，任何一方计算机都可以发送、接收对方数据。如果你要发送数据，需调用SendData方法。当接收到数据时，会发生DataArrival事件，调用DataArrival事件中的GetData方法就可以获得对方传送的数据。

　　如果只有两台计算机，那十分容易。假设甲机为客户机，乙机为服务器，且其IP为192.192.192.1，接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件，起名为sckconnect，并设置其属性：RemoteHost=“192.192.192.1”，(即甲机IP地址)，RemotePort=1200(即甲机侦听端口)；再在乙机服务器程序中假如一个名为sckserver(0)的Winsock控件，其LocalPort=1200，
　　在乙机服务器程序中Form_Load()加入

　　sckserver(0).bind sckserver(0).LocalPort '与本地端口绑定

　　sckserver(0).listern ' 侦听

　　如果要传输数据，两机必须先建立连接。建立连接的程序如下：

　　甲机客户机要先请求连接

　　sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort

　　此句执行时会触发服务器程序中的ConnectRequest事件，在此过程中决定是否建立连接，其代码如下：

　　Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)

　　if sckserver.count=1 then

　　load sckserver(1)

　　sckserver(1).accept requestId

　　end if

　　end sub

　　连接建立好以后，甲机或乙机都可以应用SendData方法来传送数据。例如，如果是甲机要传送一个叫string的
字符串，只需在代码中加入：

　　sckconnect.SendData string

　　甲机传送数据后，会触发乙机的DataArrival事件，在其过程中用GetData方法可以收到传送的数据：

　　Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)

　　dim sdata as string

　　sckserver(1).GetData sdata,vbstring

　　end sub

　　最后别忘了在关闭程序前要先关闭Winsock控件

　　privat sub form_unload(cancel as integer)

　　if sckconnect.state <>sckclosed then

　　sckconnect.close

　　end if

　　end sub
　　这只是最简单的情况，如果有多台计算机，那就稍微复杂一些，客户端程序可以不做改动，而服务器端程序需要略做改动：
　　Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)

　　dim sip as string

　　dim I as integer

　　sip=sckserver(0).RemoteHostIP '获得登录者的IP地址

　　I=1

　　Do while I<=sckserver.ubound '检查是否已经有该地址的记录

　　If sckserver(I).RemoteHostIP=sip then '如有，不必加载新的控件

　　Sckserver(I).Accept requestid

　　Exit sub

　　End if

　　I=I+1

　　Loop

　　Load sckserver(I) '否则，加载新的控件

　　Scksrver(I).accept requestID

　　End sub
　　注意到：以上的信息交谈实际上都发生在客户机与服务器之间，如果要做成聊天室那样，每个人的话都可以被别人“听到”，那就要在服务器端的DataArrival事件中，把接收到的客户机传来的数据，转发给所有客户机即可。

　　其循环转发信息的代码如下：
　　For I=1 to sckserver.count

　　if sckserver(I).state<>sckclosed then

　　sckserver(I).SendData sdata

　　end if

　　next I
　　怎么样，这样我们就作好了自己的通信软件!

　　不过，不知大家注意到没有，上述程序都需要有一台计算机做为服务器，但如果我们的局域网中没有哪台计算机是可以常开的，也就是说，如果服务器端程序没有运行的话，其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少，我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗?
利用Winsock控件实现局域网通信(二)

　　UDP协议也称为用户数据报文协议，是一个无连接协议。何谓无连接协议?就是说利用此协议连接时，不必象TCP协议

作者: appleking 时间: 2009-3-24 01:47
楼主能否具体讲讲，access 的 UDP通信啊，，最好做个实例供大家学习交流啊。！小弟不材，看了文章后可还是一直没做成，非常遗憾！控件一直没法添加，说是access不支持此类控件。希望楼主能赐教！

作者: csmsg789 时间: 2009-5-9 12:24

利用Winsock控件实现局域网通信(一)

　　Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步 ...
sxhmft 发表于 2003-11-19 18:37

楼主能否具体讲讲，access 的 UDP通信

作者: xjb_test 时间: 2009-7-19 01:27
学习了

作者: alexliu2009 时间: 2009-8-11 16:46
学习了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)