Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> C/C++教程 >> 正文

用C++Builder打造网上聊天软件-MyNetMeeting(2)
文章来源:pconline 作者:陈明浩

1.服务器端  

   ServerSocket:用于与多个客户端连接,当有 用户登陆时就把他的昵称和他的主机地址用两 个列 表对应地登记下来,并把当前的所有用户的信息( 包括昵称和主机地址)发送给刚刚登陆的该用户, 那么刚登陆的用户就有了所有在线用户的信息。同 时,服务器会把新登陆的用户的信息发送给所有已在线的用户,那么已在线用户就都得到新登陆用户的信息。当NetMeeting的时候,用户的信息首先发送到服务器端上,服务器端根据在线用户列表的记录再把该信息转发到所有在线用户,这样所有用户都会收到信息,从而实现了多人的NetMeeting。





主要代码:
void __fastcall TForm1::Button1Click(TObject *Sender) //关闭服务器
{
AnsiString SysInfo;
SysInfo="["+TimeToStr(Now())+"]"+" 与服务器失去连接!请重新连接!";
for(int i=0;i {ServerSocket1->Socket->Connections[i]->SendText(SysInfo);}
ServerSocket1->Close();
Form1->Close();
}

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString Data=Socket->ReceiveText(); //接收用户发送的信息
AnsiString SubData1=Data.SubString(Data.Length()-7,Data.Length()); //分析信息
if(SubData1=="@login@@") //如果是用户登陆的信息
{
int AddLen=StrToInt(Data.SubString(1,2));
AnsiString Address=Data.SubString(3,AddLen);
AnsiString SubData2=Data.SubString(3+AddLen,Data.Length()-8-2-AddLen);
ListBox1->Items->Add(SubData2); //用户信息加入到用户列表
ListBox2->Items->Add(Address);
AnsiString SysInfo="["+TimeToStr(Now())+"]"+SubData2+" 加入了会议!";//显示系统信息
Memo1->Lines->Add(SysInfo);
}
else if(SubData1=="@logout@") //如果是用户退出会议
{
int AddLen=StrToInt(Data.SubString(1,2));
AnsiString Address=Data.SubString(3,AddLen);
AnsiString SubData2=Data.SubString(3+AddLen,Data.Length()-8-2-AddLen);
int Index1;
Index1=ListBox1->Items->IndexOf(SubData2); //从用户列表中删除该用户信息
ListBox1->Items->Delete(Index1);
int Index2;
Index2=ListBox2->Items->IndexOf(Address);
ListBox2->Items->Delete(Index2);
Memo1->Lines->Add("["+TimeToStr(Now())+"]"+SubData2+" 退出了会议!"); //显示系统信息
}
else
{
Data="["+TimeToStr(Now())+"]"+Data; //加入系统时间
Memo1->Lines->Add(Data);
}
if(m!=0)
{
for(int i=0;i {ServerSocket1->Socket->Connections[i]->SendText(Data);} //向所有用户转发信息
}}

void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, //与客户端建立连接
TCustomWinSocket *Socket)
{
for(int i=0;i {AnsiString SysInfo1=IntToStr(ListBox2->Items->Strings[i].Length())+ListBox2->
Items->Strings[i]+ListBox1->Items->Strings[i]+"@login@@"; //把所有在线用户信息发给用户
ServerSocket1->Socket->Connections[m]->SendText(SysInfo1);
}
m=m+1;
}

void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,//有用户退出会议
TCustomWinSocket *Socket)
{
m=m-1;
}
2.客户端

ClientSocket1:用于NetMeeting中从服务器上收取信息,或者发信息到服务器上;







   ClientSocket2和Serversocket:与某一用户私聊时收发信息;因为用户一登陆到服务器端就立刻收到所有用户的信息,在客户端用两个列表保存着这些用户信息。当要私聊的时候,可以根据这些用户信息,找到该用户的地址,再直接把信息发送到想要私聊的对象的主机上(当然这一切都是通过鼠标在用户列表中点击选择私聊对象实现,简单快捷)。那么用户就可以收到该信息,而其他人根本无法得到这些信息(即使是服务器端也无能为力,所以这里私聊是有一定安全保密性的)。而且,这样还有一个好处就是当客户端和服务器端断开连接后,私聊还可以继续,毫无影响,因为在线用户信息一早保存到客户端拉。当然,这样在线用户的信息无法更新,即有用户登陆或退出都无法知道,因为你保存的是断线之前的用户信息。

NMStrm和NMStrmServ:用户之间传送文件的控件;
NMStrm:



NmStrmServ:



OpenDialog:用于用户间传送文件时选择要传送的文件;
SaveDialog:当有用户向你传送文件时用来保存文件;
Timer:控制发送信息时间,超时管理;
客户端主要代码:

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket) //连接服务器
{
AnsiString Data="成功连接到服务器"+ClientSocket1->Host;
StatusBar1->SimpleText="成功连接到服务器...";
}

