35 lines
554 B
ObjectPascal
35 lines
554 B
ObjectPascal
Unit m_Protocol_YModem;
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
Interface
|
|
|
|
Uses
|
|
m_io_Base,
|
|
m_Protocol_Queue,
|
|
m_Protocol_Xmodem;
|
|
|
|
Type
|
|
TProtocolYmodem = Class(TProtocolXmodem)
|
|
UseG : Boolean;
|
|
|
|
Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
|
|
Destructor Destroy; Override;
|
|
End;
|
|
|
|
Implementation
|
|
|
|
Constructor TProtocolYModem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
|
|
Begin
|
|
Inherited Create(C, Q);
|
|
|
|
UseG := False;
|
|
End;
|
|
|
|
Destructor TProtocolYModem.Destroy;
|
|
Begin
|
|
Inherited Destroy;
|
|
End;
|
|
|
|
End.
|