《计算网络技术实验》报告.DOCVIP

《计算网络技术实验》报告 学 院_ 计算机学院_________ 专 业_ 计算机科学与技术___ 年级班别__ 06级计科7班_______ 学 号 3106006709 学生姓名__ 刘 峰___________ 指导教师____陈 靖 宇__________ 成 绩 200 8 年 12 月 20 《基于TCP的网络聊天室的设计》 系统概要 //--------------------------------------------------------------------------- #include vcl.h #pragma hdrstop #include ChatServer.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource *.dfm TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { ServerSocket1-Port=50; ServerSocket1-Active=true; m_iClientNum=0; m_sIsName=NA; m_sIsChat=CT; m_sPart=#; m_sIsCommand=CO; m_sTo=ALL; MenuListen-Enabled=false; MenuClose-Enabled=true; Application-OnException=AppException; TDateTime NowTime; NowTime=Now(); StatusBar1-Panels-Items[2]-Text=NowTime.DateTimeString(); } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket) { AnsiString sClientNum; m_iClientNum++; sClientNum.sprintf(有%d台客户连接,ServerSocket1-Socket-ActiveConnections); StatusBar1-Panels-Items[1]-Text=连接成功！; StatusBar1-Panels-Items[0]-Text=sClientNum; ListUserAddr-Items-Add(Socket-RemoteAddress); for(int i=0;iServerSocket1-Socket-ActiveConnections;i++) ServerSocket1-Socket-Connections[i]-SendText(CLEAR); Sleep(100); } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { AnsiString sTemp; AnsiString sPre; AnsiString sWelcome; sTemp=Socket-ReceiveText(); sPre=sTemp.SubString(1,2); if(sPre==m_sIsName) { AnsiString sName; sName=