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

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

COM порт Win API. Проблемы с приёмом. [D7, WinXP]


Страницы:   1 2

PooHer ©   (2009-07-06 23:58:00) 

Умные люди, не бросьте в беде :)!
Совсем уже нет мыслей по чему такое может может произойти.
Создаю поток, в котором ожидаю приёма, но ничего не принимается (слушаю эхо). Передача проходит корректно (проверено).
procedure TComRead.Execute;
var
ComStat: TComStat;
dwMask, dwError: DWORD;
OverRead: TOverlapped;
Buf: array[0..20] of char;
dwRead: DWORD;
dd: string;
begin
FreeOnTerminate := True;
while not Terminated do
begin
dwMask:=0;
WaitCommEvent(CId, dwMask, @OverRead);
if dwMask = EV_RXCHAR then
begin
ClearCommError(CId, dwError, @ComStat);
dwRead := ComStat.cbInQue;
if dwRead > 0 then
begin
ReadFile(CId, Buf, dwRead, dwRead, @OverRead);
Form2.Panel1.Caption:=string(Buf);
end;
end; {while}
end;
end;
Всё упрощено, но по моему работать должно??

Сергей М.   (2009-07-08 10:26:00) [1]


> PooHer   (07.07.09 18:51) [25]


Зачем тебе overlapped ввод-вывод ?
Не нужен он тебе вообще.
Не усложняй себе жизнь.

Вариант   (2009-07-08 06:48:00) [2]


> PooHer   (07.07.09 18:51) [25]

Не смеюсь.Нет, работать не будет. " В одну телегу впрячь не можно. Коня и трепетную лань." (с) А. С. Пушкин - это к тому, что есди ты используешь перектрытый ввод/вывод, открыл порт с флагом FILE_FLAG_OVERLAPPED, то и запись и чтение у тебя должны быть overlapped, а ты читать пытаешься синхронно.
И потом, если ты делаешь overlapped(перекрытую) операцию ввода/вывода, то где -то и как-то надо получить и результат ее завершения - это значит использовать или GetOverlappedResult и/или WaitForSingleObject или WaitForMultipleObjects. И ты не читал статей ?

Прочитай, выбери один какой-то вариант работы и доводи его до ума. А то у тебя тут куча вариантов, все разные. И ошибки появляются снова и не уходят из-за этого.

PooHer   (2009-07-07 18:51:00) [3]

Ну если просто вот так, в цикле сразу после передачи читать, должно работать?
(Не смеяться, это просто в качестве эксперимента.
procedure TForm2.Button4Click(Sender: TObject);

var
datas: string;
dwWrite: DWORD;
OverWrite: TOverlapped;
//WriteBytes: array of Byte;
//********************************
Buf: array[0..1] of Char;
dwRead, Read: DWORD;
i: integer;
//********************************
begin
//передача
datas:='a';
//dwWrite:=datas;
OverWrite.hEvent := CreateEvent(nil, True, False, nil);
if OverWrite.hEvent = Null then
raise Exception.Create('Error creating write event');

if (not WriteFile(cId, datas, SizeOf(datas),
dwWrite, @OverWrite))
and (GetLastError ERROR_IO_PENDING) then
raise Exception.Create('Îøèáêà îòïðàâêè');

//********************************
//цикл приёма
for i:=1 to 2000 do
begin
dwRead:=10;
buf:='0';
ReadFile(cId, Buf, dwRead, Read, nil);
if Buf[0] '0' then
panel1.caption:=string(Buf);
end;
//********************************
end;

Вариант   (2009-07-07 15:57:00) [4]


> PooHer   (07.07.09 15:50) [22]

Статьий глянь, их много в интернете. На королевстве дельфи посмотри, ссылки давал

Вариант   (2009-07-07 15:55:00) [5]


> PooHer   (07.07.09 15:50) [22]

Если не нужна специфика работы с портом и подробная расшифровка специфичных ошибок, то достаточно ReadFile и WriteFile. Но настройка порта нужна.

PooHer   (2009-07-07 15:50:00) [6]


> Работа с маской событий вообще не нужна, равно как и Wait/ClearCommEvent

Ну а как тогда работать?

Сергей М.   (2009-07-07 15:23:00) [7]


> PooHer   (07.07.09 14:58) [20]


Работа с маской событий вообще не нужна, равно как и Wait/ClearCommEvent
Равно как лишен смысла и overlapped ввод-вывод в доп.потоке, не делающем более ничего существенного, кроме собственно ввода-вывода из/в СОМ-порт

PooHer   (2009-07-07 14:58:00) [8]

cId := CreateFile(PChar('COM'+IntToStr(Num)),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,
                   FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);

SetCommMask(cId, EV_RXCHAR);
Вот так было.

Вариант   (2009-07-07 13:19:00) [9]

И снова не все увидел, у тебя в [11] вообще нет обработки событий порта. Зачем тебе тогда WaitCommStatus? Ладно, почитай статьи....

Вариант   (2009-07-07 13:08:00) [10]

Кстати и про SetCommTimeouts тоже стоит почитать
Посмотри статьи на
http://www.delphikingdom.com/asp/section.asp?id=2
http://www.delphikingdom.com/asp/itemq.asp?Mode=1&ItemID=151
На том же сайте можешь поискать статьи
"Работа с портами ввода-вывода в DELPHI"

Вариант   (2009-07-07 13:00:00) [11]


> PooHer   (07.07.09 11:19) [15]

Как уже писали выше - этот вариант в [11] ближе к нормальному. Но и в нем нет SetCommMask - и какие тогда события ты хочешь отслеживать, если не указал это? ПРочитай про SetCommMask, поставь это в инициализации  порта и мне кажется что-то у тебя уже должно заработать.

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


> не работает ничего


И в этом, надо понимать, виноваты те самые проверки, которые ты убрал ?

Но ведь если изначально эти проверки тобой выполнялись, то значит ты же ожидал увидеть хоть какой-либо результат их "деятельности"  ?
А вместо ожидаемого сообщения 'Error при попытке выполнения такой-то конкретно функции', ты, значит,  увидел сообщение "Не работает ничего ! Да ну их нафих эти проверки, все равно толку от них ноль !", потому и убрал проверки ? Я правильно логику твоих действий понимаю ?)

