在VB中如何使用Winsock控件 详细�0�3

 我来答
奶茶哱549
2013-11-01 · TA获得超过127个赞
知道答主
回答量:172
采纳率:50%
帮助的人:58.8万
展开全部
创建一个服务器应用程序,作为多个用户的数据的汇入点。 创建“聊天”应用程序。 1.2 选择通讯协议的标准 在使用WinSock 控件时,首先需要考虑使用什么协议。可以使用的协议包括TCP 和UDP。两种协议之间的重要区别在于它们的连接状态: TCP 协议控件是基于连接的协议,可以将它同电话系统相比。在开始数据传输之前,用户必须先建立连接。 UDP 协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。另外,单次传输的最大数据量取决于具体的网络。 到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议: 在收发数据的时候,应用程序是否需要得到客户端或者服务器的确认信息?假如需要,使用TCP 协议,在收发数据之前先建立明确的连接。 数据量是否非凡大?在连接建立之后,TCP 协议将维护连接并确保数据的完整性。不过,这种连接需要更多的计算资源,因而是比较“昂贵”的。 数据发送是间歇的,还是在一个会话内?例如,假如应用程序在某个任务完成的时候需要通知某个计算机,UDP 协议是更适宜的。UDP 协议适合发送少量的数据。 1.3 协议的设置 在设计时,可以按如下方式设置应用程序使用的协议:在“属性”窗口中单击“协议”,然后选择sckTCPProtocol 或者sckUDPProtocol。也可以使用程序代码来设置 Protocol 属性,如下所示: Winsock1.Protocol=sckTCPProtocol 1.4 确定计算机的名称 在与远程计算机相连接的时候,需要知道它的IP 地址或者它的“计算机名”。IP 地址是一串数字,每三个数字为一组,中间用点隔开(形如xxx.xx x.xxx.xxx)。通常,最易记住的是“计算机名”。 要确定“计算机名”,请按照以下步骤执行: 在计算机的“任务栏”上,单击“启动”。 在“设置“项中,单击“控制面板“。 双击“网络”图标。 单击“标识”选项卡。 在“计算机名称”框中可以找到计算机的名称。 上面找到的计算机名称可以作为RemoteHost 属性的值。 2.Winsock 控件使用TCP 协议应用实例 假如应用程序要使用TCP 协议,那么首先必须决定应用程序是服务器还是客户端。假如要创建一个服务器端,那么应用程序需要“”指定的端口。当客户端提出连接请求时,服务器端能够接受请求并建立连接。在连接建立之后,客户端与服务器端可以自由地互相通讯。 下列步骤创建一个非常简单的服务器: 要创建一个TCP 服务器,请按照以下步骤执行: 创建新的StandardEXE 工程。 ;将窗体的标题改为“TCP 服务器”。 在窗体中放入一个Winsock 控件,并将它的名字改为tcpServer。 在窗体上添加两个TextBox 控件。将第一个命名为txtSend,第二个为txtOutput。 为窗体添加如下的代码。 PrivateSubForm_Load ’将LocalPort 属性设置为一个整数。 ’然后调用Listen 方法。 tcpServer.LocalPort=1001 tcpServer.Listen EndSub PrivateSubtcpServer_ConnectionRequest ’检查控件的State 属性是否为关闭的。 ’假如不是, ’在接受新的连接之前先关闭此连接。 IftcpServer.StatesckClosedThen_ tcpServer.Close ’接受具有requestID参数的’连接。 tcpServer.AcceptrequestID EndSub PrivateSubtxtSend_Change 包含了要发送的数据。当用户往文本框中 发送输入的字符串。 tcpServer.SendDatatxtSend.Text EndSub PrivateSubtcpServer_DataArrival 调用GetData 方法,并将数据赋予名为txtOutput 的TextBox 的Text 属性。 DimstrDataAsString tcpServer.GetDatastrData txtOutput.Text=strData EndSub 上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作,还必须为它创建一个客户端的应用程序。 要创建TCP 客户端,请按照以下步骤执行: 在工程中添加一个新的窗体。 将窗体的标题改为“TCPClient”。 在窗体中添加一个Winsock 控件,并将其命名为tcpClient。 在frmClient 中添加两个Text Box 控件。将第一个命名为txtSend,第二个为txtOutput。 在窗体上放一个CommandButton 控件,并将其命名为cmdConnect。 将CommandButton 控件的标题改为Connect。 在窗体中添加如下的代码。注重:必须将RemoteHost 属性值修改为您的计算机的名字。 PrivateSubForm_Load 注重:要指定远程主机,可以使用 调用Connect 方法,初始化连接。 tcpClient.Connect EndSub PrivateSubtxtSend_Change tcpClient.SendDatatxtSend.Text EndSub PrivateSubtcpClient_DataArrival ;DimstrDataAsString tcpClient.GetDatastrData txtOutput.Text=strData EndSub 上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来:运行工程,然后单击“连接”。在两个窗体之一的txtSend 文本框中键入文本,可以看到同样的文字将出现在另一个窗体的txtOutput 文本框中。 3.Winsock 控件使用UDP 协议应用实例 创建UDP 应用程序比创建TCP 应用程序还要简单,因为UDP 协议不需要显式的连接。在上面的TCP 应用程序中,一个Winsock 控件必须显式地进行“”,另一个必须使用Connect 方法初始化连接。 UDP 协议不需要显式的连接。要在两个控件中间发送数据,需要完成以下的三步 将RemoteHost 属性设置为另一台计算机的名称。 将RemotePort 属性设置为第二个控件的LocalPort 属性。 调用Bind 方法,指定使用的LocalPort。 在创建UDP 应用程序时必须调用Bind 方法。Bind 方法的作用是为控件“保留”一个本地端口。例如,假如将控件绑定到1001 号端口,那么其它应用程序将不能使用该端口进行“”。该方法阻止其它应用程序使用同样的端口。R>Bind 方法的第二个参数是任选的。假如计算机上存在多个网络适配器,可以用LocalIP 参数来指定使用哪一个适配器。假如忽略该参数,控件使用的将是计算机上“控制面板”设置中“网络”控制面板对话框中列出的第一个适配器。 在使用UDP 协议的时候,可以任意地改变RemoteHost 和RemotePort 属性,同时始终保持绑定在同一个LocalPort 上。TCP 协议与此不同,在改变RemoteHost 和 RemotePort 属性之前,必须先关闭连接。 因为两台计算机的地位可以看成“平等的”,这种应用程序也被称为点到点的。为了具体说明这个问题,下面将创建一个“聊天”应用程序,两个人可以通过它进行实时的交谈。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式