99 WriteToConsole('Init SDL_Net... ');

    99     WriteToConsole('Init SDL_Net... ');

   100 SDLTry(SDLNet_Init = 0, true);

   100     SDLTry(SDLNet_Init = 0, true);

   101 fds:= SDLNet_AllocSocketSet(1);

   101     fds:= SDLNet_AllocSocketSet(1);

   102 SDLTry(fds <> nil, true);

   102     SDLTry(fds <> nil, true);

   103 WriteLnToConsole(msgOK);

   103     WriteLnToConsole(msgOK);

   104 WriteToConsole('Establishing IPC connection... ');

   104     WriteToConsole('Establishing IPC connection to tcp 127.0.0.1:' + IntToStr(ipcPort) + ' ');

   105 {$HINTS OFF}

   105     {$HINTS OFF}

   106 SDLTry(SDLNet_ResolveHost(ipaddr, '127.0.0.1', ipcPort) = 0, true);

   106     SDLTry(SDLNet_ResolveHost(ipaddr, '127.0.0.1', ipcPort) = 0, true);

   107 {$HINTS ON}

   107     {$HINTS ON}

   108 IPCSock:= SDLNet_TCP_Open(ipaddr);

   108     IPCSock:= SDLNet_TCP_Open(ipaddr);

   109 SDLTry(IPCSock <> nil, true);

   109     SDLTry(IPCSock <> nil, true);

   110 WriteLnToConsole(msgOK)

   110     WriteLnToConsole(msgOK)