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

FDisconnect

This commit is contained in:
mysticbbs 2012-08-07 12:58:25 -04:00
parent 74e937114c
commit c4ee7d0bb4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mdl/m_socket_class.pas
View File

@ -49,6 +49,7 @@ Type
FTelnetSubData : String; FTelnetSubData : String;
FTelnetClient : Boolean; FTelnetClient : Boolean;
FTelnetServer : Boolean; FTelnetServer : Boolean;
FDisconnect : Boolean;
Constructor Create; Constructor Create;
Destructor Destroy; Override; Destructor Destroy; Override;
@ -73,7 +74,7 @@ Type
Function WaitConnection : TSocketClass; Function WaitConnection : TSocketClass;
Procedure PurgeInputData; Procedure PurgeInputData;
Procedure PurgeOutputData; Procedure PurgeOutputData;
Function PeekChar (Num: Byte) : Char; Function PeekChar (Num: Byte) : Char;
Function ReadChar : Char; Function ReadChar : Char;
Function WriteChar (Ch: Char) : LongInt; Function WriteChar (Ch: Char) : LongInt;
Procedure Status (Str: String); Procedure Status (Str: String);
@ -122,7 +123,7 @@ Begin
FTelnetEcho := False; FTelnetEcho := False;
FTelnetClient := False; FTelnetClient := False;
FTelnetServer := False; FTelnetServer := False;
{ FHostIP := '127.0.0.1';} FDisconnect := True;
FHostIP := ''; FHostIP := '';
StatusUpdated := False; StatusUpdated := False;
@ -131,7 +132,7 @@ End;
Destructor TSocketClass.Destroy; Destructor TSocketClass.Destroy;
Begin Begin
Disconnect; If FDisconnect Then Disconnect;
SocketStatus.Free; SocketStatus.Free;