Delphi и COM порт

andy-k

Добрый вечер всем! Подскажите пожалуйста,я новенький, совсем новенький

Никак не могу на форуме найти ответа на свой вопрос.

В общем, есть у меня ардуина мега, она отправляет данные в COM порт, ну в смысле виртуальный COM порт, на компе. Я написал программу на Delphi, ибо больше ни на чем не умею, которая случает порт. Чтение идет в асинхронном режиме с использованием эвентов. Я до этого ничего подобного не делал и не совсем ещё разбираюсь в этом. Нашел в сети кучу описаний работы и реализовал наконец. Уже 2 дня мучаюсь.

Сначала пытался в синхронном режиме, без эвентов, чтение было, но команды принимались то целиком, то "кусками". Прочитал, что лучше делать с использованием эвентов, но все-равно не получается. В плату залит скетч, который раз в 5 секунд выдает сообщение на COM порт. Стоит точка остановки в дебаггере, эвент работает четко, в момент отправки сообщения платой код активируется. Все бы ничего, но проблема вот в чем. Отправляется строчка текста: ABCD1234, кучу раз она так и принимается, а бывает что проскакивают разы типа CD1234 или 1234 и т.п. Кто может помочь, буду очень благодарен.

Вот код инициализации порта:

Цитата:

begin
PortString := 'COM' + ComboBox5.Text;
CommHandle := CreateFile(PChar(PortString), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
unit2.CommHandle := CommHandle;

if (CommHandle = INVALID_HANDLE_VALUE) then
begin
MessageDlg('Can not open the specified port', mtError, [mbOK], 0);
end
else
begin
GetCommState(CommHandle, DCB);
DCB.BaudRate := CBR_115200;
DCB.Parity := NOPARITY;
DCB.ByteSize := 8;
DCB.StopBits := OneStopBit;

SetCommState(CommHandle, DCB);

end;

код метода execute потока, в котором крутится постоянное ожидание событий и их обработка:

Код:

var
    CurrentState : TComStat;
    AvaibleBytes,
    ErrCode,
    RealRead     : Cardinal;
    ReadOL       : TOverLapped;
    Signaled,
    Mask         : DWORD;
    BytesTrans   : DWORD;
    bReadable    : Boolean;
    MyBuff: array[0..1023] of Char;
begin
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);// then begin
        mm := string(MyBuff);
        
        Synchronize(addData); 
        
        end;
      end;
    end;
  end;
end;

galex1981

Понизь скорость приема/передачи по порту, 56000 например - мне помогло. Прблема походу у тебя в том что евент не успевает обработаться а ему уже нужно принимать следующий поток данных из порта. Путей здесь два: 1) уже называл выше - понизить скорость приема/передачи 2) оптимизировать код евента

andy-k

на разных скоростях пробовал, до 14400 опускался и не помогало

тоже сначала показалось что так решу проблему

но попробую ещё поэксперементировать. пробовал на 115200, на 57600 и на 14400

galex1981

А шнур какой у тебя COM портовый (имеется ввиду длина, экранирование)?

andy-k

По поводу экранирования не знаю, длина пол-метра примерно, шнурок mini USB

скорость 4800 и все-равно проскакивают ошибки

не знаю что с этим делать

galex1981

Попробуйте оптимизировать код

andy-k

в том то и дело, что я не знаю что тут можно оптимизировать, я крутил и так и так уже, все перепробовал

galex1981

По сути в евенте сделать получение и сохранение данных, а обработку в основной программе делай

andy-k

в эвенте имеется ввиду в потоке да?

думаешь поможет?

galex1981

1)Да в потоке
2)Я так оптимизировал

Rockman

Вам можно попробовать модернизировать посылку и организовать приём данных до символа 13 и/или 10, что соответсвует "\r\n", т.е. до перевода каретки и/или новой строки. Таким образом, принимая пришедшие данные до этого символа, будет суммироваться приём посылки. У меня нечто похожее было, но не да делфи, а на C# под VS2008. Принцип один и тот же...

andy-k

кстати, отправка из контроллера итак идет впаре с этим символом(в конце), да и идеи были сделать что-то похожее, но на крайний случай если не разберусь

спасибо за ответ

Rockman

Видимо событие приёма данных принимает вытолкнутые асинхронно в буфер данные. Далеко не всегда принимается весь пакет, поэтому частями и получается. Я с arduino так и принимаю данные до \r\n - все работает без проблем, пожалуйста

andy-k

Увеличил таймауты до 100, все заработало, правда несколько передач сливаются в одну. На стороне устройства добавил добавку символов #13 и #10, считанный буфер передаю функции, которая "расцепляет" сообщения ориентируясь на эти "разделители". Вроде все работает, пока тестирую.

Нужна на сто процентов стабильная передача, потеря одного из сообщений - весь проект под угрозой, несмотря на то, что аппаратная часть, над которой и бился большую часть времени работает идеально.

boez

Если нужна на 100% стабильная - скорее всего нужен сверху протокол, устойчивый к потерям. Чтобы на каждый пакет в ответ слал подтверждение, пакеты защищены контрольными суммами и передающее устройство, не получив подтверждения, отправляло пакет повторно.

roboforum.ru

Delphi и COM порт

Кто сейчас на конференции