141 lines
3.7 KiB
ObjectPascal
141 lines
3.7 KiB
ObjectPascal
// ====================================================================
|
|
// Mystic BBS Software Copyright 1997-2013 By James Coyle
|
|
// ====================================================================
|
|
//
|
|
// This file is part of Mystic BBS.
|
|
//
|
|
// Mystic BBS is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// Mystic BBS is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
|
|
//
|
|
// ====================================================================
|
|
Program TEST5;
|
|
|
|
Uses
|
|
m_Types,
|
|
m_Input,
|
|
m_Output,
|
|
m_Socket_Class,
|
|
m_DateTime,
|
|
m_Term_Ansi,
|
|
m_Strings;
|
|
|
|
Var
|
|
Input : TInput;
|
|
Output : TOutput;
|
|
Client : TSocketClass;
|
|
Term : TTermAnsi;
|
|
|
|
Procedure Init;
|
|
Begin
|
|
Input := TInput.Create;
|
|
Output := TOutput.Create(True);
|
|
Client := TSocketClass.Create;
|
|
Term := TTermAnsi.Create(Output);
|
|
End;
|
|
|
|
Procedure Cleanup;
|
|
Begin
|
|
Client.Free;
|
|
Term.Free;
|
|
Output.Free;
|
|
Input.Free;
|
|
End;
|
|
|
|
Var
|
|
Ch : Char;
|
|
Res : LongInt;
|
|
Buf : Array[1..1024] of Char;
|
|
Done : Boolean;
|
|
Image : TConsoleImageRec;
|
|
Begin
|
|
Init;
|
|
|
|
If ParamCount <> 2 Then Begin
|
|
Output.WriteLine('Invalid options: test5 [address] [port]');
|
|
Cleanup;
|
|
Halt;
|
|
End;
|
|
|
|
Output.WriteStr ('Connecting to: ' + ParamStr(1) + ':' + ParamStr(2) + '. ');
|
|
|
|
If Not Client.Connect(ParamStr(1), strS2I(ParamStr(2))) Then Begin
|
|
Output.WriteLine('Unable to connect');
|
|
Cleanup;
|
|
Halt;
|
|
End;
|
|
|
|
Output.WriteLine('Connected!');
|
|
Output.SetWindowTitle('MDL Terminal Demo');
|
|
|
|
Client.SetBlocking(False);
|
|
Term.SetReplyClient(Client);
|
|
|
|
Output.TextAttr := 7;
|
|
Output.ClearScreen();
|
|
Output.WriteXYPipe (1, 25, 15 + 1 * 16, 79, ' MDL Terminal Demo ');
|
|
Output.SetWindow(1, 1, 80, 24, True);
|
|
|
|
Done := False;
|
|
|
|
Repeat
|
|
If Input.KeyPressed Then Begin
|
|
Ch := Input.ReadKey;
|
|
|
|
Case Ch of
|
|
#00 : Case Input.ReadKey of
|
|
#45 : Break;
|
|
#71 : Client.WriteStr(#27 + '[H');
|
|
#72 : Client.WriteStr(#27 + '[A');
|
|
#73 : Client.WriteStr(#18);
|
|
#75 : Client.WriteStr(#27 + '[D');
|
|
#77 : Client.WriteStr(#27 + '[C');
|
|
#79 : Client.WriteStr(#27 + '[K');
|
|
#80 : Client.WriteStr(#27 + '[B');
|
|
#81 : Client.WriteStr(#3);
|
|
#83 : Client.WriteStr(#127);
|
|
#34 : Begin
|
|
Output.GetScreenImage(1, 1, 80, 25, Image);
|
|
End;
|
|
#25 : Begin
|
|
Output.ClearScreen;
|
|
Output.PutScreenImage(Image);
|
|
End;
|
|
^C : Break;
|
|
End;
|
|
End;
|
|
|
|
Client.WriteBuf(Ch, 1);
|
|
End Else
|
|
If Client.WaitForData(10) > 0 Then Begin
|
|
Repeat
|
|
Res := Client.ReadBuf(Buf, SizeOf(Buf));
|
|
|
|
If Res < 0 Then Begin
|
|
Done := True;
|
|
Break;
|
|
End;
|
|
|
|
Term.ProcessBuf(Buf[1], Res);
|
|
|
|
Until Res <> SizeOf(Buf);
|
|
End Else
|
|
WaitMS(10);
|
|
Until Done;
|
|
|
|
Output.WriteLine('');
|
|
Output.WriteLine('Connection terminated.');
|
|
Output.SetWindow(1, 1, 80, 25, False);
|
|
|
|
Cleanup;
|
|
End.
|