北京市白石橋路  周新棟

---- 創(chuàng)建基于Internet的應(yīng)用程序，你也許會想到復(fù)雜的WinSock編程。不過，C++ Builder3提供了新的WebBroker的Internet套件，其中的TClientSocket和TServerSocket組件封裝了Windows的有關(guān)API，大大簡化了WinSock編程。要通過Internet傳輸數(shù)據(jù)，至少需要一對Socket，一個Socket在客戶端，另一個Socket在服務(wù)器端。其實TClientSocket、TServerSocket組件并不是Socket對象，其屬性Socket將返回各自的Socket對象。TClientSocket用來處理客戶端到服務(wù)器端之間的socket連接，TServerSocket用來處理由客戶端發(fā)來的socket連接，一旦客戶端和服務(wù)器端都接通了socket，客戶端和服務(wù)器端就可以相互通信了。

---- 建立一新項目，創(chuàng)建應(yīng)用程序的用戶界面：

---- 1.將組件頁切換到Internet頁，放一個TServerSocket組件和一個TClientSocket組件到窗體上，這樣應(yīng)用程序既可以是TCP/IP服務(wù)器，也可以是TCP/IP客戶。將Port屬性都設(shè)為同一個值(如1000)，確定Socket之間的連接類型為NonBlocking(非阻塞方式)。

---- 2.放兩個TMemo組件到窗體上，用來分別顯示雙方的談話內(nèi)容，將Memo2的ReadOnly屬性設(shè)為True。

---- 3.在窗體的頂部放上一個Panel組件，在其上放三個按鈕：監(jiān)聽(btnlisten)、連接(btnconnect)、斷開(btndisconnect)，用來啟動相應(yīng)的操作。

---- 4.在窗體底部放一個StatusBar組件，將其SimplePanel屬性設(shè)為True,在相應(yīng)的事件處理程序中改變狀態(tài)條信息，讓用戶隨時了解連接狀態(tài)。

---- 打開頭文件，在窗體類的Private段添加兩個私有成員: bool IsServer;String Server。雙方通信時需同時運(yùn)行Chat程序，IsServer用來確定哪個Chat程序處于服務(wù)器端，Server用來存放服務(wù)器的主機(jī)名。建立窗體類的構(gòu)造器如下：

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    IsServer=false;
    Server="localhost";
}


---- 這里Server被缺省設(shè)為localhost，這樣程序可以在沒有連入Internet的單機(jī)上進(jìn)行調(diào)試。在Windows子目錄下你可以找到hosts.sam文件中，在該文件中已經(jīng)將本機(jī)IP地址127.0.0.1定義了主機(jī)名：localhost。
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    btndisconnect- >Enabled=false;
}

---- 程序運(yùn)行后，如果用戶按下＂監(jiān)聽＂鈕，則將該程序設(shè)為服務(wù)器端，這時應(yīng)將TServerSocket的Active屬性設(shè)為True，使服務(wù)器自動進(jìn)入監(jiān)聽狀態(tài)。
void __fastcall TForm1::btnlistenClick(TObject *Sender)
{
    ClientSocket1- >Active=false;
    ServerSocket1- >Active=true;
    StatusBar1- >SimpleText="正在監(jiān)聽...";
    btnlisten- >Enabled=false;
    btnconnect- >Enabled=false;
}

---- 當(dāng)用戶按下＂連接＂鈕后，程序會彈出一個詢問框，要求用戶輸入要連接的服務(wù)器的主機(jī)名，然后建立連接。
void __fastcall TForm1::btnconnectClick(TObject *Sender)
{
    if(InputQuery("連接到服務(wù)器","輸入服務(wù)器地址:",Server)){
        if(Server.Length() >0){
            ClientSocket1- >Host=Server;
            ClientSocket1- >Active=true;
            btnlisten- >Enabled=false;
            btnconnect- >Enabled=false;
            btndisconnect- >Enabled=true;
        }
    }
}


---- 當(dāng)用戶提出連接請求后，客戶端會觸發(fā)OnCreate事件，程序先在狀態(tài)條中顯示連接信息，然后將顯示對方談話內(nèi)容的Memo2清空，準(zhǔn)備開始交談。
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1- >SimpleText="連接到:"+Server;
    Memo2- >Lines- >Clear();
}


---- 在服務(wù)器接受了客戶的請求后會觸發(fā)OnAccept事件，在這個事件處理程序中將標(biāo)志服務(wù)器端的變量IsServer設(shè)為True，并準(zhǔn)備開始交談。
void __fastcall TForm1::ServerSocket1Accept(
TObject *Sender,
      TCustomWinSocket *Socket)
{
    Memo2- >Lines- >Clear();
    IsServer=true;
    StatusBar1- >SimpleText="連接到:"
+Socket- >RemoteAddress;
}


---- 在建立連接后，雙方就可以在Memo1中輸入談話內(nèi)容開始進(jìn)行交談了，按下Enter鍵后，將所在行的文本發(fā)送出去。服務(wù)器端的Socket的Connections屬性返回一個數(shù)組，該數(shù)組由服務(wù)器當(dāng)前活動的連接組成。
void __fastcall TForm1::Memo1KeyDown(
TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==VK_RETURN){
        if(IsServer)
            ServerSocket1- >Socket- >Connections[0]- >SendText(
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
        else
            ClientSocket1- >Socket- >SendText(
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
    }
}


---- 在本例中我們采用非阻塞傳輸方式，當(dāng)其中的一方進(jìn)行寫操作時，另一方會觸發(fā)OnRead事件(客戶端)或OnClientRead事件(服務(wù)器端)，這兩個事件的處理程序只是將接收到的內(nèi)容添加到Memo2的后面。
    Memo2- >Lines- >Add(Socket- >ReceiveText());

---- 如果在用戶建立連接后單擊＂斷開＂鈕，將斷開客戶端與服務(wù)器的連接，服務(wù)器端將觸發(fā)OnClientDisconnect事件，而客戶端則會觸發(fā)OnDisconnect事件，這時服務(wù)器端應(yīng)回到監(jiān)聽狀態(tài)，等待用戶的連接；而客戶端將返回到連接前的狀態(tài)，等待用戶再次建立連接，如果有不止一個服務(wù)器的話，可以選擇連接到其他的服務(wù)器上。
void __fastcall TForm1::btndisconnectClick(
TObject *Sender)
{
    ClientSocket1- >Close();
}
void __fastcall TForm1::ServerSocket1ClientDisconnect(
TObject *Sender,
      TCustomWinSocket *Socket)
{
    StatusBar1- >SimpleText="正在監(jiān)聽...";
}
void __fastcall TForm1::ClientSocket1Disconnect(
TObject *Sender, TCustomWinSocket *Socket)
{
    btnlisten- >Enabled=true;
    btnconnect- >Enabled=true;
    btndisconnect- >Enabled=false;
    StatusBar1- >SimpleText="";
}


---- 此外在客戶端還應(yīng)該增加錯誤捕獲機(jī)制，當(dāng)用戶輸入無效的服務(wù)器名或服務(wù)器端沒有處于監(jiān)聽狀態(tài)時能夠及時給用戶反饋信息。
void __fastcall TForm1::ClientSocke
t1Error(TObject *Sender,
      TCustomWinSocket *Socket,
TErrorEvent ErrorEvent, int &ErrorCode)
{
StatusBar1- >SimpleText="無法連接到:
"+Socket- >RemoteHost;
    ErrorCode=0;
}

---- 以上代碼在C++ Builder3 C/S版中編譯、運(yùn)行通過。