如何利用C++ Builder 5.0 Enterprise 創(chuàng)建用戶自己的網(wǎng)上聊天程序

2019-09-10 09:07:03

字體：大中小

供稿：網(wǎng)友

如何利用C++ Builder 5.0 Enterprise 創(chuàng)建用戶自己的網(wǎng)上聊天程序

網(wǎng)絡(luò)是一個(gè)激動(dòng)人心的領(lǐng)域，編寫網(wǎng)絡(luò)上的應(yīng)用程序更是很多程序員向往的情節(jié)，然而編寫網(wǎng)絡(luò)程序需要掌握大量的網(wǎng)絡(luò)傳輸協(xié)議、編程接口和WinSock32 API 函數(shù)，正因?yàn)槿绱?，要完成從Windows程序員到Web程序員的轉(zhuǎn)變不是一件易事．最近筆者成功的用C++ Buil--der 5.0 Enterprise 版編寫出了網(wǎng)上聊天程序，特介紹如下：

　　一、原理：網(wǎng)絡(luò)聊天工具需要通過(guò)TCP/IP協(xié)議，因此可以把網(wǎng)絡(luò)聊天程序分為服務(wù)器端和客戶器端兩部分，其中服務(wù)器端用以把程序轉(zhuǎn)換成一個(gè)虛擬的 TCP/IP 服務(wù)器. 并且和指定的客戶機(jī)建立連接，在連接成功后，向指定的客戶器發(fā)送和接收數(shù)據(jù)；客戶器端把程序轉(zhuǎn)換成一個(gè)虛擬的TCP/IP 客戶器，并且向指定的服務(wù)器發(fā)出連接信號(hào)，在連接成功后，向指定的服務(wù)器發(fā)送和接收數(shù)據(jù)。在C++ Builder 5.0 環(huán)境下服務(wù)器端和客戶器端的功能分別由TServerSocket控件和TClientSocket 控件加以實(shí)現(xiàn)。其中TCP/IP協(xié)議以包含在控件的屬性中，因此只要正確填入屬性，便可實(shí)現(xiàn)網(wǎng)上通訊。

　　二、具體實(shí)現(xiàn)：首先`在C++ builder 5.0 環(huán)境下建立一個(gè)Application ，并保存為Project1。在Form1 上添加如下控件，并設(shè)置相關(guān)屬性，其中Memo2于顯示對(duì)方傳來(lái)的信息，其中Memo1用于顯示傳給對(duì)方的信息：

控件名稱　　　　　　　　屬性　　　　　　　　值

TBevel　　　　　　　　 Caption　　　　　　 Bevel1

TSpeedButton　　　　 Caption　　　　　　 SpeedButton1

TMemo　　　　　　　　 Caption　　　　　　 Memo1

TMemo　　　　　　　　 Caption　　　　　　 Memo2

TMainMenu　　　　　　 Caption　　　　　　 MainMenu1

TServerSocket　　　　 Caption　　　　　　 ServerSocket1

TClientSocket　　　　 Caption　　　　　　ClientSocket1

　　同時(shí)在 MainMenu1控件中增加三個(gè)菜單項(xiàng)，其屬性為

Name　　　　　　　　　　　　　　　　 Caption　　

Connect　　　　　　　　　　　　　　連接

Disconncet　　　　　　　　　　　　　　斷開

Listin　　　　　　　　　　　　　　　　監(jiān)聽

　　在Unit1 的Private中添加：

　　　　bool　　 IsServer;

　　　　String　　Server;

　　在Connect 的Click句柄添加如下代碼：

void __fastcall TForm1::ConnectClick(TObject *Sender)

{

if (ClientSocket1->Active){ ClientSocke1t->Active = false;} // 判斷是否以連接，如連接則斷開連接//

if (InputQuery("Computer to connect to", "添入要連接的機(jī)器的IP地址:", Server))

{

　　 if (Server1.Length() > 0)//判斷用戶是否已經(jīng)添入//

　　 {

　　　　ClientSocket-1>Host = Server;//設(shè)置要連接的IP地址為用戶指定的IP地址值//

　　　　ClientSocket1->Active = true;//進(jìn)行連接//

　　 }

}

}

　　在Listen的Click句柄添加如下代碼：

void __fastcall Form1 ::ListenClick(TObject *Sender)

{

Listen->Checked = !Listen->Checked;

if (Listen->Checked)

　　 ServerSocket1->Active = true;//服務(wù)器端監(jiān)聽來(lái)自客戶器斷的信號(hào)//

else

　　ServerSocket1->Active = false;

}

　　在Disconnect 的Click句柄添加如下代碼：

void __fastcall TForm1::ExitClick(TObject *Sender)

{

ServerSocket1->Close();//關(guān)閉服務(wù)器端//

ClientSocket1->Close();//關(guān)閉客戶器端//

Close();

}

　　在Memo1 的KeyDown句柄添加如下代碼：

void __fastcall TForm1::Memo1KeyDown(TObject *Sender, WORD &Key,

　　 TShiftState Shift)

{

if (Key == VK_RETURN)

{

　　 if (IsServer)

　　　　 {ServerSocket->Socket->Connections[0]->SendText(

　　　　 Memo1->Lines->Strings[Memo1->Lines->Count - 1]); }//作為服務(wù)器一端發(fā)送數(shù)據(jù)//

　　 else

　　 { ClientSocket->Socket->SendText(Memo1->Lines->Strings[

　　　　Memo1->Lines->Count -1]);}//作為客戶器一端發(fā)送數(shù)據(jù)//

}

}

　　在ClientSocket1的Connect句柄添加如下代碼:

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender , TCustomWinSocke

t *Socket)

{//當(dāng)用戶和遠(yuǎn)程服務(wù)器連接成功后，激發(fā)該事件//

StatusBar1->Panels->Items[0]->Text = "Connect to: " + Socket->RemoteHost;

}

　　在ClientSocket1的Error句柄添加如下代碼:

void __fastcall TForm1::ClientSocket1Error(TObject *Sender,

　　 TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{ //當(dāng)用戶和遠(yuǎn)程服務(wù)器連接失敗后，激發(fā)該事件//

Memo2->Lines->Add("Error connecting to:" + Server);

ErrorCode = 0;

}

　　在ClientSocket1的Read句柄添加如下代碼:

void __fastcall TChatForm::ClientSocket1SeverRead(TObject *Sender, TCustomWinSo

cket *Socket)

{

//當(dāng)作為客戶器一端讀來(lái)自服務(wù)器一端的數(shù)據(jù)時(shí)，激發(fā)該事件//

Memo2->Lines->Add(Socket->ReceiveText());

}

　　在SeverSocket1的ClientRead句柄添加如下代碼

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocke

t *Socket)

{

//當(dāng)作為客戶器一端讀來(lái)自服務(wù)器一端的數(shù)據(jù)時(shí)，激發(fā)該事件//

Memo2->Lines->Add(Socket->ReceiveText());

}

在SeverSocket1的Accept句柄添加如下代碼

void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket

*Socket)

{ //當(dāng)服務(wù)器成功的監(jiān)聽到來(lái)自客戶器的信號(hào)后，激發(fā)該事件//

IsServer = true;

StatusBar1->Panels->Items[0]->Text = "Connect to: " + Socket->RemoteAddress;

}

　　在Form1的Create句柄添加如下代碼:

void __fastcall TForm1::Form1Create(TObject *Sender)

{

　　IsServer=false;

}

注：“//”為注釋.

　　以上程序C++ Builder 5.0Enterprise通過(guò)。

　　摘自《賽迪網(wǎng)》　孫航東/文

上一篇：用Socket發(fā)送電子郵件(php)

下一篇：最新php 3層結(jié)構(gòu)開發(fā)技術(shù)