hedgewars/uFLNet.pas
branchqmlfrontend
changeset 10898 f373838129c2
parent 10896 5a74923120d5
child 10900 6a805e822074
--- a/hedgewars/uFLNet.pas	Thu Apr 16 23:31:13 2015 +0300
+++ b/hedgewars/uFLNet.pas	Wed Apr 22 23:33:16 2015 +0300
@@ -11,15 +11,22 @@
 
 var sock: PTCPSocket;
     fds: PSDLNet_SocketSet;
+    buf: shortstring;
+
+function netReader(data: pointer): LongInt; cdecl; export;
+begin
+end;
 
 procedure connectOfficialServer;
 var ipaddr: TIPAddress;
 begin
-    if sock <> nil then 
+    if sock <> nil then
         exit;
 
     if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then
-        sock:= SDLNet_TCP_Open(ipaddr)
+        sock:= SDLNet_TCP_Open(ipaddr);
+
+    callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil);
 end;
 
 procedure initModule;