PooHer   (2009-07-07 11:53:00) [13]

100% рабочий пример кода есть у кого? Пусть даже самый простой, без проверок(сам допишу). Просто мне кажется, что у меня какая-то ПРИНЦИПИАЛЬНАЯ ошибка в коде, но в виду отсутствия опыта, определить её не представляется возможным.
Можно, конечно, использовать готовые библиотеки, но очень хочется познать суть (Собственно по этому и пишу для МК на АСМе, а не на Си или Баскоме).

PooHer   (2009-07-07 11:47:00) [14]

Вообще, с Delphi только начинаю работать. Проектирую устройства на микроконтроллерах, пишу на АСМе. Встал вопрос о сопряжении МК и ПК. С Delphi последний раз общался лет 8 назад, забыл всё что знал, а знал мало :)
То, что данные уходят корректно проверено на железяке(МК).

PooHer   (2009-07-07 11:43:00) [15]


> И что же подвигло тебя убрать проверки (пусть даже элементарные),
>  фигурировашие в изначальном варианте ?

Да то, что не работает ничего, замучался уже.
Во втором потоке программа крутится на ожидании звента, фактически данные отправляются и приходят в порт на 100%.

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


> Чтение изначально было такое


И что же подвигло тебя убрать проверки (пусть даже элементарные), фигурировашие в изначальном варианте ?

PooHer   (2009-07-07 11:19:00) [17]

Чтение изначально было такое:
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(cId, 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(cId, dwError, @ComStat) then
raise Exception.Create('Error clearing port');

dwRead := ComStat.cbInQue;

if dwRead > 0 then
begin
if not ReadFile(cId, Buf, dwRead, dwRead, @OverRead) then
raise Exception.Create('Error reading port');
// В Buf находятся прочитанные байты
// Далее идет обработка принятых байтов
end;
end;
end;

Инициализация:
cId:= CreateFile(‘COM1’, GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
if cId= INVALID_HANDLE_VALUE then
raise Exception.Create('Error opening port');

if not GetCommState(cId, Dcb) then
raise Exception.Create('Error setting port state');

Dcb.BaudRate := CBR_9600;
Dcb.Parity := NOPARITY;
Dcb.ByteSize := 8;
Dcb.StopBits := ONESTOPBIT;

if not SetCommState(cId, Dcb) then
raise Exception.Create('Error setting port state');
if not PurgeComm(cId, PURGE_TXCLEAR or PURGE_RXCLEAR) then
raise Exception.Create('Error purging port');

Сергей М.   (2009-07-07 09:34:00) [18]

То же самое касается вызова ReadFile - те же грабли в ту же точку приложения)

Сергей М.   (2009-07-07 09:32:00) [19]

Черным же по белому в справке написано:

If hFile was opened with FILE_FLAG_OVERLAPPED, the lpOverlapped parameter must .. point to a validOVERLAPPED structure


> Контроль убран уже от безысходности


Вот если бы ты не убирал контроль результатов вызовов WinAPI-функций (сомневаюсь что он вообще у тебя был), то он бы сразу показал тебе, что WaitCommEvent() вернула отказ по причине очевидной инвалидности переданного ей параметра OverRead.

Сергей М.   (2009-07-07 09:24:00) [20]

+ и опять те же грабли с обращением к VCL-контролам в доп.потоке

Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо