Update DTC40_UserDB.pas

PassByYou888 · Oct 28, 2021 · aac8f19 · aac8f19
1 parent 0f0166b
commit aac8f19
Showing 1 changed file with 25 additions and 10 deletions.
diff --git a/Source/DTC40_UserDB.pas b/Source/DTC40_UserDB.pas
@@ -2006,8 +2006,11 @@ procedure TDTC40_UserDB_Client.cmd_Usr_Msg(Sender: TPeerIO; InData: TDFE);
   FromUserName_ := InData.R.ReadString;
   ToUserName_ := InData.R.ReadString;
   Msg_ := InData.R.ReadString;
-  if Assigned(ON_DTC40_UserDB_Client_Notify) then
-      ON_DTC40_UserDB_Client_Notify.Do_User_Msg(self, FromUserName_, ToUserName_, Msg_);
+  try
+    if Assigned(ON_DTC40_UserDB_Client_Notify) then
+        ON_DTC40_UserDB_Client_Notify.Do_User_Msg(self, FromUserName_, ToUserName_, Msg_);
+  except
+  end;
 end;
 
 procedure TDTC40_UserDB_Client.cmd_Usr_Open(Sender: TPeerIO; InData: TDFE);
@@ -2016,8 +2019,11 @@ procedure TDTC40_UserDB_Client.cmd_Usr_Open(Sender: TPeerIO; InData: TDFE);
 begin
   UserName_ := InData.R.ReadString;
   ToUserName_ := InData.R.ReadString;
-  if Assigned(ON_DTC40_UserDB_Client_Notify) then
-      ON_DTC40_UserDB_Client_Notify.Do_User_Open(self, UserName_, ToUserName_);
+  try
+    if Assigned(ON_DTC40_UserDB_Client_Notify) then
+        ON_DTC40_UserDB_Client_Notify.Do_User_Open(self, UserName_, ToUserName_);
+  except
+  end;
 end;
 
 procedure TDTC40_UserDB_Client.cmd_Usr_Close(Sender: TPeerIO; InData: TDFE);
@@ -2026,8 +2032,11 @@ procedure TDTC40_UserDB_Client.cmd_Usr_Close(Sender: TPeerIO; InData: TDFE);
 begin
   UserName_ := InData.R.ReadString;
   ToUserName_ := InData.R.ReadString;
-  if Assigned(ON_DTC40_UserDB_Client_Notify) then
-      ON_DTC40_UserDB_Client_Notify.Do_User_Close(self, UserName_, ToUserName_);
+  try
+    if Assigned(ON_DTC40_UserDB_Client_Notify) then
+        ON_DTC40_UserDB_Client_Notify.Do_User_Close(self, UserName_, ToUserName_);
+  except
+  end;
 end;
 
 procedure TDTC40_UserDB_Client.cmd_Usr_Request_Friend(Sender: TPeerIO; InData: TDFE);
@@ -2037,17 +2046,23 @@ procedure TDTC40_UserDB_Client.cmd_Usr_Request_Friend(Sender: TPeerIO; InData: T
   FromUserName_ := InData.R.ReadString;
   DestFriendUserName_ := InData.R.ReadString;
   Msg_ := InData.R.ReadString;
-  if Assigned(ON_DTC40_UserDB_Client_Notify) then
-      ON_DTC40_UserDB_Client_Notify.Do_User_Request_Friend(self, FromUserName_, DestFriendUserName_, Msg_);
+  try
+    if Assigned(ON_DTC40_UserDB_Client_Notify) then
+        ON_DTC40_UserDB_Client_Notify.Do_User_Request_Friend(self, FromUserName_, DestFriendUserName_, Msg_);
+  except
+  end;
 end;
 
 procedure TDTC40_UserDB_Client.cmd_Usr_Kick(Sender: TPeerIO; InData: TDFE);
 var
   UserName_: U_String;
 begin
   UserName_ := InData.R.ReadString;
-  if Assigned(ON_DTC40_UserDB_Client_Notify) then
-      ON_DTC40_UserDB_Client_Notify.Do_User_Kick(self, UserName_);
+  try
+    if Assigned(ON_DTC40_UserDB_Client_Notify) then
+        ON_DTC40_UserDB_Client_Notify.Do_User_Kick(self, UserName_);
+  except
+  end;
 end;
 
 constructor TDTC40_UserDB_Client.Create(source_: TDTC40_Info; Param_: U_String);