Добрый день друзья, помогите пожалуйста новичку. Пытаюсь сконнектиться со своей ардуиной. Она шлёт данные мне в виртуальный COM порт, причем порой очень быстро, несколько отправок безо всяких пауз. Ардуиновскмй монитор(из проги, который вызывается) нормально реагирует, все передачи приходят отдельными строчками, все цело, хорошо и красиво.
Я в делфях написал прогу и уже 2 дня не могу победить прием данных. Он идет, но не так как надо. Так как я новичек и ещё не работал с СОМ портами, я поискал в инете примеры, скажем так, ничего на сто процентов рабочего не нашел, перечитал кучу статей и то же самое. С инициализацией порта проблем нет, чтение идет в отдельном потоке, так вот, сначала в exexcete потока у меня был такой код:
| Код |
ReadFile(CommHandle, BinBuf, sizeof(BinBuf),
dwRead, Nil);
b := BinBuf;
if (length(b)>3) then//
begin
Synchronize(addData);
end;
end;
|
Он работает, но как-то не так. Устройство посылает одну команду в порт, а в программе ReadFile не останавливаясь читает его. То есть не один раз, а как бы зацикливается, пока не прийдет следующая команда и с ней то же самое. То есть чтение не останавливается.
Попробовал асинхронное чтение по событиям, все работает, события тоже, но при чтении строки(устройство каждые 5 секунд отправляет 1234ABCD). Процентов 90 принимается нормально, остальные 10 что-то вроде того 12ABCD или ABCD или 34ABCD. Не понимаю, почему так :( Ребят, не забывайте что я ещё не такой опытный, подскажите что не так. Может у кого-либо есть рабочий пример.
вот код второй моей попытки:
| Код |
FillChar(ReadOL, SizeOf(ReadOL), 0);
ReadOL.hEvent:= CreateEvent(nil, True, True, nil);
SetCommMask(CommHandle, EV_RXCHAR);
WaitCommEvent(CommHandle, Mask, @ReadOL);
Signaled:= WaitForSingleObject(ReadOL.hEvent, INFINITE);
if (Signaled = WAIT_OBJECT_0) then
begin
if GetOverlappedResult(CommHandle, ReadOL, BytesTrans, False) then
begin
if (Mask and EV_RXCHAR) <> 0 then
begin
ClearCommError(CommHandle, ErrCode, @CurrentState);
AvaibleBytes:= CurrentState.cbInQue;
bReadable:= AvaibleBytes > 0;
if bReadable then
begin
ReadFile(CommHandle, MyBuff, SizeOf(MyBuff), RealRead, @ReadOL);
mm := string(MyBuff);
Synchronize(addData);
end;
end;
end;
end;
end;
|
|
