Не могу прочесть с СОМ-порта!!!!

← →
v-king © (2003-04-03 19:59) [0]

Помогите. Открываю порт hPort := CreateFile("COM1",GENERIC_READ,0,nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
При помощи GetCommState считываю настройки, при помощи SetCommState загоняю их назад. Читаю данные ReadFile(hPort, Buffer, 1024, ActualBytes, @OverLapped);
и - тишина. Но если запущу Гипертерминал, приму через него данные, потом потушу его - моя прога тоже начинает читать из порта. Что это? как справиться?

← →
varfolomey © (2003-04-03 23:40) [1]

В чём твоя проблемма я не разбирался!!! Вот тебе (и всем остальным) пример работающего модуля!!!

unit com_io; 

interface 

uses SysUtils,windows,Classes; 

type 
Tcom=(com1,com2,com3,com4,com5,com6,com7,com8); 
Tbaud=(_9k6,_19k2,_38k4); 
ExCom= class(exception);

function open_com(port: Tcom): Boolean; // Процедура открытия COM порта 
procedure set_com(rate: Tbaud); // Установка скорости 
procedure putb(b: byte; var ok: boolean); // Запись байта данных в порт 
procedure getb(var b: byte; var ok: boolean); // Чтение байта данных из порта 
procedure clr_com; // Очистка порта 
procedure close_com; // Закрытие порта 

implementation

const 
cport: array [Tcom] of string =("COM1","COM2","COM3","COM4",
"COM5","COM6","COM7","COM8"); 
cbr: array [Tbaud] of DWORD =(CBR_9600,CBR_19200,CBR_38400); // COM порт поддерживает скорость до 115200 но для этого необходимо внести мелкие изменения 

var 
is_open: boolean = false; 
com: Thandle; 
DCB: TDCB; 

function open_com(port: Tcom): boolean; 
begin 
if is_open then closeHandle(com); 
com := CreateFile(PChar(cport[port]), GENERIC_READ or GENERIC_WRITE, 
0, nil, OPEN_EXISTING, 
FILE_ATTRIBUTE_NORMAL, 0); 
if GetCommState(com,DCB)then is_open:=true else is_open:=false; 
Result:=is_open; 
end; 

procedure set_com(rate: Tbaud); 
begin 
DCB.DCBlength:=SizeOf(Tdcb); 
DCB.BaudRate:= cbr[rate]; 
DCB.ByteSize:=8; 
if not SetCommState(com, DCB) then raise Excom.Create("set_com"); 
end; 

procedure putb(b: byte; var ok: boolean); 
var res: dword; 
begin 
WriteFile(com,b,1,res,nil); 
ok:=(res=1); 
end; 

procedure getb(var b: byte; var ok: boolean); 
var res: dword; 
begin 
ReadFile(com, b, 1, res, nil); 
ok:=(res=1); 
end; 

procedure clr_com; 
begin 
PurgeComm(com,PURGE_RXCLEAR); 
end; 

procedure close_com; 
begin 
if is_open then CloseHandle(com); 
is_open:=false; 
end; 

end.

Пример использования модуля COM_IO

..................................
procedure COM; 
var 
ok: boolean; // Содержит результат опирации 
b: byte; // Содержит данные 
begin 
open_com(com1) // Открытие порта; 
set_com(_9k6); // Установка скорости 9600 
PutB($AA,ok); // Посылка байта данных 
GetB(b,ok); // Приём байта данных 
close_com; // Закрытие порта 
end; 
..................................

В данной процедуре мы открываем COM 1 на скоросте 9600 
Посылаем 1 байт и принимаем 1 байт 
Затем закрываем порт 

Все пожелания и замечания пишите мне: <a href="mailto:varfolomey@ukr.net">varfolomey@ukr.net</a> 
С уважением Георгий

← →
varfolomey © (2003-04-03 23:40) [2]

← →
jack128 © (2003-04-03 23:53) [3]

varfolomey © (03.04.03 23:
Как пример всем остальным можт и нормально, а вот в данном случае не подходит, т к автор работает в асинхронном режиме...

v-king © (03.04.03 19:59)
Странно, конечно.

А вообще код в студию. Авось кто чего умного скажет...

← →
GEN © (2003-04-04 00:22) [4]

Нечто похожее происходит в Dos Navigtor-е при выборе режима
"Terminal": выдается сообщение "Не могу найти Com порт"
Преодолеть это позволяет последовательное выключение а затем
включение Com порта в Панель управления/Система/Устройства, но
не всех машинах.

← →
А (2003-04-04 01:59) [5]

как насчет FlowControl? Всякие там DTR,RTS,DTS,CTS ? С этим Вы тоже разобрались?

Надо обязательно установить размер входного и выходного буфферов, с помощью SetupComm и обязательно ненулевыми, а то тоже ничего считываться не будет. Таймауты тоже недурно было-бы установить, SetCommTimeouts. Может быть, не стоит открывать порт с параметром FILE_FLAG_OVERLAPPED, указать просто FILE_ATTRIBUTE_NORMAL?

Не могу прочесть с СОМ-порта!!!! Найти похожие ветки