* Открытие файла или порта
Declare Long CreateFile IN "kernel32.dll" AS COM_Create;
    String    lpFileName,                ;    && Имя файла
    Long    dwDesiredAccess,        ;    && Режим доступа
    Long    dwShareMode,            ;    && Совместное использование. 0 - экслюзивный доступ.
    Long    lpSecurityAttributes,    ;    && 
    Long    dwCreationDisposition,    ;    && Действия по созданию файла (2-создавать новый, 1-создавать, если не существует, 4-открыть, 3-открыть существующий, 5-обрезать
    Long    dwFlagsAndAttributes,    ;    && Атрибуты
    Long    hTemplateFile

* Параметры таймаута        
Declare Long SetCommTimeouts IN "kernel32.dll" AS COM_SetTimeouts;
    Long p1,                    ;
    String lpCommTimeouts
    
* Установка параметров COM-порта
Declare Long SetCommState IN "kernel32.dll" AS COM_SetState;
    Long,;
    String
* Формирование DCB-структуры с параметрами устройства по текстовой строке параметров
Declare Long BuildCommDCB IN "kernel32.dll" AS COM_DCB;
    String,;
    String
* Чтение файла или порта
Declare Long ReadFile IN "kernel32.dll" AS COM_Read;
    Long    hFile, ;
    String    @ lpBuffer,;
    Long    nNumberOfBytesToRead,;
    Long    @ lpNumberOfBytesRead,;
    String    lpOverlapped
* Запись в файл или порт
Declare Long WriteFile IN "kernel32.dll" AS COM_Write;
    Long     hFile,;
    String    lpBuffer,;
    Long    nNumberOfBytesToWrite,;
    Long    @lpNumberOfBytesWritten,;
    Long    lpOverlapped
* закрытие файла/порта
Declare Long CloseHandle IN "kernel32.dll" AS COM_Close;
    Long hObject
        
Declare Long GetLastError In "Kernel32.dll" AS COM_GetLastError


* Открытие порта
local hh, lcErr
hh = COM_Create( .PortName, BITOR( 0x80000000, 0x40000000 ), 0, 0, 3, 0x80, 0 )
if m.hh <= 0
    lcErr = COM_GetLastError()
    error [Не удалось открыть порт.]
endif

* строка с параметрами соединения
local ss
ss =    BINTOC( 28,            '4RS') +;
    BINTOC( .devBaud,        '4RS') +;
    BINTOC( 20625,        '4RS') +;
    BINTOC( 134217728,    '4RS') +;
    BINTOC( 524800,        '4RS') +;
    BINTOC( 1249536,    '4RS') +;
    BINTOC( 8,            '1RS') +;
    chr( 0 )+;
    chr( 0 )+;
    chr( 0 )+;
    chr( 0 )+;
    chr( 0 )+;
    chr( 0 )+;
    chr( 0 )+;
    BINTOC( 0,            '4RS')

if COM_SetState( m.hh, m.ss ) = 0
    lcErr = COM_GetLastError()
    error [Не удалось настроить параметры порта.]
endif

ss =    BINTOC( 0,        '4RS' ) +;
    BINTOC( 1,        '4RS' ) +;
    BINTOC( 10,        '4RS' ) +;
    BINTOC( 0,        '4RS' ) +;
    BINTOC( 0,        '4RS' ) 

if COM_SetTimeouts( m.hh, m.ss ) = 0
    lcErr = COM_GetLastError()
    error [Не удалось установить режим таймаута для порта.]
endif

* Чтение из порта
local lnRes, lnRead, lcBuf, lnRead, lnEndTime, pp, ss, lnBufSize
lnRead = 1
lnBufSize = 128
lcBuf = repli( chr(0), m.lnBufSize )
lnEndTime = seconds() + 5 && время ожидания ответа
do while m.lnRead>0 and seconds() <= m.lnEndTime
    Delay( 0.2 )  && задержка между попытками
    lnRead = 0
    if COM_Read( m.hh, @lcBuf, m.lnBufSize, @lnRead, 0 ) = 0
        lcError = COM_GetLastError()
        error  [Ошибка чтения порта.]
    endif
    if m.lnRead > 0
        vcData = m.vcData + left( m.lcBuf, m.lnRead )
    else
        if m.lnRead = 0
            ok = .t.
        endif
    endif
enddo
if not m.ok
    error [Истекло время ожидания ответа от устройства.]
endif

local nn, lnBytesWrite
lnBytesWrite = 0
nn = len( m.tcData )
IF COM_Write( m.hh, m.tcData, m.nn, @lnBytesWrite, 0 ) = 0
    lcError = COM_GetLastError()
    error [Ошибка записи в порт.]
ENDIF

.AttrNumber=1214
.AttrValue=3
If .WriteAttribute() <> 0 Then
...
.RegisterNumber=47
.GetRegister()
...
.CaptionPurpose=89
.Caption='Кассир: ...'
.SetCaption()