HANDLE hFile; // файл порта
DWORD ModemStat,bc;
DCB dcb;
COMMTIMEOUTS ct;
char         *buf_out="Test string";
char         *buf_in;
LPCTSTR      FileName="COM1";
 
dcb.DCBlength=sizeof(DCB);
    BuildCommDCB("baud=9600 parity=N data=8 stop=1",&dcb);
    dcb.fNull=TRUE;
   
    ct.ReadTotalTimeoutConstant=2000; //чтение файла произаодиться не более 2с иначе завершение чтения
    ct.ReadIntervalTimeout=10;
    ct.ReadTotalTimeoutMultiplier=0;
    ct.WriteTotalTimeoutMultiplier=ct.WriteTotalTimeoutConstant=0;
 
   
 
 
    hFile = CreateFile(FileName,                    //открываем порт COM1
                        GENERIC_READ|GENERIC_WRITE,
                        0,
                        NULL,
                        OPEN_EXISTING,
                        0,
                        NULL);
 
    if(hFile==INVALID_HANDLE_VALUE)//Если не получилось
    {
        MessageBox("Не удалось открыть порт COM1!", "Ошыбка", MB_ICONERROR);\
            FileName="COM2";     
                hFile = CreateFile(FileName,
                                    GENERIC_READ|GENERIC_WRITE, //Открываем порт COM2
                                    0,
                                    NULL,
                                    OPEN_EXISTING,
                                    0,
                                    NULL);
 
                 if(hFile==INVALID_HANDLE_VALUE)
                    {
                         MessageBox("Не удалось открыть порт COM2!", "Ошыбка", MB_ICONERROR);
                    }
                    else
                     {
                         MessageBox("Порт COM2 успешно открыт", "Ok", MB_OK); 
                     }
   
    }
    else
    {
        MessageBox("Порт COM1 успешно открыт", "Ok", MB_OK); 
    }
   
    SetCommState(hFile,&dcb);
    SetCommTimeouts(hFile,&ct);
    PurgeComm(hFile,PURGE_TXCLEAR|PURGE_RXCLEAR);
    SetupComm(hFile,256,256);
 
 
void CTestComDlg::OnButton9()
{
//записатьTD прочитатьRD
 
buf_in=(char*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,strlen(buf_out)+1);
    WriteFile(hFile,buf_out,strlen(buf_out),&bc,NULL);
    if (ReadFile(hFile,buf_in,strlen(buf_out),&bc,NULL))
 
   
 
    {if (*buf_in==*buf_out)
    {
        MessageBox("Сигнал 1", "ОК", MB_OK);
    }
    else
    {
        MessageBox("Сигнал 0", "Ошыбка", MB_ICONERROR); 
    }
    }
   
 
    HeapFree(GetProcessHeap(),0,buf_in);
 
 
}
 
void CTestComDlg::OnButton5()
{
    // read CD(1)
    GetCommModemStatus(hFile,&ModemStat);
    if ((ModemStat&&MS_RLSD_ON)!=0)
    {
        MessageBox("Сигнал 1", "ОК", MB_OK);
    }
    else
    {
        MessageBox("Сигнал 0", "Ошыбка", MB_ICONERROR); 
    }   
}
 
 
 
 
void CTestComDlg::OnButton7()
{
    // read CTS(8)
   
    GetCommModemStatus(hFile,&ModemStat);
    if ((ModemStat && MS_CTS_ON)!=0)
    {
        MessageBox("Сигнал 1", "ОК", MB_OK);
    }
    else
    {
        MessageBox("Сигнал 0", "Ошыбка", MB_ICONERROR); 
    }
}
 
void CTestComDlg::OnButton6()
{
    // read DSR(6)
    GetCommModemStatus(hFile,&ModemStat);
    if ((ModemStat && MS_DSR_ON)!=0)
    {
        MessageBox("Сигнал 1", "ОК", MB_OK);
    }
    else
    {
        MessageBox("Сигнал 0", "Ошыбка", MB_ICONERROR); 
    }
   
}
 
void CTestComDlg::OnButton8()
{
    // read RI(9)
    GetCommModemStatus(hFile,&ModemStat);
    if ((ModemStat && MS_RING_ON)!=0)
    {
        MessageBox("Сигнал 1", "ОК", MB_OK);
    }
    else
    {
        MessageBox("Сигнал 0", "Ошыбка", MB_ICONERROR); 
    }
}
 
 
 
void CTestComDlg::OnButton10()
{
//записать TD
    for (int i=0;i<100;i++)
    {
        WriteFile(hFile,buf_out,strlen(buf_out),&bc,NULL);
    }
   
}

XIncludeFile "OWire_Module.pbi"
UseModule OWire

OW_OpenPort("COM1", 0)

XIncludeFile "OWire_Module_dll.pbi"