Архив форумов ЦИТФорума

[Мalish]

Подскажите, пожалуйста, как можно перенастроить или освободить СОМпорт?

Проблема вот в чем:

открываю порт
hCom:=CeateFile('COM1',
GENERIC_READ or
GENERIC_WRITE,
0,
NIL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
......................................
пытаюсь закрытьпорт
PergeCom(hCom,PERGE_TXCLEAR or PERGE_RXCLEAR);
CloseHandle(hCom);
................................... открыть порт и полуучаю
hCom=INVALID_HANDLE_VALUE
т.е. получается, что порт занят.

ЧТО НЕ ТАК ???

Заранее спасибо.

[serfox]

открыть порт
...
DriverHandle = CreateFile (Com_Name, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_FLAG_WRITE_THROUGH|FILE_FLAG_NO_BUFFERING, NULL);
if (DriverHandle == INVALID_HANDLE_VALUE) {
return (false);
....
Закрыть порт

int Close_Comport (HANDLE DriverHandle)
{
DWORD EvtMask;
if ((DriverHandle == 0) || (DriverHandle == INVALID_HANDLE_VALUE)) {
return FALSE;
}

ClearCommError (DriverHandle, &EvtMask, NULL);
PurgeComm(DriverHandle,PURGE_RXCLEAR);
PurgeComm(DriverHandle,PURGE_TXCLEAR);
CloseHandle (DriverHandle);

return TRUE;
}
У меня так работает....

[Мalish]

Спасибо

[Мalish]

Спасибо, но у меня не работает.
Мне необходимо вот что:
Если у нас открыто hCom1 - COM1
hCom2 - COM2
(HANDLE hCom1,hCom2)
а мне нужно не выходя из программы сменить
hCom1 - COM2
hCom2 - COM1