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