void __fastcall TForm1::N1Click(TObject *Sender) //登陆到服务器
{
ListBox1->Items->Clear();
ListBox2->Items->Clear();
if(IsLand)
{if(InputQuery("登陆到服务器","请输入你的昵称:",NickName)) //输入昵称
{
ClientSocket1->Open();
Timer1->Enabled=true;
BitBtn1->Enabled=true;
BitBtn3->Enabled=true;
IsLand=false; }
else ShowMessage("请输入你的昵称.");}
else
{
ClientSocket1->Open();
Timer1->Enabled=true;
}
}

void __fastcall TForm1::BitBtn1Click(TObject *Sender) //发送信息
{
if(Memo2->Lines->Text=="")
{
ShowMessage("错误, 不能发空信息!");
}
else
{
AnsiString Data;
Data=NickName+":"+Memo2->Lines->Text;
ClientSocket1->Socket->SendText(Data);
Memo2->Lines->Clear();
}
}

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket) //接收服务器发送过来的信息
{
Form1->SetFocus(); //获得焦点
AnsiString Data=Socket->ReceiveText(); //接收信息
AnsiString SubData1=Data.SubString(Data.Length()-7,Data.Length());
if(SubData1=="@login@@") //判断标志位
{
int AddLen=StrToInt(Data.SubString(1,2));
AnsiString Address=Data.SubString(3,AddLen);
AnsiString SubData2=Data.SubString(3+AddLen,Data.Length()-8-2-AddLen);
ListBox1->Items->Add(SubData2); //加入在线用户
ListBox2->Items->Add(Address);
AnsiString SysInfo=SubData2+" 加入了会议!";
Memo1->Lines->Add(SysInfo);
}
else if(SubData1=="@logout@")
{
int AddLen=StrToInt(Data.SubString(1,2));
AnsiString Address=Data.SubString(3,AddLen);
AnsiString SubData2=Data.SubString(3+AddLen,Data.Length()-8-2-AddLen);
int Index1;
Index1=ListBox1->Items->IndexOf(SubData2);
ListBox1->Items->Delete(Index1); //删除在线用户
int Index2;
Index2=ListBox2->Items->IndexOf(Address);
ListBox2->Items->Delete(Index2);
Memo1->Lines->Add(SubData2+" 退出了会议!");
}
else
{
Memo1->Lines->Add(Data);
}
}

void __fastcall TForm1::ListBox1Click(TObject *Sender) //私聊空间或传送文件选定对象
{
if(ClientSocket2->Active)
{ClientSocket2->Close();}
int Index=ListBox1->ItemIndex;
HostName=ListBox2->Items->Strings[Index];
Label11->Caption=ListBox1->Items->Strings[Index];
Label2->Caption=ListBox1->Items->Strings[Index];
ClientSocket2->Host=HostName;
ClientSocket2->Open();
BitBtn3->Enabled=true;
}

void __fastcall TForm1::BitBtn3Click(TObject *Sender) //在私聊空间发送信息给选定用户
{
if(Memo4->Lines->Text=="")
{
ShowMessage("错误, 不能发空信息!");
}
else
{
AnsiString Data;
Data=NickName+"对"+Label11->Caption+"说:"+Memo4->Lines->Text;
ClientSocket2->Socket->SendText(Data);
Memo3->Lines->Add(Data);
Memo4->Lines->Clear();
}
}

void __fastcall TForm1::BitBtn5Click(TObject *Sender) //选择要传送的文件
{
if(OpenDialog1->Execute())
{Edit1->Text=OpenDialog1->FileName;
FileName=OpenDialog1->FileName;
for(int n=FileName.Length()-1;n>=1;n--)
{
if(FileName.SubString(n,1)==".")
{
FileName=FileName.SubString(n+1,FileName.Length()-n) ;
BitBtn6->Enabled=true;
break;
}
}
}
}

void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender,
const AnsiString sFrom, TStream *strm) //接收并保存发送过来的文件
{
Form1->SetFocus();
char *Buffer=new char[strm->Size+1]; //在内存中定义一个字符数组
strm->ReadBuffer(Buffer,strm->Size); //接收传送过来的字符
Buffer[strm->Size+1]='\0';
SaveDialog1->FileName="";
SaveDialog1->DefaultExt=sFrom;
SaveDialog1->Filter="."+sFro;
if(SaveDialog1->Execute()) //把接收的字符保存成文件
{
AnsiString FN=SaveDialog1->FileName;
for(int n=FN.Length()-1;n>=1;n--)
{
if(FN.SubString(n,1)=="\\")
{
FN=FN.SubString(n+1,FN.Lengh()-n) ;
break;
}
}
char *file=FN.c_str();
FILE *stream =fopen(file,"w+");
for(int i=0;i<=strm->Size;i++)
{
fwrite(&Buffer[i],sizeof(char), 1, stream);
}
fclose(stream);
delete stream;
delete file;
}
}

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有