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

5
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;
@ -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;