Changeset 369 for trunk/Network/UNetworkClient.pas

Timestamp:

Apr 14, 2021, 3:49:11 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Build under Windows. fpAsync and fpSock are not supported under Windows. Networking needs to be replaced by something else multi-platform.

File:

• trunk/Network/UNetworkClient.pas (modified) (5 diffs)

trunk/Network/UNetworkClient.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fpsock, fpAsync, Protocol;
+  Classes, SysUtils{$IFDEF LINUX}, fpAsync, fpsock{$ENDIF}, Protocol;
 
+{$IFDEF LINUX}
 type
   { TTCPClientThread }
@@ -39 +40 @@
 var
   NetworkClient: TNetworkClient;
+{$ENDIF}
 
 procedure Client(Command, Player: Integer; var Data); stdcall;
@@ -48 +50 @@
   LocalPlayer, Global, UNetworkCommon;
 
-function LocalServer(Command, Player, Subject: Integer; var Data): Integer; stdcall;
-begin
-  if Assigned(NetworkClient) then
-    Result := NetworkClient.Server(TCommand(Command), Player, Subject, Data);
-end;
-
 procedure Client(Command, Player: Integer; var Data);
 var
   Cmd: TCommand;
 begin
+  {$IFDEF LINUX}
   Cmd := TCommand(Command);
   case Cmd of
@@ -71 +68 @@
     end;
   end;
+  {$ENDIF}
+end;
+
+{$IFDEF LINUX}
+function LocalServer(Command, Player, Subject: Integer; var Data): Integer; stdcall;
+begin
+  if Assigned(NetworkClient) then
+    Result := NetworkClient.Server(TCommand(Command), Player, Subject, Data);
 end;
 
@@ -167 +172 @@
   inherited;
 end;
+{$ENDIF}
 
 end.