用WinSock设计Chat程序

2016-02-19 19:23 4 1 收藏

下面请跟着图老师小编一起来了解下用WinSock设计Chat程序,精心挑选的内容希望大家喜欢,不要忘记点个赞哦!

【 tulaoshi.com - 编程语言 】

摘要:随着Internet的蓬勃发展,网络界面的交流使我们能够即时收到各地所发生的各项信息。我们在使用各种Browser浏览各网点时,只要Server能提供Chat(闲聊)的服务项目,我们就可以通过Browser所提供的Chat程序与网络上的其他使用者即时对谈及交流心得。本篇文章通过VisualBasic5.0所提供的WInSockcontrol,设计一个Chat应用程序。我们通过Client及Server之间的文件传输,可以了解Chat程序的工作原理。
  
  WinSockcontrol简介
  
  WinSock是windows系统提供的一种网络文件传输协议。以往我们使用WinSock设计程序时,必须调用系统提供的API来完成;但是在VisualBasic中调用API,因涉及参数传递类型,用起来并不方便。VisualBasic5.0提供WinSockcontrol简化我们的设计流程。它可以利用UserDatagramProtocol(UDP)或TransmissionControlProtocol(TCP),来设计网络的Client-Server程序。
  
  TCP是一种Connectionbase的Protocol,在文件传输时会先行建立Link,通过Link可确保文件传输的正确性;UDP则是一种Connectionless的Protocol,它在传输文件时不会确保传输端的文件能够正确无误的传送到接收端,所以当我们使用UDPprotocol时,我们通常要自己作接收确认的工作。
  
  UDPprotocol看起来好像比较没效率,其实不然!UDPprotocol有一个好处:当文件很小,或我们要做网络boardcast(广播)时,会比较有效率。所以了!当我们利用WinSock设计程序时,首先要依自己的需要,决定使用那一种protocol。本文将分别教您使用TCP及UDPProtocol来设计Chat程序。
  
  以TCP设计Chat程序
  
  Step1:找出Domainname及IPaddress
  
  在“我的电脑”中选择“控制面板”。Doubleclick“网络”选项,选择“标识”,您将会发觉您的计算机名称、工作组名等信息。将它记录起来,我们稍后会用到。
  
  Step2:设计TCPServer程序
  
  在File选项中选NewProject建立一个新的工程,在屏幕上会看到许多选项,如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等,选Standard.EXE。
  
  接着在Project下选择Property属性选项,在General选项下将ProjectName改为TCP-Server,并将Form名称及Caption更改为Server。在屏幕的Form上加入一个WinSockcontrol,取名为Tcps;加入两个TextBoxcontrol(Outtext、Intext),并在两个TextBox前加入两个label,分别将caption改为Outtext、Intext。
  〈TextBox〉
  
  Name
  
  ------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  〈Label〉
  
  Caption
  
  ----------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  在Form_Load()中加入以下程序代码,这个动作是设置好我们Local的传输端口,并到接收的状态:
  
  Tcps.protocol=0-scktcpprotocol
  
  Tcps.LocalPort=1002
  
  Tcps.Listen
  
  双击Tcps,在Tcps_ConnectionRequest(ByValrequestIDAsLong)中加入以下程序代码,这表示winsock接受了连接请求:
  
  Tcps.AcceptrequestID
  
  双击Outtext到Outtext_change(),加入以下程序代码,当Outtext内容改变后,文件就会自动送出:
  
  Tcps.SendDataOuttext.text
  
  在Tcps_DataArrival(ByValbytesTotalAsLong)中加入以下程序代码,这是用来把所接收的文件显示在Intext这个TextBox中。
  
  DimSAsStrIng
  
  Tcps.GetDataS
  
  InText.Text=S
  
  这样我们就完成了Server端的设计。
  
  Step3:设计TCPClient程序
  
  在File选项中选择NewProject建立一个新的工程,在屏幕上看到许多选项,如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等。选Standard.EXE。接着在Project下,选择Property属性选项,在General选项下,将ProjectName改为TCP-Client,并将FORM名称及Caption更改为Client。
  
  在屏幕的Form上加入一个WinSockcontrol,取名为Tcpc,将protocolproperty设置成0-scktcpprotocol,加入两个TextBoxcontrol(Outtext、Intext),并在两个TextBox前加入两个Label,分别将其Caption改为Outtext、Intext。接着放入一个Button(button1)并将Caption改为Connect。
  
  (TextBox)
  
  Name
  
  -----------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  (Label)
  
  Caption
  
  --------------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  〈Button〉
  
  NameCaption
  
  --------------------------------------------------------
  
  Button1(执行建立session命令)Connect
  
  在Form_Load()中加入以下程序代码,这个动作是设置好我们Remote所要连接的传输端口及其网络名称。我们要连接的计算机网络名称为DAVID:
  
  Tcpc.RemoteHost="David"
  
  Tcpc.RemotePort=1002
  
  双击Outtext到Outtext_change()加入以下程序代码,当Outtext内容改变后,文件会自动送出:
  
  Tcpc.SendDataOuttext.text
  
  在Tcpc_DataArrival(ByValbytesTotalAsLong)中加入以下程序代码,这是用来把所接收的文件显示在Intext这个TextBox中。
  
  DimSAsStrIng
  
  Tcpc.GetDataS
  
  InText.Text=S
  
  这样就完成了Client端的设计。
  
  Step4:测试TCPChat程序
  
  分别执行Server及Client程序,这时在Client的屏幕上显示In及OutTextBox及一个ConnectButton;在Server屏幕上显示In及OutTextBox。
  
  我们按Client程序Connectbutton建立连接,连接建立成功后,我们可尝试在Client的Outbox中输入一些字符串:Hellonicetomeetyou!我们将在Server端的Inbox看到这些字串。接着我们在Server的Outbox也输入一些字符串:Nicetomeetyou,too! 我们将在Client端的Inbox看到这些字符串。结果证明我们成功了!
  
  用UDP设计Chat程序
  
  Step1:设计第一个UDP(UDP1)程序
  
  在File选项中选择NewProject建立一个新的工程,屏幕上会看到许多选项,如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等,这时选Standard.EXE。接着在Project下选择Property属性选项,在General选项下将ProjectName改为UDP1,将protocolproperty设置成0-udptcpprotocol,并将Form名称及Caption更改为UDP1。
  
  在屏幕的Form上加入一个WinSockcontrol,取名为UDP1;加入两个TextBoxcontrol(Outtext、Intext),并于两个TextBox前加入两个Labelcontrol,分别将Caption改为Outtext、 Intext。
  
  (TextBox)
  
  Name
  
  -----------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  (Label)
  
  Caption
  
  -------------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  在Form_Load()中加入以下程序代码,这个动作是设置好我们要连接的远端输入端口为1001,并将输入端口设为1002。
  
  UDP1.RemoteHost="DAVID"
  
  UDP1.RemotePort=1001
  
  UDP1.Bind1002
  
  双击Outtext到Outtext_change(),加入以下程序代码,当Outtext内容改变,文件会自动送出:
  
  UDP1.SendDataOuttext.text
  
  在UDP1_DataArrival(ByValbytesTotalAsLong)中加入以下程序代码,这是用来把所接收的文件显示在Intext这个TextBox中。
  
  DimSAsString
  
  UDP1.GetDataS
  
  InText.Text=S
  
  这样我们就完成了UDP1的设计。
  
  Step2:设计第二个UDP(UDP2)程序
  
  在File选项中选NewProject建立一个新的工程,屏幕上会看到许多选项,如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等,这时要选Standard.EXE。接着在Project下,选择Property属性选项,在General选项下,将ProjectName改为UDP2,将protocolproperty设置成0-udptcpprotocol,并将Form名称及Caption更改为UDP2。
  
  在屏幕的Form上加入一个WinSockcontrol取名为UDP2,加入两个TextBoxcontrol(Outtext、Intext),并在两个TextBoxcontrol前加入两个Labelcontrol,分别将Caption改为Outtext、Intext。
  (TextBox)
  
  Name
  
  -----------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  (Label)
  
  Caption
  
  --------------------------------------------------------
  
  Outtext(输出文件)
  
  Intext(输入文件)
  
  在Form_Load()中加入以下程序代码,这个动作是设置好我们要连接的远端输入端口,设置为1002,并将输入端口设置为1001。
  
  UDP2.RemoteHost="MARY"
  
  UDP2.RemotePort=1002
  
  UDP2.Bind1001
  
  双击Outtext到Outtext_change()加入以下程序代码,当Outtext内容改变,文件就会自动送出:
  
  UDP2.SendDataOuttext.text
  
  在UDP2_DataArrival(ByValbytesTotalAsLong)中加入以下程序代码,这是用来把所接收的文件显示在Intext这个TextBox中。
  
  DimSAsStrIng
  
  UDP2.GetDataS
  
  InText.Text=S
  
  这样我们就完成了UDP2的设计。
  
  Step3:测试UDPChat程序
  
  分别执行UDP1及UDP2程序。这时UDP1的屏幕上显示In及Out
  TextBox;UDP2屏幕也显示In及Out两个TextBox。我们在UDP1的Outbox中输入一些字符串IwanttalktoMary,我们将在UDP2端的Inbox看到这些字符串。接着我们在UDP2的Outbox也输入一些字符串ThisisMaryspeaking!,我们将在UDP1端的Inbox看到这些字串。结果证明我们成功了!->

