Changeset 369 for trunk/Network/UNetworkServer.pas

Timestamp:

Apr 14, 2021, 3:49:11 PM (3 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/UNetworkServer.pas (modified) (5 diffs)

trunk/Network/UNetworkServer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl, fpAsync, fpsock, Protocol, fphttpclient;
-
+  Classes, SysUtils, fgl{$IFDEF LINUX}, fpAsync, fpsock{$ENDIF}, Protocol, fphttpclient;
+
+{$IFDEF LINUX}
 type
   TNetworkServer = class;
@@ -79 +80 @@
 var
   NetworkServer: TNetworkServer;
+{$ENDIF}
 
 procedure Client(Command, Player: integer; var Data); stdcall;
@@ -90 +92 @@
 procedure Client(Command, Player: integer; var Data);
 begin
+  {$IFDEF LINUX}
   if not Assigned(NetworkServer) then begin
     NetworkServer := TNetworkServer.Create;
@@ -99 +102 @@
   end;
   NetworkServer.Client(TCommand(Command), Player, Data);
-end;
+  {$ENDIF}
+end;
+
+{$IFDEF LINUX}
 
 { TNetworkServerPlayers }
@@ -327 +333 @@
 end;
 
+{$ENDIF}
+
 end.