ПЛК63 + SysLibCom, потеря байтов

[Валенок]

Очень кратко - тот протокол как выглядит ?

[monteg]

Зачем забирать меньше чем там есть ?

1. Очищает буфер порта
2. Посылаем запрос
3. пауза
4. Читаем 10 байт из буфера порта
5. Если прочитанное "правельное", то
Если прочитан весь ответ, то (6)
иначе 4
иначе 6
7. пауза
8. на 1

я ответ читаю порциями.

[monteg]

Очень кратко - тот протокол как выглядит ?

Какой протокол?
Я посылал запросы и ожидал ответов в формате modbus rtu

REQUEST : ARRAY [ 1..REQUEST_SIZE ] OF BYTE := 16#10, 16#04, 16#00, 16#00, 16#00, 16#04, 16#F2, 16#88;

16- адрес устройства
04 - код функции
00, 00 - адрес первого регистра
00,04 - кол-во регистров
crc - 88F2
Если под рукой нет программы для подсчета crc,
http://www.lammertbies.nl/comm/info/...lculation.html

[monteg]

счетчик я обсуждать не буду

[monteg]

1. Очищает буфер порта
2. Посылаем запрос
3. пауза
4. Читаем 10 байт из буфера порта
5. Если прочитанное "правельное", то
Если прочитан весь ответ, то (6)
иначе 4
иначе 6
7. пауза
8. на 1

я ответ читаю порциями.

блин хигню написал, ночь уже

[Валенок]

1.Отправили, взвели таймер
2.Читаем.Что-то есть - перевзводим таймер. время вышло - выходим на проверку данных
PS
А счетчик есть и в modbus.lib
И я про тот, другой, протокол спрашивал
Паузы - в сад

[monteg]

шнайдеровский счетчик в сад. Здесь я его обсуждать не хочу. Не та тема.
Пойми из буфера порта читаю небольшими порциями. Да можно при чтении запросить макс. возможное для данного протокола количество байт из буфера. И проблема пропадет. НО почему теряются байты при чтении ответа из буфера частями. На ПЛК100 работает на ПЛК63 - глючит. А на еще каком-нибуть ПЛКxxx, будет другой глюк.
Меня не интересует, как можно сделать по другому. Я знаю как сделать. Меня интересует имено ентот глюк.

[monteg]

Вы попробуйте, если не влом конечно, и есть возможность заменить
Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), SIZEOF(rBuf), 0));

на

Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), SIZEOF(rBuf), 0));
if ( size > 0 ) then
size := size + DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf[ 1 ]), SIZEOF(rBuf) - 1, 0));
end_if

[monteg]

Вы попробуйте, если не влом конечно, и есть возможность заменить
Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), SIZEOF(rBuf), 0));

на

Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), SIZEOF(rBuf), 0));
if ( size > 0 ) then
size := size + DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf[ 1 ]), SIZEOF(rBuf) - 1, 0));
end_if

ошибся

Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), 1, 0));
if ( size > 0 ) then
size := size + DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf[ 1 ]), SIZEOF(rBuf) - 1, 0));
end_if

[Валенок]

когда читаете - знаете сколько прочитали. Ну за каким читать меньше или больше ?
PS
Все. Спокойной ночи.