用Delphi編寫Socket通訊程式

 

筆者在工作中遇到對區域網路中各工作站與伺服器之間進行Socket通訊的問題。現在將本人總結出來的TServerSocket和TClientSocket兩個組件的基本用法寫出來，希望與您分享。

　　ClientSocket組件為用戶端組件。它是通訊的請求方，也就是說，它是主動地與伺服器端建立串連。

　　ServerSocket組件為伺服器端組件。它是通訊的回應程式，也就是說，它的動作是監聽以及被動接受用戶端的串連請求，並對請求進行回複。

　　ServerSocket組件可以同時接受一個或多個ClientSocket組件的串連請求，並與每個ClientSocket組件建立單獨的串連，進行單獨的通訊。因此，一個伺服器端可以為多個用戶端服務。

　　設計思路

　　本例包括一個伺服器端程式和一個用戶端程式。用戶端程式可以放到多個電腦上運行，同時與伺服器端進行串連通訊。

　　本例的重點，一是示範用戶端與伺服器端如何通訊；二是當有多個用戶端同時串連到伺服器端時，伺服器端如何識別每個用戶端，並對請求給出相應的回複。為了保證一個用戶端中斷連線時不影響其它用戶端與伺服器端的通訊，同時保證伺服器端能夠正確回複用戶端的請求，在本例中聲明了一個記錄類型：

　　type
　 client_record=record
　 CHandle: integer; //用戶端通訊端控制代碼
　 CSocket:TCustomWinSocket; //用戶端通訊端
　 CName:string; //用戶端電腦名稱
　 CAddress:string; //用戶端電腦IP地址
　 CUsed: boolean; //用戶端聯機標誌
end;

　　利用這個記錄類型資料儲存用戶端的資訊，同時儲存當前用戶端的串連狀態。其中，CHandle儲存用戶端通訊端控制代碼，以便準確定位每個與伺服器端保持串連的用戶端；Csocket儲存用戶端通訊端，通過它可以對用戶端進行回複。Cused記錄當前用戶端是否與伺服器端保持串連。

　　下面對組件ServerSocket和ClientSocket的屬性設定簡單說明。

本文來自: 編程入門網 http://www.bianceng.cn/Programming/Delphi/jc/200711/5431.htm

ServerSocket的屬性：

　　· Port，是通訊的連接埠，必須設定。在本例中設定為1025；

　　· ServerTypt，伺服器端讀寫資訊類型，設定為stNonBlocking表示非同步讀寫資訊，本例中採用這種方式。

　　· ThreadCacheSize，用戶端的最大串連數，就是伺服器端最多允許多少用戶端同時串連。本例採用預設值10。

　　其它屬性採用預設設定即可。

　　ClientSocket的屬性：

　　· Port，是通訊的連接埠，必須與伺服器端的設定相同。在本例中設定為1025；

　　· ClientType，用戶端讀寫資訊類型，應該與伺服器端的設定相同，為stNonBlocking表示非同步讀寫資訊。

　　· Host，用戶端要已連線的服務器的IP地址。必須設定，當然也可以在代碼中動態設定。

　　其它屬性採用預設設定即可。

　　程式原始碼:

　　· 伺服器端源碼（uServerMain.pas）：

