equal
deleted
inserted
replaced
232 BlockRead(f, s[1], 255 - Length(ss), i); |
232 BlockRead(f, s[1], 255 - Length(ss), i); |
233 if i > 0 then |
233 if i > 0 then |
234 begin |
234 begin |
235 s[0]:= char(i); |
235 s[0]:= char(i); |
236 ss:= ss + s; |
236 ss:= ss + s; |
237 while (Length(ss) > 1)and(Length(ss) > byte(ss[1])) do |
237 while (Length(ss) > 1)and(Length(ss) > byte(ss[1])) and allOK do |
238 begin |
238 begin |
239 ParseIPCCommand(copy(ss, 2, byte(ss[1]))); |
239 ParseIPCCommand(copy(ss, 2, byte(ss[1]))); |
240 Delete(ss, 1, Succ(byte(ss[1]))); |
240 Delete(ss, 1, Succ(byte(ss[1]))); |
241 end |
241 end |
242 end |
242 end |
243 until i = 0; |
243 until (i = 0) or (not allOK); |
244 |
244 |
245 close(f) |
245 close(f) |
246 {$I+} |
246 {$I+} |
247 end; |
247 end; |
248 |
248 |
326 begin |
326 begin |
327 isPonged:= false; |
327 isPonged:= false; |
328 repeat |
328 repeat |
329 IPCCheckSock; |
329 IPCCheckSock; |
330 SDL_Delay(1) |
330 SDL_Delay(1) |
331 until isPonged |
331 until isPonged or (not allOK) |
332 end; |
332 end; |
333 |
333 |
334 procedure SendIPCAndWaitReply(s: shortstring); |
334 procedure SendIPCAndWaitReply(s: shortstring); |
335 begin |
335 begin |
336 SendIPC(s); |
336 SendIPC(s); |