Changeset 185 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormChat.pas (modified) (2 diffs)
• UFormClient.pas (modified) (1 diff)

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 := '';

trunk/Forms/UFormClient.pas

@@ -79 +79 @@
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
   public
-    property Client: TClient read FClient write SetClient;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure ReloadView;
     procedure Redraw;
+    property Client: TClient read FClient write SetClient;
   end;