Changeset 185 for trunk/Forms/UFormChat.pas

Timestamp:

Feb 12, 2018, 3:08:27 PM (7 years ago)

Author:

chronos

Message:

• Added: Package CoolStreaming.
• Added: GameProtocol unit for implementation of client/server game protocol methods.

File:

• trunk/Forms/UFormChat.pas (modified) (2 diffs)

trunk/Forms/UFormChat.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UGame, UGameClient;
+  UGame, UGameClient, SpecializedList;
 
 type
@@ -41 +41 @@
 
 procedure TFormChat.ButtonMessageSendClick(Sender: TObject);
-var
-  TextMessage: TCommandTextMessage;
 begin
   if Assigned(Client) then
   with Client do begin
-    TextMessage.Text := EditMessage.Text;
-    Client.Send(cmdTextMessage, @TextMessage, nil);
+    Protocol.SendMessage(EditMessage.Text);
     MemoChat.Lines.Add(Client.Name + ': ' + EditMessage.Text);
     EditMessage.Text := '';