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

最新推荐文章于 2024-09-26 10:38:36 发布

转载最新推荐文章于 2024-09-26 10:38:36 发布 · 3.4k 阅读

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

本文介绍了一种在Delphi中实现TCP连接心跳包的方法，包括定义心跳包结构、设置心跳参数以及在连接建立和断开时触发心跳机制的具体代码实现。

首先加入以下单元：

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;