[an error occurred while processing this directive]
|
TComPort = class(TComponent)
Protected
FBaseAddress : Word; {базовый адрес порта}
FHandle : THandle; {дескриптор порта}
FBaudRate : TBaudRate; {скорость обмена (бод)}
FByteSize : TByteSize; {число бит в байте}
FParity : TParity; {четность}
FStopbits : TStopbits; {число стоп-бит}
Procedure DoOpenPort; {открытие порта}
Procedure DoClosePort; {закрытие порта}
Procedure ApplyComSettings; {установка параметров порта}
Private
FComNumber: Integer;
function GetConnected: Boolean;
procedure SetConnected(const Value: Boolean);
procedure SetComNumber(const Value: Integer);
procedure SetBaudRate(const Value: TBaudRate);
procedure SetByteSize(const Value: TByteSize);
procedure SetParity(const Value: TParity);
procedure SetStopbits(const Value: TStopbits);
Public
Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override;
E-mail: info@telesys.ru