112 |
112 |
113 procedure InitIPC; |
113 procedure InitIPC; |
114 var ipaddr: TIPAddress; |
114 var ipaddr: TIPAddress; |
115 begin |
115 begin |
116 WriteToConsole('Init SDL_Net... '); |
116 WriteToConsole('Init SDL_Net... '); |
117 SDLTry(SDLNet_Init = 0, 'SDLNet_Init', true); |
117 SDLCheck(SDLNet_Init = 0, 'SDLNet_Init', true); |
118 fds:= SDLNet_AllocSocketSet(1); |
118 fds:= SDLNet_AllocSocketSet(1); |
119 SDLTry(fds <> nil, 'SDLNet_AllocSocketSet', true); |
119 SDLCheck(fds <> nil, 'SDLNet_AllocSocketSet', true); |
120 WriteLnToConsole(msgOK); |
120 WriteLnToConsole(msgOK); |
121 WriteToConsole('Establishing IPC connection to tcp 127.0.0.1:' + IntToStr(ipcPort) + ' '); |
121 WriteToConsole('Establishing IPC connection to tcp 127.0.0.1:' + IntToStr(ipcPort) + ' '); |
122 {$HINTS OFF} |
122 {$HINTS OFF} |
123 SDLTry(SDLNet_ResolveHost(ipaddr, PChar('127.0.0.1'), ipcPort) = 0, 'SDLNet_ResolveHost', true); |
123 SDLCheck(SDLNet_ResolveHost(ipaddr, PChar('127.0.0.1'), ipcPort) = 0, 'SDLNet_ResolveHost', true); |
124 {$HINTS ON} |
124 {$HINTS ON} |
125 IPCSock:= SDLNet_TCP_Open(ipaddr); |
125 IPCSock:= SDLNet_TCP_Open(ipaddr); |
126 SDLTry(IPCSock <> nil, 'SDLNet_TCP_Open', true); |
126 SDLCheck(IPCSock <> nil, 'SDLNet_TCP_Open', true); |
127 WriteLnToConsole(msgOK) |
127 WriteLnToConsole(msgOK) |
128 end; |
128 end; |
129 |
129 |
130 procedure ParseChatCommand(command: shortstring; message: shortstring; |
130 procedure ParseChatCommand(command: shortstring; message: shortstring; |
131 messageStartIndex: Byte); |
131 messageStartIndex: Byte); |