欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  科技

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

程序员文章站 2023-12-24 11:32:39
利用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 
  怎么样,这样我们就作好了自己的通信软件!

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

上一篇:

下一篇: