| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка функции ReadFile при работе с COM-портом [D7, WinXP]

Armature_Current ©   (2009-07-29 08:02:00) 

Уважаемые коллеги, прошу Вас помочь. Разрабатываю приложение для работы с COM - портом, не используя уже готовые компоненты. В основном потоке открываю порт, настраиваю DCB, очищаю очередь приема/передачи и завершаю все находящиеся в ожидании запросы ввода/вывода и устанавливаю маску на EV_RXCHAR.

В другом потоке организую чтение порта слудющим образом:
procedure TReadThread.Execute;
var
ComStat: TComStat;
dwMask, dwError: DWORD;
OverRead: TOverlapped;
Buf: array[0..$FF] of Byte;
dwRead: DWORD;
begin
OverRead.hEvent := CreateEvent(nil, True, False, nil);
if OverRead.hEvent = Null then
raise Exception.Create('Error creating read event');

FreeOnTerminate := True;

while not Terminated do
begin
if not WaitCommEvent(hPort, dwMask, @OverRead) then
begin
if GetLastError = ERROR_IO_PENDING then
WaitForSingleObject(OverRead.hEvent, INFINITE)
else
raise Exception.Create('Error waiting port event');
end;

if not ClearCommError(hPort, dwError, @ComStat) then
raise Exception.Create('Error clearing port');

dwRead := ComStat.cbInQue;

if dwRead > 0 then
begin
if not ReadFile(hPort, Buf, dwRead, dwRead, @OverRead) then
raise Exception.Create('Error reading port');
//Последнее условие выдает ошибку 998: ERROR_NOACCESS,
//как я понимаю, это ошибка доступа при чтении порта.
//
end;
end;
end;
Так вот эта ошибка и не дает стянуть данные с внешнего устройства, а они от туда поступают постоянно. Подскажите, что не так?

---

Armature_Current   (2009-07-30 08:59:00) [1]

> Почему именно $FF ? От балды взято ?

Огромное спасибо Вам, Сергей М.!!!
проверял раньше что выдает dwRead. Выдавал 4096. Почему то не сообразил что к чему. Поэтому и взял от балды. Сейчас расширил массив, побежали битики))
Еще раз спасибо!!!

---

Сергей М.   (2009-07-30 08:42:00) [2]

> Buf: array[0..$FF] of Byte;


Почему именно $FF ? От балды взято ?


> if dwRead > 0 then


А если dwRead окажется > $FF ?

---

Armature_Current   (2009-07-30 07:30:00) [3]

> Win32Check(ReadFile(hPort, Buf, dwRead, dwRead, @OverRead));

Как попросили, так и сделал. Текст сообщения ошибки дословный. Могу на почту выслать принтскрин)

> Т.е. в осн.потоке сразу после SetCommMask() вызывается конструктор
> TReadThread.Create ?

Да, так и делаю, после SetCommMask вызываю доп.поток следующим образом:
new := TReadThread.create(true);
new.freeonterminate := true;
new.priority := tplowest;
new.resume;

---

Сергей М.   (2009-07-29 16:36:00) [4]

> И где адрес?


Откуда адресу взяться ?
Автор утверждает, что EOSError, а не EAccessViolation ..

---

Сергей М.   (2009-07-29 16:34:00) [5]

Т.е. в осн.потоке сразу после SetCommMask() вызывается конструктор TReadThread.Create ?

---

Anatoly Podgoretsky   (2009-07-29 16:27:00) [6]

> Armature_Current  (29.07.2009 14:14:08)  [8]

Какой то дурдом, половина по русски, половина по английски. И где адрес?

---

Armature_Current   (2009-07-29 14:14:00) [7]

Project RS232COM.exe raised exception class EOSError with message 'System Error. Code: 998.
Неверная попытка доступа к адресу памяти'. Process stopped. Use Step or Run to continue.

---

Armature_Current   (2009-07-29 14:11:00) [8]

Неверная попытка доступа к адрессу памяти: 998

---

Сергей М.   (2009-07-29 12:52:00) [9]

Win32Check(ReadFile(hPort, Buf, dwRead, dwRead, @OverRead));

Какое сообщение при этом видишь дословно?

---

Armature_Current   (2009-07-29 10:35:00) [10]

> SetupComm(hPort,1600,1600);// назначение этих параметров
> мне не очень //понятно

все, понял.

---

Armature_Current   (2009-07-29 10:30:00) [11]

нет, в основном потоке только инициализируется порт, а отправка данных осуществляется по нажатию совсем другого баттона.
Вот инициализация

hPort:=CreateFile(ComPort,GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);

if hCom=INVALID_HANDLE_VALUE then
  raise Exception.Create('Error');

SetupComm(hPort,1600,1600);// назначение этих параметров мне не очень
//понятно

if not GetCommState(hPort, DCB) then begin
raise Exception.Create('Error');
exit;
end;

with DCB do begin
   BaudRate:=BRate;
   ByteSize:=D_Bits;
   Parity:=P_Control;
   StopBits:=S_Bits;
end;

if not SetCommState(hPort,DCB) then
   raise Exception.Create('Error');

if not PurgeComm(hPort, PURGE_TXCLEAR or PURGE_RXCLEAR) then begin
raise Exception.Create('Error');
exit;
end;

if not SetCommMask(hPort, EV_RXCHAR) then
raise Exception.Create('Error setting port mask');

На этом основной поток перестает обращаться к hPort.

На всякий случай еще одно условие: кабель содержит только Rx,Tx ну и земля (хотя мне кажется что по умолчанию прогамме и не нужны другие...).

---

Сергей М.   (2009-07-29 10:01:00) [12]

В момент, когда ф-ция ReadFile завершается с ошибкой, основной поток осуществляет обращения к hPort ?

---

Armature_Current   (2009-07-29 09:30:00) [13]

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

---

Сергей М.   (2009-07-29 08:51:00) [14]

Зачем тебе понадобились overlapped-операции  в доп.потоке ?

---

Наверх