|
Delphi2009開始，以DataSnap的JSON開發(fā)三層受用戶的關注，以下是開發(fā)過程中用到的一些內容 在客戶端我們用 SQLConnection連接服務端，在登錄時要驗證用戶及密碼是否正確，本例我們用tcp/ip方式通訊，  當然如果用http協(xié)議則把第38行放開即可。所有的驗證都在服務端執(zhí)行。以下為當?shù)卿浺豢蛻舳藭r，服務端上會顯示它的相關信息，當客戶端退出時會刪除它的相關信息的圖示：  這些功能的代碼主要寫在服務端的DSServer1.OnConnect和OnDisConnect事件中，但要加入以下單元： DBXCommon和IdTCPConnection。 以下為代碼圖示：  為了顯示，所以把版面變了一下，44行消去的部分是客戶端的用戶名驗證部分，這里大家 可以結合數(shù)據(jù)庫來驗證。還有一個的重點是得到客戶端的IP和Port,則我們可以用TidConnection(DSConnectEventObject.ChannelInfo.id).Socket.Binding..得到，那個id是內部標識號 得到客戶的用戶名和密碼則是DSConnectEventObject.ConnecProperties[TDBXPropertyNames..]得到，如何防止客戶端非正常退出可用心跳包來處理。 |
|
|
來自： delphiXE6 > 《DataSnap》
