Отправлено ы 09 декабря 2005 г. 12:49 В ответ на: Добрый день!!!вопрос немного не в тему...по програмированию в Delphi,а конкретно проблемы с компортом(+) отправлено <font color=gray>Maxon</font> 09 декабря 2005 г. 12:38

переведи на паскаль

 HANDLE       CommHndl;
 DCB          CommDCB ;
 COMMTIMEOUTS CommTimeOuts;
CommHndl =  CreateFile("COM1",
                       GENERIC_READ|GENERIC_WRITE,0,
                       NULL,
                       OPEN_EXISTING,
                       0,//FILE_FLAG_OVERLAPPED,
                       NULL);
      
      if (CommHndl == INVALID_HANDLE_VALUE) {
        printf("\n Невозможно открыть последовательный порт");    
        return;
      } 
      
      CommDCB.DCBlength         = sizeof(DCB);
      CommDCB.BaudRate          = CBR_19200;
      CommDCB.fBinary           = 1;
      CommDCB.fParity           = FALSE;
      CommDCB.fOutxCtsFlow      = FALSE;
      CommDCB.fOutxDsrFlow      = FALSE;
      CommDCB.fDtrControl       = DTR_CONTROL_DISABLE;
      CommDCB.fDsrSensitivity   = FALSE;
      CommDCB.fTXContinueOnXoff = FALSE;
      CommDCB.fOutX             = FALSE;
      CommDCB.fInX              = FALSE;
      CommDCB.fErrorChar        = FALSE;
      CommDCB.fNull             = FALSE;
      CommDCB.fRtsControl       = RTS_CONTROL_DISABLE;
      CommDCB.fAbortOnError     = TRUE;
      CommDCB.wReserved         = 0;
      CommDCB.ByteSize          = 8;
      CommDCB.Parity            = NOPARITY;
      CommDCB.StopBits          = ONESTOPBIT;
      CommDCB.XonChar           = 0;
      CommDCB.XoffChar          = 1;
  
  	CommTimeOuts.ReadIntervalTimeout         = 10; // 10ms  
      CommTimeOuts.ReadTotalTimeoutMultiplier  = 0 ;
      CommTimeOuts.ReadTotalTimeoutConstant    = 0 ;
      CommTimeOuts.WriteTotalTimeoutMultiplier = 0 ;
      CommTimeOuts.WriteTotalTimeoutConstant   = 0 ;
      SetCommTimeouts(CommHndl,&CommTimeOuts);
      SetCommState   (CommHndl,&CommDCB     );
      SetupComm      (CommHndl,1024,1024    );
// можно записвать в файл

• Примерно тоже на Делфи(+) — F8   (09.12.2005 13:29 213.130.22.7, 2481 байт)
• Спасибо!!!щя иду в универ - приду,переведу в паскалёк!!!=) — Maxon   (09.12.2005 12:55 195.5.9.98, пустое)

---

Перейти к списку ответов  |||  Конференция  |||  Архив  |||  Главная страница  |||  Содержание

E-mail: info@telesys.ru