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

MIS telnet linux updates

This commit is contained in:
mysticbbs 2012-03-10 03:49:11 -05:00
parent 684c6cf767
commit 7320e3db69
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mis_client_telnet.pas
View File

@ -10,6 +10,7 @@ Uses
Classes, Classes,
Process, Process,
SysUtils, SysUtils,
m_FileIO,
{$ENDIF} {$ENDIF}
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
Windows, Windows,
@ -142,11 +143,13 @@ Begin
If bWrite > 0 Then If bWrite > 0 Then
Proc.Input.Write(Buffer, bWrite); Proc.Input.Write(Buffer, bWrite);
End Else End Else
Sleep(25); Sleep(10);
End; End;
Proc.Free; Proc.Free;
FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
NI.Busy := False; NI.Busy := False;
NI.IP := ''; NI.IP := '';
NI.User := ''; NI.User := '';