-- kernel32 - подгружаемая библиотека WinAPI-функций
-- comid - номер открываемого порта
-- handle - итоговый указатель на порт
handle = kernel32.CreateFileA("\\\\.\\COM" .. comid, GENERIC_READ+GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)

DCB.BaudRate = CBR_9600;
DCB.ByteSize = 8;
DCB.Parity = NOPARITY;
DCB.StopBits = ONESTOPBIT;
DCB.fBinary = 1;
DCB.fOutxCtsFlow = 0;
DCB.fOutxDsrFlow = 0;
DCB.fDtrControl = DTR_CONTROL_DISABLE;
DCB.fDsrSensitivity = 0;
DCB.fNull = 0;
DCB.fRtsControl = RTS_CONTROL_DISABLE;
DCB.fAbortOnError = 0;

COMMTIMEOUTS.ReadIntervalTimeout = 10;
COMMTIMEOUTS.ReadTotalTimeoutMultiplier = 1;
COMMTIMEOUTS.ReadTotalTimeoutConstant = 100;
COMMTIMEOUTS.WriteTotalTimeoutMultiplier = 0;
COMMTIMEOUTS.WriteTotalTimeoutConstant = 0;

-- data - массив с данными
-- b - указатель на переменную типа DWORD "счетчик байт"
-- t - указатель на буфер с данными
-- n -  кол-во данных в массиве data
local n = Table.Count(data);
local b = MemoryEx.Allocate(4);
local t = MemoryEx.Allocate(n);
if (b and t) then
    -- сброс счетчика байт
    MemoryEx.Fill(b, 4, 0, MEMEX_BYTE);
    -- заполнение буфера данными из массива data
    local c = 1;
    repeat
        MemoryEx.Byte(t + c - 1, data[c]);
        c = c + 1;
    until c > n;
    -- запись в порт
    if (kernel32.WriteFile(handle, t, n, b, 0) == 0) then
        local e = kernel32.GetLastError();
        Dialog.Message("error", e);
    end
end

hc=CreateFile(port,GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,NU
LL);

....
BuildCommDCB(DEFDCB_STRING,&dcb);
memset(&cc,0,sizeof(cc));
cc.dwSize=sizeof(cc);
cc.wVersion=1;
cc.dwProviderSubType=PST_RS232;
memcpy(&cc.dcb,dcb,sizeof(DCB));
  
rc=SetCommConfig(hc,&cc,sizeof(cc));

....

  memset(&ct,0,sizeof(ct));
  ct.ReadIntervalTimeout=200;
  ct.ReadTotalTimeoutConstant=250;
  SetCommTimeouts(hc,&ct);

....

  EscapeCommFunction(hc,SETDTR);
  EscapeCommFunction(hc,SETRTS);

....

WriteFile(hc,ovr->data.buf,bytes,&dummy,(LPOVERLAPPED) ovr);

bool CComm6055::exchangeData( QByteArray & cmd )
{
COMMTIMEOUTS ct;
DCB dcb;
HANDLE h;
BOOL rc;
bool result = false;
DWORD bytesWritten, bytesRead;

//
h = CreateFile(
(LPCWSTR)sPort.unicode()
, GENERIC_READ | GENERIC_WRITE
, 0
, 0
, OPEN_EXISTING
, 0
, 0 );
//
if ( INVALID_HANDLE_VALUE != h )
{
//
ZeroMemory( &dcb, sizeof(dcb) );
dcb.BaudRate = CBR_9600;
dcb.fBinary = TRUE;
dcb.ByteSize = 8;
rc = SetCommState( h, &dcb );
//
ct.ReadIntervalTimeout = 64;
ct.ReadTotalTimeoutConstant = 0;
ct.ReadTotalTimeoutMultiplier = 0;
ct.WriteTotalTimeoutConstant = 0;
ct.WriteTotalTimeoutMultiplier = 0;
rc = SetCommTimeouts( h, &ct );
//
makeCheckSum( cmd );
//
if ( WriteFile(
h
, cmd.data()
, cmd.size()
, &bytesWritten
, 0 )
)
{
//
if ( cmd.size() == bytesWritten )
{
//
cmd.resize( 32 );
//
if ( ReadFile(
h
, cmd.data()
, 32
, &bytesRead
, 0 )
)
{
//
cmd.resize( bytesRead );
//
result = true;
}
}
}
//
CloseHandle( h );
}
//
return result;
}

bool MainWindow::openComPort(bool is19200)
{
    std::string nameComPort = comPort->currentText().toStdString();
    std::wstring wComPort;
    wComPort.resize(nameComPort.size());
    for(unsigned int i=0; i<nameComPort.size(); i++)
        wComPort[i] = (WCHAR)nameComPort.at(i);
    wComPort.insert(0, L"\\\\.\\");
    port=CreateFile( wComPort.c_str(), GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
    if(port == INVALID_HANDLE_VALUE)
    {
        QApplication::restoreOverrideCursor();
        QMessageBox::critical(this, "Spyhole error", QString("Can not open com port %1").arg(QString::fromStdString(nameComPort)));
        return false;
    }
    else
    {
        GetCommState(port,&dcb);
        //memset(&dcb, 0, sizeof(DCB));
        dcb.DCBlength=sizeof(DCB);
        std::wstring config;

        std::string tConfig = is19200 ? "baud=19200 parity=N data=8 stop=1" : "baud=115200 parity=N data=8 stop=1";
        config.resize(tConfig.size());
        for(unsigned int i=0; i<tConfig.size(); i++)
            config[i] = (WCHAR)tConfig.at(i);

        BuildCommDCB(config.c_str(),&dcb);
        dcb.fNull=FALSE;
        ct.ReadIntervalTimeout=1000;
        ct.ReadTotalTimeoutMultiplier=0;
        ct.ReadTotalTimeoutConstant=5000;
        if( !SetCommState(port,&dcb))
        {
            CloseHandle(port);
            port = NULL;
            QApplication::restoreOverrideCursor();
            QMessageBox::critical(this, "Spyhole error", QString("Cann't set config of  %1").arg(QString::fromStdString(nameComPort)));
            return false;
        }
        SetCommTimeouts(port,&ct);
        PurgeComm(port,PURGE_TXCLEAR|PURGE_RXCLEAR);
        SetupComm(port,4500,4500);
    }
    return true;
}

bool MainWindow::readCurve(CURVE curve, unsigned char *replay)
{
    unsigned char command[20];
...

    WriteFile(port,command, 8, &BytesCnt, NULL);

    ReadFile(port, replay, 4000, &BytesCnt, NULL);
    if(BytesCnt != 4000 )
    {
        QApplication::restoreOverrideCursor();
        QMessageBox::critical(this, "Spyhole error", QString("Can not receive 4000 byte. Received %1 bytes").arg(BytesCnt));
        return false;
    }
    return true;
}

#define GENERIC_READ                     0x80000000
#define GENERIC_WRITE                    0x40000000
#define GENERIC_EXECUTE                  0x20000000
#define GENERIC_ALL                      0x10000000