C++Builder即时通讯程序（仿QQ）

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::N7Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N6Click(TObject *Sender) { MessageBoxA(NULL,"作者：宋元瑞\nE-mail:syrchina@foxmail.com","关于作者",MB_OK); } //--------------------------------------------------------------------------- void __fastcall TForm1::FileListenItemClick(TObject *Sender) { FileListenItem->Checked = !FileListenItem->Checked; if (FileListenItem->Checked) { ClientSocket->Active = false; ServerSocket->Active = true; //StatusBar1->Panels->Items[0]->Text = "正在通话..."; } else { if (ServerSocket->Active) { ServerSocket->Active = false; } StatusBar1->Panels->Items[0]->Text = ""; } } //--------------------------------------------------------------------------- void __fastcall TForm1::FileConnectItemClick(TObject *Sender) { if (ClientSocket->Active) { ClientSocket->Active = false; } if (InputQuery("连接", "请输入对方的IP地址: ", Server)) { if (Server.Length() > 0) { ClientSocket->Host = Server; ClientSocket->Active = true; FileListenItem->Checked = false; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Exit1Click(TObject *Sender) { ServerSocket->Close(); ClientSocket->Close(); Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Memo1->Lines->Text=""; Memo2->Lines->Text=""; FileListenItemClick(NULL); } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocketConnect(TObject *Sender, TCustomWinSocket *Socket) { StatusBar1->Panels->Items[0]->Text = "连接到: " + Socket->RemoteHost; } //--------------------------------------------------------------------------- void __fastcall TForm1::Disconnect1Click(TObject *Sender) { ClientSocket->Active = false; ServerSocket->Active = true; StatusBar1->Panels->Items[0]->Text = "正在通话..."; } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocketRead(TObject *Sender, TCustomWinSocket *Socket) { //Memo2->Lines->Text = Memo2->Lines->Text + "\r\n"; Memo2->Lines->Text = Memo2->Lines->Text + " 对方说：\r\n"; Memo2->Lines->Add(Socket->ReceiveText()); } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocketClientRead(TObject *Sender, TCustomWinSocket *Socket) { //Memo2->Lines->Text = Memo2->Lines->Text + "\r\n"; Memo2->Lines->Text = Memo2->Lines->Text + " 对方说：\r\n"; Memo2->Lines->Add(Socket->ReceiveText()); } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocketAccept(TObject *Sender, TCustomWinSocket *Socket) { IsServer = true; StatusBar1->Panels->Items[0]->Text = "连接到: " + Socket->RemoteAddress; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocketClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Memo2->Lines->Clear(); } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocketDisconnect(TObject *Sender, TCustomWinSocket *Socket) { FileListenItemClick(NULL); } //--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocketError(TObject *Sender, TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode) { Memo2->Lines->Add("**无法连接到:" + Server); ErrorCode = 0; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocketClientDisconnect(TObject *Sender, TCustomWinSocket *Socket) { StatusBar1->Panels->Items[0]->Text = "正在通话..."; } //--------------------------------------------------------------------------- void __fastcall TForm1::Memo1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { if (Key == VK_RETURN)//回车键发送 { if (IsServer) { ServerSocket->Socket->Connections[0]->SendText( Memo1->Lines->Strings[Memo1->Lines->Count - 1]); } else { ClientSocket->Socket->SendText(Memo1->Lines->Strings[ Memo1->Lines->Count -1]); } Memo2->Lines->Text = Memo2->Lines->Text + "\r\n"; Memo2->Lines->Text = Memo2->Lines->Text + " 我说：\r\n" + Memo1->Lines->Text; Memo1->Lines->Text = ""; } SendMessage(Memo2->Handle,WM_VSCROLL,SB_BOTTOM,0);//让Memo2滚动 } //---------------------------------------------------------------------------