Changeset 13 for trunk/SunriseChatCoreUnit.pas

Timestamp:

Feb 11, 2008, 2:14:42 PM (17 years ago)

Author:

george

Message:

Opraveno: Načítání seznamu síťových adaptérů na Linuxu.
Přidáno: Úpravy pro potřeby ladění problému s nepřijímáním UDP paketů.

File:

• trunk/SunriseChatCoreUnit.pas (modified) (6 diffs)

trunk/SunriseChatCoreUnit.pas

@@ -170 +170 @@
 implementation
 
+uses
+  UProtocolMessageLog;
+
 procedure Register;
 begin
@@ -279 +282 @@
         Seq := StrToInt(Parse);       // sequence command number
 
-
+        ProtocolMessageLogForm.Memo1.Lines.Add('ProcessCommand: ' + Text);
         // Load source user data
         if SameClientId(TargetUser.Id, LocalUser.Id) then begin
@@ -298 +301 @@
         if Seq <> (SourceUser.Sequence + 1) then ErrorCount := ErrorCount + 1;
         Sequence := Seq;
+        ProtocolMessageLogForm.Memo1.Lines.Add('ProcessCommand: UpdateUser ');
         UpdateUser(SourceUser);
 
@@ -442 +446 @@
               if (Part <> Nick) and (NickTime <> 0) then AddMessage(aeUserChangeNick, nil, [Nick, Part]);
               FNick := Part;
+              ProtocolMessageLogForm.Memo1.Lines.Add('ProcessCommand: UserInfo ' + FNick);
               NickTime := StrToDateTime(Parse);
               Color := StrToInt(Parse);
@@ -587 +592 @@
       end;
     end;
+    if Assigned(ProtocolMessageLogForm) then
+      ProtocolMessageLogForm.Memo1.Lines.Add('SendCommand: ' + Data);
     if Assigned(FOnSendCommand) then FOnSendCommand(Data + #13);
   end;
@@ -637 +644 @@
 end;
 
-procedure TSunriseChatCore.AddMessage(MessageEventType: TAppEventType; Room: TRoom; const Args: array of const);
+procedure TSunriseChatCore.AddMessage(MessageEventType: TAppEventType;
+  Room: TRoom; const Args: array of const);
 var
   NewRoomLine: TRoomLine;