程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 利用Delphi編寫Socket通信程序

利用Delphi編寫Socket通信程序

編輯:Delphi
  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的屬性設置簡單說明。

  ServerSocket的屬性:

  · Port,是通信的端口,必須設置。在本例中設置為1025;

  · ServerTypt,服務器端讀寫信息類型,設置為stNonBlocking表示異步讀寫信息,本例中采用這種方式。
 
  · ThreadCacheSize,客戶端的最大連接數,就是服務器端最多允許多少客戶端同時連接。本例采用默認值10。

  其它屬性采用默認設置即可。

  ClIEntSocket的屬性:

  · Port,是通信的端口,必須與服務器端的設置相同。在本例中設置為1025;

  · ClIEntType,客戶端讀寫信息類型,應該與服務器端的設置相同,為stNonBlocking表示異步讀寫信息。

  · Host,客戶端要連接的服務器的IP地址。必須設置,當然也可以在代碼中動態設置。

  其它屬性采用默認設置即可。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved