102 SDLTry(SDLNet_Init = 0, true);

   102 SDLTry(SDLNet_Init = 0, true);

   103 fds:= SDLNet_AllocSocketSet(1);

   103 fds:= SDLNet_AllocSocketSet(1);

   104 SDLTry(fds <> nil, true);

   104 SDLTry(fds <> nil, true);

   105 WriteLnToConsole(msgOK);

   105 WriteLnToConsole(msgOK);

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

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

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

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

   108 IPCSock:= SDLNet_TCP_Open(ipaddr);

   110 IPCSock:= SDLNet_TCP_Open(ipaddr);

   109 SDLTry(IPCSock <> nil, true);

   111 SDLTry(IPCSock <> nil, true);

   110 WriteLnToConsole(msgOK)

   112 WriteLnToConsole(msgOK)

   111 end;

   113 end;

   112 

   114 

   180 filemode:= 0;

   182 filemode:= 0;

   181 

   183 

   182 assign(f, fileName);

   184 assign(f, fileName);

   183 reset(f, 1);

   185 reset(f, 1);

   184 

   186 

   185 repeat

   189 repeat

   186     BlockRead(f, buf[1], 255 - Length(ss), i);

   190     BlockRead(f, buf[1], 255 - Length(ss), i);

   187     if i > 0 then

   191     if i > 0 then

   188         begin

   192         begin

   189         buf[0]:= i;

   193         buf[0]:= i;