Changeset 185 for trunk/UGameClient.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/UGameClient.pas (modified) (7 diffs)

trunk/UGameClient.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGame, Forms, fgl;
+  Classes, SysUtils, UGame, Forms, fgl, UGameProtocol;
 
 type
@@ -17 +17 @@
     FControlPlayer: TPlayer;
     FOnChange: TNotifyEvent;
-    FOnReceive: TReceiveEvent;
+    FOnReceive: TCommandEvent;
     FOnMove: TMoveEvent;
     procedure SetControlPlayer(AValue: TPlayer);
@@ -24 +24 @@
     procedure PlayerMove(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer;
       Update: Boolean; var Confirm: Boolean);
+    procedure ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream);
   public
     Name: string;
     View: TView;
+    Protocol: TGameProtocolClient;
     procedure DoChange;
-    procedure Send(Command: TCommand; DataOut, DataIn: Pointer);
     constructor Create;
     destructor Destroy; override;
@@ -35 +36 @@
     property Form: TForm read FForm write SetForm;
     property OnMove: TMoveEvent read FOnMove write FOnMove;
-    property OnReceive: TReceiveEvent read FOnReceive write FOnReceive;
+    property OnReceive: TCommandEvent read FOnReceive write FOnReceive;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
@@ -101 +102 @@
 end;
 
-procedure TClient.Send(Command: TCommand; DataOut, DataIn: Pointer);
+procedure TClient.ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream);
 begin
+
 end;
 
@@ -126 +128 @@
   FControlPlayer := nil;
   View := TView.Create;
+  Protocol := TGameProtocolClient.Create;
 end;
 
@@ -132 +135 @@
   ControlPlayer := nil;
   FreeAndNil(View);
+  FreeAndNil(Protocol);
   inherited Destroy;
 end;