Com port (RS232)

[Pavlov_yu]

Доброго дня.
помогите разобраться с настройкой ком порта.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
typedef struct DCB {
  DWORD DCBlength;
  DWORD BaudRate;
  DWORD fBinary  :1;
  DWORD fParity  :1;
  DWORD fOutxCtsFlow  :1;
  DWORD fOutxDsrFlow  :1;
  DWORD fDtrControl  :2;
  DWORD fDsrSensitivity  :1;
  DWORD fTXContinueOnXoff  :1;
  DWORD fOutX  :1;
  DWORD fInX  :1;
  DWORD fErrorChar  :1;
  DWORD fNull  :1;
  DWORD fRtsControl  :2;
  DWORD fAbortOnError  :1;
  DWORD fDummy2  :17;
  WORD  wReserved;
  WORD  XonLim;
  WORD  XoffLim;
  BYTE  ByteSize;
  BYTE  Parity;
  BYTE  StopBits;
  char  XonChar;
  char  XoffChar;
  char  ErrorChar;
  char  EofChar;
  char  EvtChar;
  WORD  wReserved1;
} DCB;

HANDLE port;
port = CreateFile("Com1", GENERIC_READ | GENERIC_WRITE, 0,NULL,OPEN_EXISTING,0,NULL );

   if (port == INVALID_HANDLE_VALUE) ShowMessage("Сломался");

BuildCommDCB("baud=1200 parity=N data=8 stop=1", DCB);
   CloseHandle(port);
}

матюкается на выделенное жирным, красном. Пишет неправильное использование DCB. пробовал так же &DCB, *DCB результат прежний

[waleri]

DCB var;
BuildCommDCB(..., &var);

Не путайте тип и переменную типа.

[Pavlov_yu]

Сообщение от waleri

DCB var;
BuildCommDCB(..., &var);

Не путайте тип и переменную типа.

Спасибо, заработало

[Pavlov_yu]

DCB dcb;
COMMTIMEOUTS ots;
char a[5]="Test", b[5]="",c[5];
DWORD bc;
ots.ReadIntervalTimeout=100; //îáùåå âðåìÿ
ots.ReadTotalTimeoutMultiplier=50; // ìíîæèòåëü
ots.ReadTotalTimeoutConstant=50; //êîíñòàíòà
ots.WriteTotalTimeoutMultiplier=50;
ots.WriteTotalTimeoutConstant=50;

HANDLE port;
port = CreateFile("Com1", GENERIC_READ | GENERIC_WRITE, 0,NULL,OPEN_EXISTING,0,NULL ); //ñîçäàåì ïîðò
BuildCommDCB("baud=9600 parity=N data=8 stop=1", &dcb); //êîíôèãóðèðîâàíèå ïîðòà
if (port == INVALID_HANDLE_VALUE) ShowMessage("Ñëîìàëñÿ");
SetCommState(port,&dcb); //çàïèñü êîíôèãóðàöèè â ïîðò
//ShowMessage(dcb.BaudRate); //òèïà ïðîâåðêà, ÷òî çàïèñàëîñü

//SetCommTimeouts(port,&ots); //òàéìàóò íà ÷òåíèå è çàïèñü â ïîðò
if(WaitForSingleObject(port,100)!=0 )ShowMessage("Ñëîìàëñÿ"); //âðåìÿ îæèäàíèÿ îò îáúåêòà
PurgeComm(port,PURGE_TXCLEAR|PURGE_ RXCLEAR); //î÷èùàåì áóôåð ïîðòà îò ìócoðà

WriteFile(port,"ABCDE",5,&bc,NULL);
ReadFile(port,&b,5,&bc,NULL);
ShowMessage(b);
//ClearCommError(port,

CloseHandle(port); //çàêðûòèå ïîðòà
___________________________________ ___________________________________ _
Подскажите, пожалуйста, как проверить работоспособность. данные пишу в порт, принемаю, смотрю через ShowMessage(b) - а в ответ ни чего((((. можен он пишет в порт - ни куда, и ответа нет ни от куда???

[Pavlov_yu]

код поправлю

DCB dcb;
COMMTIMEOUTS ots;
char a[5]="Test", b[5]="",c[5];
DWORD bc;
ots.ReadIntervalTimeout=100;
ots.ReadTotalTimeoutMultiplier=50;
ots.ReadTotalTimeoutConstant=50;
ots.WriteTotalTimeoutMultiplier=50;
ots.WriteTotalTimeoutConstant=50;

HANDLE port;
port = CreateFile("Com1", GENERIC_READ | GENERIC_WRITE, 0,NULL,OPEN_EXISTING,0,NULL );
BuildCommDCB("baud=9600 parity=N data=8 stop=1", &dcb);
if (port == INVALID_HANDLE_VALUE) ShowMessage("Не Работает");
SetCommState(port,&dcb);

//SetCommTimeouts(port,&ots);
if(WaitForSingleObject(port,100)!=0 )ShowMessage("Не Работает");
PurgeComm(port,PURGE_TXCLEAR|PURGE_ RXCLEAR);
WriteFile(port,"ABCDE",5,&bc,NULL);
ReadFile(port,&b,5,&bc,NULL);
ShowMessage(b);

CloseHandle(port); //çàêðûòèå ïîðòà

[waleri]

А что подключено к порту?
Почему вы думаете, что должен быть ответ?

Поставьте вот эту утилиту и понаблюдайте:
http://technet.microsoft.com/en-us/s.../bb896644.aspx

Почитайте и вот это:
http://www.lammertbies.nl/comm/info/...w_control.html

[Pavlov_yu]

Сообщение от waleri

А что подключено к порту?
Почему вы думаете, что должен быть ответ?

Вот и у меня закрались подозрения, что если ни чего к нему не подключено то ответа, возможно, не будет. пробую на буке в виртуалке. на буке ком портов нет.
Но с другой стороны, если я его открываю и туда что то записываю, значит оно там и должно остаться. А потом считываю то что записал.
за инфу спасибо, почитаю

[Pavlov_yu]

Сообщение от waleri;1388458
Поставьте вот эту утилиту и понаблюдайте:
[url

http://technet.microsoft.com/en-us/sysinternals/bb896644.aspx[/url]

закачка не работала, пошукал нашел вот это "Advanced Serial Port Monitor" может кому пригодится. http://www.aggsoft.com/serial-port-monitor/download.htm

[raxp]

закачка не работала

какая версия ОC?

[Pavlov_yu]

Сообщение от raxp

какая версия ОC?

качал инсталяху с Win 7x64. Скачал с иного сайта, но в виртуалке на XP работать не захотела.