三层Datasnap 服务端验证以及心跳包技术

来源：互联网发布：淘宝买东西店铺下架了编辑：程序博客网时间：2024/06/06 01:26

首先加入以下单元：

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;

阅读全文

0 0