基于UDP的聊天程序服务器端源程序:
#include "winsock2.h"
#include "stdio.h"
void main()
{
//加载套接字(winsock)库,加载这段代码拷贝于MSDN中WSAStartup的介绍
WORD wVersionRequested
WSADATA wsaData
int err
wVersionRequested = MAKEWORD( 1, 1 )//版本号为1.1
err = WSAStartup( wVersionRequested, &wsaData )
if ( err != 0 ) {
return
}
if ( LOBYTE( wsaData.wVersion ) != 1 ||
HIBYTE( wsaData.wVersion ) != 1 ) {
WSACleanup( )
return
}
//创建套接字
//注意第二个参数和TCP设置不同
SOCKET sockServer=socket(AF_INET,SOCK_DGRAM,0)
SOCKADDR_IN addrServer//设置服务器端套接字的地址结构的相关属性
addrServer.sin_addr.S_un.S_addr=htonl(INADDR_ANY)//设置IP
addrServer.sin_family=AF_INET
addrServer.sin_port=htons(6000)//设置端口号
//将套接字和服务器地址结构绑定
bind(sockServer,(SOCKADDR*)&addrServer,sizeof(SOCKADDR))
SOCKADDR_IN addrClient
int len=sizeof(SOCKADDR)
char recvBuf[100]
char tempBuf[100]
char sendBuf[100]
while(1)
{
//从客户端接收数据
int result=recvfrom(sockServer,recvBuf,100,0,(SOCKADDR*)&addrClient,&len)
if(result==SOCKET_ERROR)
{
int errCode=WSAGetLastError()
printf("error:%d",errCode)
break//退出循环
}
else
{
if(recvBuf[0]=='q') //对方请求退出
{
//同样将退出请求发送回去
sendto(sockServer,"q",strlen("q")+1,0,(SOCKADDR*)&addrClient,sizeof(SOCKADDR))
printf("the chat end!")
break
}
else
{
//将对方发送过来的信息前段加上IP地址进行输出
sprintf(tempBuf,"%s said:%s",inet_ntoa(addrClient.sin_addr),recvBuf)
printf("%s\n",tempBuf)
//将用户的键盘输入发送到对方
printf("pleas input the message:\n")
gets(sendBuf)//得到键盘输入内容 sendto(sockServer,sendBuf,strlen(sendBuf)+1,0,(SOCKADDR*)&addrClient,sizeof(SOCKADDR))
}
}
}
closesocket(sockServer)
WSACleanup()
}
基于UDP的聊天程序客户端端源程序:
#include "winsock2.h"
#include "stdio.h"
void main()
{
//加载套接字(winsock)库,加载这段代码拷贝于MSDN中WSAStartup的介绍
WORD wVersionRequested
WSADATA wsaData
int err
wVersionRequested = MAKEWORD( 1, 1 )//版本号为1.1
err = WSAStartup( wVersionRequested, &wsaData )
if ( err != 0 ) {
return
}
if ( LOBYTE( wsaData.wVersion ) != 1 ||
HIBYTE( wsaData.wVersion ) != 1 ) {
WSACleanup( )
return
}
//创建套接字
SOCKET sockClient=socket(AF_INET,SOCK_DGRAM,0)//注意第二个参数和TCP设置不同
SOCKADDR_IN addrServer//服务器地址结构
addrServer.sin_addr.S_un.S_addr=inet_addr("127.0.0.1")//服务器地址
addrServer.sin_family=AF_INET
addrServer.sin_port=htons(6000)//服务器端口号
char tempBuf[100]
char recvBuf[100]
char sendBuf[100]
int len=sizeof(SOCKADDR)
while(1)
{
printf("plese input the message:\n")
gets(sendBuf)//得到用户的键盘输入
sendto(sockClient,sendBuf,strlen(sendBuf)+1,0,(SOCKADDR*)&addrServer,sizeof(SOCKADDR))
int result=recvfrom(sockClient,recvBuf,100,0,(SOCKADDR*)&addrServer,&len)
if(result==SOCKET_ERROR)
{
int errCode=WSAGetLastError()
printf("error:%d",errCode)
break//退出循环
}
else
{
if(recvBuf[0]=='q') //对方请求退出
{
//同样将退出请求发送回去
sendto(sockClient,"q",strlen("q")+1,0,(SOCKADDR*)&addrServer,sizeof(SOCKADDR))
printf("the chat end!")
break
}
else
{
//将对方发送过来的信息前段加上IP地址进行输出
sprintf(tempBuf,"%s said:%s",inet_ntoa(addrServer.sin_addr),recvBuf)
printf("%s\n",tempBuf)
}
}
}
closesocket(sockClient)
WSACleanup()
}
在VB中利用UDP协议编写聊天程序
UDP 协议是一种无连接协议,两台计算机之间的数据传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。
由于UDP 协议不需要显式的连接,就需要在两个Winsock控件中间发送数据,关键需要完成以下的三步:
1.将RemoteHost属性设置为另一台计算机的名称。
2.将RemotePort属性设置为第二个控件的LocalPort属性。
3.调用Bind方法,指定使用的LocalPort。
因为两台计算机的地位可以看成“对等的”,这种应用程序也被称为点对点的应用程序。
下面将创建一个聊天应用程序,两个人可以通过它进行实时的交谈。请按照以下步骤制作:
1.创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA,将窗体的标题修改为“Peer A”。
2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
3.在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
4.为窗体添加如下的代码。
Private Sub Form_Load()
′控件的名字为udpPeerA
With udpPeerA
′重点:必须将 RemoteHost 的值修改为对方计算机的名字。
RemoteHost= ″PeerB″
RemotePort = 1001 ′连接的端口号。
Bind 1002 ′绑定到本地的端口。
End With
frmPeerB.Show′显示第二个窗体。
End Sub
Private Sub txtSend_Change()
′在键入文本时,立即将其发送出去。
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
要创建第二个 UDP 伙伴,请按照以下步骤执行:
1.在工程中添加一个标准窗体,将窗体的名字修改为 frmPeerB,将窗体的标题修改为“Peer B”。
2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。
3.在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
4.在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
5.在窗体中添加如下代码
Private Sub Form_Load()
′控件的名字为 udpPeerB。
With udpPeerB
′重点:必须将RemoteHost的值改为对方计算机的名字。
RemoteHost= ″PeerA″
RemotePort = 1002 ′要连接的端口。
Bind 1001 ′绑定到本地的端口上。
End With
End Sub
Private Sub txtSend_Change()
′在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
运行工程,然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。
QQ以前的客户端之间传递可能是P2P的,尤其在发送文件的时候,不过现在不好说了,现在几乎所有信息都会通过服务器中转。如果想采用P2P的形式,你在服务器段保存一份客户端IP地址列表,客户端想互相通讯时,请求一下这个列表就可了,不过客户端你还是要有listen端口。
如果想通过服务器中转,那就简单了,设计下你的消息协议,由服务器中转就是了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)