|
|
Скачал это чудо. Которое ComPort.pas. НаписАл прогу. Всё, вроде, работает. По Rx/Tx байты передаются нормально. Простая строчка
FPort.WriteByte(X); и X полетел в порт.
Но вот потребовалось работать и с дополнительными линиями интерфейса. В частности - иметь возможность дёргать RTS. Для него в регистре порта смещение адреса 4 и вес 2. И вот уже второй день я маюсь, не знаю как задать смещение адреса! Посмотрите пожалуйста код, где там вообще базовый адрес получается?
То есть, где имя файла (порта задаётся), понятно. Он у меня аж седьмой! А вот есть там базовый адрес или его нет хз...
ЗЫ: Скорости в 2 МБод не пугайтесь - работа идёт не по чистому RS-232, а через USB-RS232 преобразователь. При этом, как уже говорил, по Rx/Tx данные идут прекрасно.
C простыми СОМ портами также всё ОК, а вот RTS дёргать не получается…
Работаю в делфи7.
код:
--------------------------------------------------------------------------------
unit ComPort;
interface
uses
Windows, SysUtils, Classes;
Type
TBaudRate = (
br110, br300, br600, br1200, br2400, br4800, br9600,
br14400, br19200, br38400, br56000, br57600, br115200
);
TByteSize = (
bs5, bs6, bs7, bs8
);
TParity = (
ptNONE, ptODD, ptEVEN, ptMARK, ptSPACE
);
TStopbits = (
sb1BITS, sb1HALFBITS, sb2BITS
);
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;
Public
{Открывает/закрывает порт}
Procedure Open;
Procedure Close;
{Возвращает True, если порт открыт}
Function Connect : Boolean;
{Возвращает структуру состояния порта ComStat, а в }
{переменной CodeError возвращается текущий код ошибки }
Function GetState(var CodeError : Cardinal) : TComStat;
{Возвращает состояние модема}
Function GetModemState : Cardinal;
{Читает один байт. Если байт прочитан успешно, возвращает True}
Function ReadByte(var B : Byte) : Boolean;
{Передает один байт. В случае успеха возвращает True}
Function WriteByte(const B : Byte) : Boolean;
{Передаёт байт в 4 подрегистр}
Function WriteByteS(const Bs : Byte) : Boolean;
Public
{Номер порта. При изменении порт переоткрывается, если был открыт}
Property ComNumber : Integer read FComNumber write SetComNumber;
{Возвращает True, если порт открыт}
Property Connected : Boolean read GetConnected write SetConnected;
{Скорость обмена}
Property BaudRate : TBaudRate read FBaudRate write SetBaudRate;
{Число бит в байте}
Property ByteSize : TByteSize read FByteSize write SetByteSize;
{Четность}
Property Parity : TParity read FParity write SetParity;
{Число стоп-бит}
Property Stopbits : TStopbits read FStopbits write SetStopbits;
End;
implementation
Const
WindowsBaudRates: array[br110..br115200] of DWORD = (
CBR_110, CBR_300, CBR_600, CBR_1200, CBR_2400, CBR_4800, CBR_9600,
CBR_14400, CBR_19200, CBR_38400, CBR_56000, CBR_57600, CBR_115200
{CRB_128000, CBR_256000 - описаны в Windows.pas, но не используются}
);
Const
dcb_Binary = $00000001;
dcb_ParityCheck = $00000002;
dcb_OutxCtsFlow = $00000004;
dcb_OutxDsrFlow = $00000008;
dcb_DtrControlMask = $00000030;
dcb_DtrControlDisable = $00000000;
dcb_DtrControlEnable = $00000010;
dcb_DtrControlHandshake = $00000020;
dcb_DsrSensivity = $00000040;
dcb_TXContinueOnXoff = $00000080;
dcb_OutX = $00000100;
dcb_InX = $00000200;
dcb_ErrorChar = $00000400;
dcb_NullStrip = $00000800;
dcb_RtsControlMask = $00003000;
dcb_RtsControlDisable = $00000000;
dcb_RtsControlEnable = $00001000;
dcb_RtsControlHandshake = $00002000;
dcb_RtsControlToggle = $00003000;
dcb_AbortOnError = $00004000;
dcb_Reserveds = $FFFF8000;
Constructor TComPort.Create(AOwner : TComponent);
Begin
Inherited Create(AOwner);
FHandle:= INVALID_HANDLE_VALUE;
End;
Destructor TComPort.Destroy;
Begin
DoClosePort;
Inherited Destroy;
End;
function TComPort.GetConnected: Boolean;
begin
Result:= (FHandle <> INVALID_HANDLE_VALUE);
end;
procedure TComPort.SetConnected(const Value: Boolean);
begin
If Value then DoOpenPort else DoClosePort;
end;
Function TComPort.Connect : Boolean;
Begin
DoOpenPort;
Result:= Connected;
End;
Procedure TComPort.Open;
Begin
DoOpenPort;
End;
Procedure TComPort.Close;
Begin
DoClosePort;
End;
procedure TComPort.SetComNumber(const Value: Integer);
var Active : Boolean;
begin
If FComNumber = Value then Exit;
Active:= Connected; {сохраним значение активности порта}
If Active then DoClosePort; {закрыть порт перед изменением индекса}
FComNumber:= Value; {устанавливаем новое значение номера порта}
If Active then DoOpenPort; {открыть порт, если он был открыт}
end;
{открытие порта}
Procedure TComPort.DoOpenPort;
Var ComName : String;
Begin
If Connected then Exit;
{Для портов 1..9 можно использовать простые имена COM1..COM9,}
{но для портов 10-256 надо писать полное имя. Для общности }
{будем всегда использовать полное имя порта }
{ComName:= Format('\\.\COM%-d', [FComNumber]);}
ComName:= Format('\\.\COM7', [FComNumber]);
{Открытие последовательного порта }
FHandle:= CreateFile(
PChar(ComName), {передаем имя открываемого порта}
GENERIC_READ or GENERIC_WRITE, {ресурс для чтения и записи}
0, { не разделяемый ресурс }
nil, { Нет атрибутов защиты }
OPEN_EXISTING, {вернуть ошибку, если ресурс не существует}
FILE_ATTRIBUTE_NORMAL, {синхронный режим доступа}
0 { Должно быть 0 для COM портов }
) ;
{Если ошибка открытия порта - выход}
If not Connected then Exit;
{Инициализация порта}
ApplyComSettings;
End;
{закрытие порта}
Procedure TComPort.DoClosePort;
Begin
If not Connected then Exit;
{Освобождение дескриптора}
CloseHandle(FHandle);
{Сброс дескриптора порта}
FHandle:= INVALID_HANDLE_VALUE;
End;
{установка параметров порта}
Procedure TComPort.ApplyComSettings;
Var dcb: TDCB; {структура описания параметров порта}
Begin
If not Connected then Exit;
{ Чистка структуры }
FillChar(dcb, SizeOf(dcb), 0);
{ Пеле DCBLength должно содержать размер структуры }
dcb.DCBLength:= SizeOf(dcb);
{ Скорость обмена (бод) }
dcb.BaudRate := 2000000; //скорость
{ Windows не поддерживает не бинарный режим работы последовательных портов }
dcb.Flags := dcb_Binary;
{ Число бит в байте }
dcb.ByteSize := 8;
{ Контроль четности }
dcb.Parity := 0;
{ Число стоп бит }
dcb.StopBits := 0;
{ Установить новые настройки порта }
SetCommState(FHandle, dcb);
End;
procedure TComPort.SetBaudRate(const Value: TBaudRate);
begin
If FBaudRate = Value then Exit;
FBaudRate:= Value;
ApplyComSettings;
end;
procedure TComPort.SetByteSize(const Value: TByteSize);
begin
If FByteSize = Value then Exit;
FByteSize:= Value;
ApplyComSettings;
end;
procedure TComPort.SetParity(const Value: TParity);
begin
If FParity = Value then Exit;
FParity := Value;
ApplyComSettings;
end;
procedure TComPort.SetStopbits(const Value: TStopbits);
begin
If FStopbits = Value then Exit;
FStopbits := Value;
ApplyComSettings;
end;
Function TComPort.GetState(var CodeError : Cardinal) : TComStat;
Begin
{Возвращает структуру состояния порта и код ошибок}
ClearCommError(FHandle, CodeError, @Result);
End;
Function TComPort.ReadByte(var B : Byte) : Boolean;
Var RealRead : Cardinal;
Begin
{Используем синхронное чтение. В случае успешного чтения}
{функция ReadFile вернет True, а переменная RealRead, }
{хранящая число реально прочитанных байт будет равна 1 }
Result:= False;
If ReadFile(FHandle, B, 1, RealRead, nil) then
Result:= (RealRead = 1);
End;
Function TComPort.WriteByte(const B : Byte) : Boolean;
Var RealWrite : Cardinal;
Begin
{Используем синхронную запись. В случае успешной передачи}
{функция WriteFile вернет True, а переменная RealWrite, }
{хранящая число реально переданных байт будет равна 1 }
Result:= False;
If WriteFile(FHandle, B, 1, RealWrite, nil) then
Result:= (RealWrite = 1);
End;
Function TComPort.GetModemState : Cardinal;
Begin
{Возвращает состояние модема}
GetCommModemStatus(FHandle, Result);
End;
end.
E-mail: 
info@telesys.ru
