diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas index 4fe5c34..e9d37c1 100644 --- a/mystic/mis_client_telnet.pas +++ b/mystic/mis_client_telnet.pas @@ -7,8 +7,9 @@ Interface Uses {$IFDEF UNIX} Unix, + //TPROCESS unit? {$ENDIF} - {$IFDEF WIN32} + {$IFDEF WINDOWS} Windows, {$ENDIF} m_Strings, @@ -122,11 +123,14 @@ Begin // // while processGoing do begin // case waitEvent(Input, output, close, wait INFINITY) - // input : push input to STDIO handle? - // output : push output to client class + // input : push input from client to STDIO handle + // output : push output from STDIO to client class // close : break; // end + // it seems there might be a TProcess in FCL with FPC that can do this + // already... research! + NI.Busy := False; NI.IP := ''; NI.User := '';