MIS telnet linux updates
This commit is contained in:
parent
684c6cf767
commit
7320e3db69
|
@ -10,6 +10,7 @@ Uses
|
|||
Classes,
|
||||
Process,
|
||||
SysUtils,
|
||||
m_FileIO,
|
||||
{$ENDIF}
|
||||
{$IFDEF WINDOWS}
|
||||
Windows,
|
||||
|
@ -142,11 +143,13 @@ Begin
|
|||
If bWrite > 0 Then
|
||||
Proc.Input.Write(Buffer, bWrite);
|
||||
End Else
|
||||
Sleep(25);
|
||||
Sleep(10);
|
||||
End;
|
||||
|
||||
Proc.Free;
|
||||
|
||||
FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
|
||||
|
||||
NI.Busy := False;
|
||||
NI.IP := '';
|
||||
NI.User := '';
|
||||
|
@ -161,4 +164,4 @@ Begin
|
|||
Inherited Destroy;
|
||||
End;
|
||||
|
||||
End.
|
||||
End.
|
||||
|
|
Loading…
Reference in New Issue