一、Delphi與Socket
計算機網(wǎng)絡(luò)是由一系列網(wǎng)絡(luò)通信協(xié)議組成的，其中的核心協(xié)議是傳輸層的TCP/ip和UDP協(xié)議。TCP是面向連接的，通信雙方保持一條通路，好比目前的電話線，使用telnet登陸B(tài)BS，用的就是TCP協(xié)議；UDP是無連接的，通信雙方都不保持對方的狀態(tài)，瀏覽器訪問Internet時使用的HTTP協(xié)議就是基于UDP協(xié)議的。TCP和UDP協(xié)議都非常復雜，尤其是TCP協(xié)議，為了保證網(wǎng)絡(luò)傳輸?shù)恼_性和有效性，必須進行一系列復雜的糾錯和排序等處理。
Socket是建立在傳輸層協(xié)議(主要是TCP和UDP)上的一種套接字規(guī)范，最初是由美國加州Berkley大學提出，它定義兩臺計算機間進行通信的規(guī)范（也是一種編程規(guī)范），如果說兩臺計算機是利用一個“通道“進行通信，那么這個“通道“的兩端就是兩個套接字。套接字屏蔽了底層通信軟件和具體操作系統(tǒng)的差異，使得任何兩臺安裝了TCP協(xié)議軟件和實現(xiàn)了套接字規(guī)范的計算機之間的通信成為可能。
微軟的Windows Socket規(guī)范(簡稱winsock)對Berkley的套接字規(guī)范進行了擴展，利用標準的Socket的方法，可以同任何平臺上的Socket進行通信；利用其擴展，可以更有效地實現(xiàn)在Windows平臺上計算機間的通信。在Delphi中，其底層的Socket也應(yīng)該是Windows的Socket。Socket減輕了編寫計算機間通信軟件的難度，但總的說來還是相當復雜的（這一點在后面具體會講到）；InPRise在Delphi中對Windows Socket進行了有效的封裝，使得用戶可以很方便地編寫網(wǎng)絡(luò)通信程序。下面我們實例解讀在Delphi中如何利用Socket編寫通信程序。
二、利用Delphi編寫Socket通信程序。
下面是一個簡單的Socket通信程序，其中客戶機和服務(wù)機是同一個程序，當客戶機（服務(wù)器）在一個memo1中輸入一段文字然后敲入回車，該段文字就可以顯示在服務(wù)器(客戶機)的memo2中，反之亦成立。具體步驟如下：
1、新建一個form，任意命名，不妨設(shè)之為chatForm；放上一個MainMenu(在Standard欄中)，建立ListenItem、ConnectItem、Disconnect和Exit菜單項；在從Internet欄中選擇TServerSocket、TClientSocket添加到chatForm中，其中把TClientSocket的名字設(shè)為ClientSocket, port設(shè)為1025，默認的active為false；把TServerSocket的名字設(shè)為ServerSocket，port設(shè)為1025，默認的active為false，其他的不變；再放入兩個memo，一個命名為memo1,另外一個命名為memo2,其中把memo2的color設(shè)置為灰色，因為主要用來顯示對方的輸入。下面我們一邊編寫代碼一邊解釋原因。
２、雙擊ListemItem。寫入如下代碼：
procedure TChatForm.ListenItemClick(Sender: TObject);
begin
ListenItem.Checked := not ListenItem.Checked;
if ListenItem.Checked then
begin
ClientSocket.Active := False;
ServerSocket.Active := True;
end
else
begin
if ServerSocket.Active then
ServerSocket.Active := False;
end;
end;
該程序段的說明如下：當用戶選擇ListemItem時，該ListenItem取反，如果選中的話，說明處于Listen狀態(tài)，讀者要了解的是：listen是Socket作為Server時一個專有的方法，如果處于listen,則ServerSocket設(shè)置為活動狀態(tài)；否則，取消listen，則關(guān)閉ServerSocket。實際上，只有用戶一開始選擇該菜單項，表明該程序用作Server。反之，如果用戶選擇ConnectItem，則必然作為Client使用。
?。?、雙擊ConnectItem，敲入以下代碼。
procedure TChatForm.ConnectItemClick(Sender: TObject);
begin
if ClientSocket.Active then ClientSocket.Active := False;
if InputQuery('Computer to connect to', 'Address Name:', Server) then
if Length(Server) > 0 then
with ClientSocket do
begin
Host := Server;
Active := True;
ListenItem.Checked := False;
end;
end;
這段程序的主要功能就是當用戶選擇ConnectItem菜單項時，設(shè)置應(yīng)用程序為客戶機，彈出input框，讓用戶輸入服務(wù)器的地址。這也就是我們不一開始固定ClientSocket的host的原因，這樣用戶可以動態(tài)地連接不同的服務(wù)器。讀者需要了解的是主機地址只是Socket作為客戶機時具有的一個屬性，Socket作為服務(wù)器時“一般“不用地址，因為它同本機綁定。
4、在memo1的keydown方法中寫入如下代碼：
procedure TChatForm.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
if IsServer then
ServerSocket.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.Count - 1])
else
ClientSocket.Socket.SendText(Memo1.Lines[Memo1.Lines.Count - 1]);
end;
該段代碼的作用很明顯，就是開始發(fā)消息了。其中如果是Server的話，它只向第一個客戶機發(fā)消息，由于一個服務(wù)器可以連接多個客戶機，而同客戶機的每一個連接都由一個Socket來維持，因此ServerSocket.Socket.Connnections數(shù)組中存儲的就是同Client維持連接的Socket。在標準Socket中，服務(wù)器方的Socket通過accept()方法的返回值獲取維持同客戶機連接的Socket,而發(fā)送、接受消息的方法分別為send(sendto)和recv(recvfrom), Delphi對此進行了封裝。
?。?、其余代碼的簡要介紹。
procedure TChatForm.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
end;
ServerSocket的Accept方法，當客戶機第一次連接時完成，通過其參數(shù)可以認為，它是在標準的accept方法后執(zhí)行的，因為有TCustomWinSocket這個參數(shù)類型，它應(yīng)該是標準Server方Socket的返回值。
procedure TChatForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
這兩段代碼分別是服務(wù)器方和客戶機方在收到對方的消息時，由Delphi觸發(fā)的，作用是在memo2中顯示收到的消息。其中，ClientSocketRead中的Socket實際上就是Socket本身，而在ServerSocketClientRead中的Socket實際上是ServerSocket.Socket.Connection[]中的某個Socket。不過在Delphi中，對服務(wù)器方的Socket進行了有效的封裝。
procedure TChatForm.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Clear;
end;
procedure TChatForm.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ListenItemClick(nil);
end;
這兩段比較簡單。其中ServerSocketClientConnect在ServerSocket收到一個新的連接時觸發(fā)。而ClientSocketDisconnect在ClientSocket發(fā)出Disconncet時觸發(fā)。
procedure TChatForm.Exit1Click(Sender: TObject);
begin
ServerSocket.Close;
ClientSocket.Close;
Close;
end;
procedure TChatForm.Disconnect1Click(Sender: TObject);
begin
ClientSocket.Active := False;
ServerSocket.Active := True;
end;
第一段為關(guān)閉應(yīng)用程序。在標準Socket中，每個Socket在關(guān)閉時，必須調(diào)用closesocket()方法，否則系統(tǒng)不會釋放資源。而在ServerSockt.Close和ClientSocket.Close中，系統(tǒng)內(nèi)部肯定調(diào)用了closesocket（）方法。
三、標準Socket與Delphi中的Socket。
標準的Socket的應(yīng)用程序框架如下：
Server方： Socket()[ 新建一個Socket]－－Bind()[ 同服務(wù)器地址邦定 ]－－Listen() －－Accept()－－block wait－－read()[接受消息，在windows平臺中，方法為send(TCP),或者是sendto(UDP)]－－處理服務(wù)請求－－Write()[發(fā)送消息，在windows平臺中，方法為send(TCP), 或者為sendto(UDP)。
Client方相對簡單：Socket()－－Connect()[通過一定的port連接特定的服務(wù)器，這是與服務(wù)器建立連接]－－Write()－－Read()。
Socket可以是基于TCP的，也可以是基于UDP,同時Socket甚至建立在其他的協(xié)議，比如IPX/SPX，DECNet等。在新建一個Socket時，可以指定新建何類Socket。Bind()用來同服務(wù)器的地址邦定，如果一個主機只有一個IP地址，實際上邦定的作用就相對多余了。Listen()開始監(jiān)聽網(wǎng)絡(luò)，Accept()用于接受連接，其返回值是保持同客戶機聯(lián)系的Socket。
在Delphi中，對于Windows中的Socket進行了有效的封裝。在Delphi中，按其繼承關(guān)系，可以分層兩類：
一、TComponent－－TAbstractSocket－－TCustomSocket－－TCustomServerSocket－－TServerSocket
TComponent－－TAbstractSocket－－TCustomSocket－－TClientSocket
二、直接從TObject繼承過來:
TObject－－TCustomWinSocket－－TServerWinSocket
TObject－－TCustomWinSocket－－TClientWinSocket
TObject－－TCustomWinSocket－－TServerClientWinSocket
可以看出第一類建立在TCustomSocket基礎(chǔ)上，第二類建立在TCustomWinSocket的基礎(chǔ)上。第一類建立在TComponet的基礎(chǔ)上，第二類直接構(gòu)建在TObject基礎(chǔ)上。因此如果用戶非常熟悉Socket并且想要編寫控制臺程序時，可以使用TCustomWinScoket類。
同uses中可以看出，它們都在ScktComp.pas中實現(xiàn)，而在schtComp.pas中，則包含了winsock.pas文件，如果繼續(xù)深入winsock文件，在其中可以發(fā)現(xiàn)所有的Windows Socket的基本方法。
實際上，如果你了解了標準Socket的應(yīng)用程序框架，對于使用Delphi編寫Socket應(yīng)用程序也就得心應(yīng)手了；這不是說你必須了解復雜的Socket中的標準函數(shù)，也沒有必要，因為Delphi已經(jīng)為你做了很好的封裝了，這也正是Delphi的強勢所在，你只要了解那么一點點的基本框架。
這是我對Delphi中的Socket應(yīng)用的理解，不足之處希望大家指正。同時也樂于為大家解答Delphi中有關(guān)Socket的問題。
新聞熱點
疑難解答
圖片精選
