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

New IO class now abstract

This commit is contained in:
mysticbbs 2012-08-11 14:58:12 -04:00
parent eb3a8c4417
commit dbbd542fa2
5 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mdl/m_protocol_base.pas
View File

@ -7,7 +7,7 @@ Interface
Uses
m_DateTime,
m_Input,
m_Socket_Class,
m_io_Base,
m_Protocol_Queue;
Type
@ -32,7 +32,7 @@ Type
Status : RecProtocolStatus;
StatusProc : TProtocolStatusProc;
AbortProc : TProtocolAbortProc;
Client : TSocketClass;
Client : TIOBase;
Queue : TProtocolQueue;
EndTransfer : Boolean;
Connected : Boolean;
@ -40,7 +40,7 @@ Type
StatusTimer : LongInt;
ReceivePath : String;
Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Virtual;
Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Virtual;
Destructor Destroy; Override;
Function AbortTransfer : Boolean;
@ -58,7 +58,7 @@ Begin
Result := False;
End;
Constructor TProtocolBase.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
Constructor TProtocolBase.Create (Var C: TIOBase; Var Q: TProtocolQueue);
Begin
Client := C;
Queue := Q;

6
mdl/m_protocol_xmodem.pas
View File

@ -5,7 +5,7 @@ Unit m_Protocol_XModem;
Interface
Uses
m_Socket_Class,
m_io_Base,
m_Protocol_Base,
m_Protocol_Queue;
@ -14,13 +14,13 @@ Type
DoCRC : Boolean;
Do1K : Boolean;
Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Override;
Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
Destructor Destroy; Override;
End;
Implementation
Constructor TProtocolXmodem.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
Constructor TProtocolXmodem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
Begin
Inherited Create(C, Q);

8
mdl/m_protocol_ymodem.pas
View File

@ -5,7 +5,7 @@ Unit m_Protocol_YModem;
Interface
Uses
m_Socket_Class,
m_io_Base,
m_Protocol_Queue,
m_Protocol_Xmodem;
@ -13,13 +13,13 @@ Type
TProtocolYmodem = Class(TProtocolXmodem)
UseG : Boolean;
Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Override;
Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
Destructor Destroy; Override;
End;
Implementation
Constructor TProtocolYModem.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
Constructor TProtocolYModem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
Begin
Inherited Create(C, Q);
@ -31,4 +31,4 @@ Begin
Inherited Destroy;
End;
End.
End.

10
mdl/m_protocol_zmodem.pas
View File

@ -2,7 +2,7 @@ Unit m_Protocol_Zmodem;
{$I M_OPS.PAS}
{$DEFINE ZDEBUG}
{.$DEFINE ZDEBUG}
Interface
@ -13,7 +13,7 @@ Uses
m_FileIO,
m_Strings,
m_Input,
m_Socket_Class,
m_io_Base,
m_Protocol_Base,
m_Protocol_Queue;
@ -44,7 +44,7 @@ Type
RxBytes : LongInt;
RxCount : LongInt;
Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Override;
Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
Destructor Destroy; Override;
Procedure QueueReceive; Override;
@ -187,7 +187,7 @@ Begin
End;
{$ENDIF}
Constructor TProtocolZmodem.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
Constructor TProtocolZmodem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
Begin
Inherited Create (C, Q);
@ -1681,4 +1681,4 @@ Begin
StatusUpdate(False, True);
End;
End.
End.

8
mdl/m_term_ansi.pas
View File

@ -6,7 +6,7 @@ Interface
Uses
m_Output,
m_Socket_Class,
m_io_Base,
m_Strings;
Type
@ -14,7 +14,7 @@ Type
Screen : TOutput;
WasValid : Boolean;
Private
Client : TSocketClass;
Client : TIOBase;
State : Byte;
SavedX : Byte;
SavedY : Byte;
@ -33,7 +33,7 @@ Type
Destructor Destroy; Override;
Procedure Process (Ch: Char);
Procedure ProcessBuf (Var Buf; BufLen : Word);
Procedure SetReplyClient (Var Cli: TSocketClass);
Procedure SetReplyClient (Var Cli: TIOBase);
End;
Implementation
@ -57,7 +57,7 @@ Begin
Inherited Destroy;
End;
Procedure TTermAnsi.SetReplyClient (Var Cli: TSocketClass);
Procedure TTermAnsi.SetReplyClient (Var Cli: TIOBase);
Begin
Client := Cli;
End;