　　unit uServerMain;
interface
　 uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons;
　 const
　　 CMax=10; //用戶端最大串連數
　 type
　　 client_record=record
　　 CHandle: integer; //用戶端通訊端控制代碼
　　 CSocket:TCustomWinSocket; //用戶端通訊端
　　 CName:string; //用戶端電腦名稱
　　 CAddress:string; //用戶端電腦IP地址
　　 CUsed: boolean; //用戶端聯機標誌
　 end;
　 type
　　 TfrmServerMain = class(TForm)
　　 ServerSocket: TServerSocket;
　　 ControlBar1: TControlBar;
　　 ToolBar1: TToolBar;
　　 tbConnect: TToolButton;
　　 tbClose: TToolButton;
　　 tbDisconnected: TToolButton;
　　 Edit1: TEdit;
　　 Memo1: TMemo;
　　 StatusBar: TStatusBar;
　　 procedure tbConnectClick(Sender: TObject);
　　 procedure tbDisconnectedClick(Sender: TObject);
　　 procedure ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure ServerSocketListen(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure ServerSocketClientConnect(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure ServerSocketClientDisconnect(Sender: TObject;Socket: TCustomWinSocket);
　　 procedure tbCloseClick(Sender: TObject);
　　 procedure FormCreate(Sender: TObject);
　　 procedure FormClose(Sender: TObject; var Action: TCloseAction);
　　 procedure ServerSocketGetSocket(Sender: TObject; Socket: Integer;
　　 var ClientSocket: TServerClientWinSocket);
　　 procedure ServerSocketClientError(Sender: TObject;
　　 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
　　 var ErrorCode: Integer);
　　 private
　　 {
　　　 Private declarations
　　 }
　　 public
　　 {
　　　 Public declarations
　　 }
　　 session: array[0..CMax] of client_record; //用戶端串連數組
　　 Sessions: integer; //用戶端串連數
　 end;
　 var
　　 frmServerMain: TfrmServerMain;
　　 implementation
　　 {$R *.DFM}
　　 //開啟通訊端串連，並使通訊端進入監聽狀態
　　 procedure TfrmServerMain.tbConnectClick(Sender: TObject);
　 begin
　　 ServerSocket.Open ;
　 end;
　 //關閉通訊端串連，不再監聽用戶端的請求
　 procedure TfrmServerMain.tbDisconnectedClick(Sender: TObject);
　 begin
　　 ServerSocket.Close;
　　 StatusBar.Panels[0].Text :='伺服器通訊端串連已經關閉，無法接受用戶端的串連請求.';
　 end;
　 //從用戶端讀取資訊
　 procedure TfrmServerMain.ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);
　 var
　　 i:integer;
　 begin
　　 //將從用戶端讀取的資訊添加到Memo1中
　　 Memo1.Lines.Add(Socket.ReceiveText);
　　 for i:=0 to sessions do
　　 begin
　　　 //取得匹配的用戶端
　　　 if session[i].CHandle = Socket.SocketHandle then
　　　 begin
　　　　 session[i].CSocket.SendText('回複用戶端'+session[i].CAddress+' ==> '+Edit1.Text);
　　　 end;
　　 end;
　 end;
　 //伺服器端通訊端進入監聽狀態，以便監聽用戶端的串連
　 procedure TfrmServerMain.ServerSocketListen(Sender: TObject;Socket: TCustomWinSocket);
　 begin
　　 StatusBar.Panels[0].Text :='等待用戶端串連...';
　 end;
　 //當用戶端串連到伺服器端以後
　 procedure TfrmServerMain.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
　 var
　　 i,j:integer;
　 begin
　　 j:=-1;
　　 for i:=0 to sessions do
　　 begin
　　　 //在原有的用戶端串連數組中有中斷的用戶端串連
　　　 if not session[i].CUsed then
　　　 begin
　　　　 session[i].CHandle := Socket.SocketHandle ;//用戶端通訊端控制代碼
　　　　 session[i].CSocket := Socket; //用戶端通訊端
　　　　 session[i].CName := Socket.RemoteHost ; //用戶端電腦名稱
　　　　 session[i].CAddress := Socket.RemoteAddress ;//用戶端電腦IP
　　　　 session[i].CUsed := True; //串連數組當前位置已經佔用
　　　　 Break;
　　　 end;
　　 j:=i;
　 end;
　 if j=sessions then
　 begin
　　 inc(sessions);
　　 session[j].CHandle := Socket.SocketHandle ;
　　 session[j].CSocket := Socket;
　　 session[j].CName := Socket.RemoteHost ;
　　 session[j].CAddress := Socket.RemoteAddress ;
　　 session[j].CUsed := True;
　 end;
　 StatusBar.Panels[0].Text := '用戶端 '+Socket.RemoteHost + ' 已經串連';
end;
//當用戶端中斷連線時
procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
　 i:integer;
begin
　 for i:=0 to sessions do
　 begin
　　 if session[i].CHandle =Socket.SocketHandle then
　　 begin
　　　 session[i].CHandle :=0;
　　　 session[i].CUsed := False;
　　　 Break;
　　 end;
　 end;
　 StatusBar.Panels[0].Text :='用戶端 '+Socket.RemoteHost + ' 已經斷開';
end;
//關閉視窗
procedure TfrmServerMain.tbCloseClick(Sender: TObject);
begin
　 Close;
end;
procedure TfrmServerMain.FormCreate(Sender: TObject);
begin
　 sessions := 0;
end;
procedure TfrmServerMain.FormClose(Sender: TObject;var Action: TCloseAction);
begin
　 ServerSocket.Close ;
end;
//當用戶端正在與伺服器端串連時
procedure TfrmServerMain.ServerSocketGetSocket(Sender: TObject;
Socket: Integer; var ClientSocket: TServerClientWinSocket);
begin
　 StatusBar.Panels[0].Text :='用戶端正在串連...';
end;
//用戶端發生錯誤
procedure TfrmServerMain.ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
　 StatusBar.Panels[0].Text :='用戶端'+Socket.RemoteHost +'發生錯誤！';
　 ErrorCode := 0;
end;
end.

· 用戶端源碼(uClientMain.pas)：

　　unit uClientMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;
const
　 SocketHost = '172.16.1.6'; //伺服器端地址
type
　 TfrmClientMain = class(TForm)
　 ControlBar1: TControlBar;
　 ToolBar1: TToolBar;
　 tbConnected: TToolButton;
　 tbSend: TToolButton;
　 tbClose: TToolButton;
　 tbDisconnected: TToolButton;
　 ClientSocket: TClientSocket;
　 Edit1: TEdit;
　 Memo1: TMemo;
　 StatusBar: TStatusBar;
　 btnSend: TBitBtn;
　 procedure tbConnectedClick(Sender: TObject);
　 procedure tbDisconnectedClick(Sender: TObject);
　 procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
　 procedure tbSendClick(Sender: TObject);
　 procedure tbCloseClick(Sender: TObject);
　 procedure FormShow(Sender: TObject);
　 procedure ClientSocketConnect(Sender: TObject;
　 Socket: TCustomWinSocket);
　 procedure ClientSocketConnecting(Sender: TObject;
　 Socket: TCustomWinSocket);
　 procedure ClientSocketDisconnect(Sender: TObject;
　 Socket: TCustomWinSocket);
　 procedure FormClose(Sender: TObject; var Action: TCloseAction);
　 procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
　 ErrorEvent: TErrorEvent; var ErrorCode: Integer);
　 private
　 { Private declarations }
　 public
　 { Public declarations }
　 end;
　 var
　　 frmClientMain: TfrmClientMain;
　　 implementation
　　 {$R *.DFM}
　　 //開啟通訊端串連
　　 procedure TfrmClientMain.tbConnectedClick(Sender: TObject);
　　 begin
　　　 ClientSocket.Open ;
　　 end;
　　 //關閉通訊端串連
　　 procedure TfrmClientMain.tbDisconnectedClick(Sender: TObject);
　　 begin
　　　 ClientSocket.Close;
　　 end;
　　 //接受伺服器端的回複
　　 procedure TfrmClientMain.ClientSocketRead(Sender: TObject;Socket: TCustomWinSocket);
　　 begin
　　　 Memo1.Lines.Add(Socket.ReceiveText);
　　 end;
　　 //發送資訊到伺服器端
　　 procedure TfrmClientMain.tbSendClick(Sender: TObject);
　　 begin
　　　 ClientSocket.Socket.SendText(Edit1.Text);
　　 end;
　　 procedure TfrmClientMain.tbCloseClick(Sender: TObject);
　　 begin
　　　 Close;
　　 end;
　　 //設定要已連線的服務器端地址
　　 procedure TfrmClientMain.FormShow(Sender: TObject);
　　 begin
　　　 ClientSocket.Host := SocketHost;
　　 end;
　　 //已經串連到伺服器端
　　 procedure TfrmClientMain.ClientSocketConnect(Sender: TObject;Socket: TCustomWinSocket);
　　 begin
　　　 tbSend.Enabled := True;
　　　 tbDisconnected.Enabled :=True;
　　　 btnSend.Enabled := True;
　　　 StatusBar.Panels[0].Text := '已經串連到 '+ Socket.RemoteHost ;
　　 end;
　　 //正在串連到伺服器端
　　 procedure TfrmClientMain.ClientSocketConnecting(Sender: TObject;Socket: TCustomWinSocket);
　　 begin
　　　 StatusBar.Panels[0].Text := '正在串連到伺服器... ' ;
　　 end;
　　 //當斷開與伺服器端的串連時發生
　　 procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
　　 begin
　　　 tbSend.Enabled := False;
　　　 btnSend.Enabled := False;
　　　 tbDisconnected.Enabled := False;
　　　 StatusBar.Panels[0].Text := '已經斷開與 '+ Socket.RemoteHost +' 的串連';
　　 end;
　　 procedure TfrmClientMain.FormClose(Sender: TObject;
var Action: TCloseAction);
　　 begin
　　　 ClientSocket.Close ;
　　 end;
　　 //當與伺服器端的串連發生錯誤時
　　 procedure TfrmClientMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);
　　 begin
　　　 StatusBar.Panels[0].Text := '與伺服器端的串連發生錯誤';
　　　 ErrorCode := 0;
　　 end;
　 end.