103 |
103 |
104 procedure InitIPC; |
104 procedure InitIPC; |
105 var ipaddr: TIPAddress; |
105 var ipaddr: TIPAddress; |
106 begin |
106 begin |
107 WriteToConsole('Init SDL_Net... '); |
107 WriteToConsole('Init SDL_Net... '); |
108 SDLTry(SDLNet_Init = 0, true); |
108 SDLTry(SDLNet_Init = 0, 'SDLNet_Init', true); |
109 fds:= SDLNet_AllocSocketSet(1); |
109 fds:= SDLNet_AllocSocketSet(1); |
110 SDLTry(fds <> nil, true); |
110 SDLTry(fds <> nil, 'SDLNet_AllocSocketSet', true); |
111 WriteLnToConsole(msgOK); |
111 WriteLnToConsole(msgOK); |
112 WriteToConsole('Establishing IPC connection to tcp 127.0.0.1:' + IntToStr(ipcPort) + ' '); |
112 WriteToConsole('Establishing IPC connection to tcp 127.0.0.1:' + IntToStr(ipcPort) + ' '); |
113 {$HINTS OFF} |
113 {$HINTS OFF} |
114 SDLTry(SDLNet_ResolveHost(ipaddr, PChar('127.0.0.1'), ipcPort) = 0, true); |
114 SDLTry(SDLNet_ResolveHost(ipaddr, PChar('127.0.0.1'), ipcPort) = 0, 'SDLNet_ResolveHost', true); |
115 {$HINTS ON} |
115 {$HINTS ON} |
116 IPCSock:= SDLNet_TCP_Open(ipaddr); |
116 IPCSock:= SDLNet_TCP_Open(ipaddr); |
117 SDLTry(IPCSock <> nil, true); |
117 SDLTry(IPCSock <> nil, 'SDLNet_TCP_Open', true); |
118 WriteLnToConsole(msgOK) |
118 WriteLnToConsole(msgOK) |
119 end; |
119 end; |
120 |
120 |
121 procedure ParseChatCommand(command: shortstring; message: shortstring; |
121 procedure ParseChatCommand(command: shortstring; message: shortstring; |
122 messageStartIndex: Byte); |
122 messageStartIndex: Byte); |