三層Datasnap 服務端驗證以及心跳包技術

首先加入以下單元：

uses DBXCommon,IdTCPConnection,IdWinsock2；

再聲明：

type  

...

         type

              TCP_KeepAlive = record

              OnOff: Cardinal;

              KeepAliveTime: Cardinal;

             KeepAliveInterval: Cardinal;

         end;

....

在服務端的DSServer1.OnConnect事件中：

procedure TServerContainer2.DSServer1Connect(

  DSConnectEventObject: TDSConnectEventObject);

var

  Val: TCP_KeepAlive;

  Ret: DWord;

  conne:tidtcpconnection;

  aip,aport,ausername,apass:string;

begin

 //驗證

  conne:=TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);

  aip:=conne.Socket.Binding.PeerIP;

  aport:=inttostr(conne.Socket.Binding.PeerPort);

  ausername:=DSConnectEventObject.ConnectProperties[TDBXPropertyNames.UserName];

  apass:=DSConnectEventObject.ConnectProperties[TDBXPropertyNames.Password];

  if (ausername<>'jiangbin') and (apass<>'2010') then

     DSConnectEventObject.DbxConnection.Destroy

   else

     fr_main.memo1.Lines.add(aip+':'+aport+'  名稱:'+ausername);

//心跳包代碼

  Val.OnOff := 1;

  Val.KeepAliveTime := 5000;

  Val.KeepAliveInterval := 3000;

  WSAIoctl(conne.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,

    @Val, SizeOf(Val), nil, 0, @Ret, nil, nil);

end;

然後在服務端的DSServer1.OnDisConnect事件中：

procedure TServerContainer2.DSServer1Disconnect(

  DSConnectEventObject: TDSConnectEventObject);

var conne:tidtcpconnection;

    aip,aport,ausername,apass:string;

    i:integer;

begin

//斷開後清除連接配接IP及端口

  conne:=TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);

  aip:=conne.Socket.Binding.PeerIP;

  aport:=IntToStr(conne.Socket.Binding.PeerPort);

  if fr_main.Memo1.Lines.Count>0 then

     begin

        for i:=0 to fr_main.Memo1.Lines.Count - 1 do

        begin

          if pos(aip+':'+aport,fr_main.Memo1.Lines[i])>0 then

             fr_main.Memo1.Lines.Delete(i);

        end;

     end;

end;