equal
deleted
inserted
replaced
9 implementation |
9 implementation |
10 uses SDLh; |
10 uses SDLh; |
11 |
11 |
12 var sock: PTCPSocket; |
12 var sock: PTCPSocket; |
13 fds: PSDLNet_SocketSet; |
13 fds: PSDLNet_SocketSet; |
|
14 buf: shortstring; |
|
15 |
|
16 function netReader(data: pointer): LongInt; cdecl; export; |
|
17 begin |
|
18 end; |
14 |
19 |
15 procedure connectOfficialServer; |
20 procedure connectOfficialServer; |
16 var ipaddr: TIPAddress; |
21 var ipaddr: TIPAddress; |
17 begin |
22 begin |
18 if sock <> nil then |
23 if sock <> nil then |
19 exit; |
24 exit; |
20 |
25 |
21 if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then |
26 if SDLNet_ResolveHost(ipaddr, PChar('netserver.hedgewars.org'), 46631) = 0 then |
22 sock:= SDLNet_TCP_Open(ipaddr) |
27 sock:= SDLNet_TCP_Open(ipaddr); |
|
28 |
|
29 callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil); |
23 end; |
30 end; |
24 |
31 |
25 procedure initModule; |
32 procedure initModule; |
26 begin |
33 begin |
27 sock:= nil; |
34 sock:= nil; |