来源:http://www.tulaoshi.com/n/20160219/1620882.html

延伸阅读
译序:C#进阶文章。译者对Samir提供的C#例子进行了简单整理(作者提供的某些代码在译者的环境中无法通过编译),并编写了对应的C++示例,一并置于译注中,以便读者比对。译文中所有C#、C++程序调试环境均为Microsoft Visual Studio.NET 7.0 Beta2。 概要:通过提供一个框架,设计模式可以解决应用开发中的许多问题。模式使得设计过程...
制作一个本企业的屏幕保护,在客户运行本企业的应用软件的时候,为客户更改屏幕保护,是个广告宣传的好办法。有很多朋友提出这个问题,现解答如下: 要更换屏幕保护,首先得做好一个屏幕保护(scr文件),本例以工程1.scr这个文件为例。由于windows是把屏幕保护文件存放在system下,但记录屏幕保护文件位置的文件却是windows目录下的system.in...
标签: Web开发
var xmlHttp = false; var ichatstate ; try {   xmlHttp = new ActiveXObject("Msxml2.XMLHTTP"); } catch (e) {   try {     xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");   } catch...
1、快速通信 Winsock的Nagle算法将降低小数据报的发送速度,而系统默认是使用Nagle算法,使用 int setsockopt( SOCKET s, int level, int optname, const char FAR *optval, int optlen );函数关闭它 例子: SOCKET sConnect; sConnect=::socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); int bNodelay = 1; i...

经验教程

74

收藏

54
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部