eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small fix for eventual socket/named pipe support

This commit is contained in:
mysticbbs 2012-08-24 13:21:28 -04:00
parent e86ed5cc6a
commit 4582907b4f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mystic/nodespy.pas
View File

@ -551,10 +551,12 @@ Begin
While Pipe.Connected Do Begin While Pipe.Connected Do Begin
Pipe.ReadFromPipe(Buffer, SizeOf(Buffer), BufRead); Pipe.ReadFromPipe(Buffer, SizeOf(Buffer), BufRead);
If BufRead = 0 Then Case BufRead of
WaitMS(200) -1 : Break;
0 : WaitMS(200);
Else Else
Term.ProcessBuf(Buffer, BufRead); Term.ProcessBuf(Buffer, BufRead);
End;
If Keyboard.KeyPressed Then If Keyboard.KeyPressed Then
Case Keyboard.ReadKey of Case Keyboard.ReadKey of
@ -611,7 +613,7 @@ Begin
Client := TIOSocket.Create; Client := TIOSocket.Create;
If Not Client.Connect('127.0.0.1', Config.InetTNPort) Then If Not Client.Connect('127.0.0.1', Config.INetTNPort) Then
ShowMsgBox (0, 'Unable to connect') ShowMsgBox (0, 'Unable to connect')
Else Begin Else Begin
Done := False; Done := False;