Здравствуйте. Давно я не программировал на Delphi. А тут задался целью сделать для своей машины (ВАЗ 11183) считыватель ошибок на микроконтроллере. Чтобы разобраться с протоколом, хочу для начала из своего приложения на ПК посмотреть/почитать данные. Диагностическая линия (k-line) представляет из себя "обычный ком порт" только с измененными логическими уровнями. 0 вольт - это логический 0, +12 вольт - это логическая единица. У ком порта 0 это минус 12 вольт. Собственно все переходники для машины и представляют собой просто согласователи этих самых уровней.
Скачал бесплатную программу Diagnostic Tools. Подключился к машине. Всё работает. Всё показывает. Взял снифер ком порта, посмотрел что шлет программа. Скачал описание протокола обмена. Чуда не произошло, всё строго по пунктам 

Не буду сильно вдаваться в подробности протокола. Собственно что меня интересует:

1. Чтобы начать диагностику, нам надо отправить:

Запрос startCommunication:
  81 10  F1 81 03
Ответ:
  83 F1 10 C1 6B 8F 3F

В ответе C1  означяет что ЭБУ готов с нами работать.

Поставил компонент AsyncFree104 для работы с com портом:


Как мне прочитать ответ? И как оттуда вытащить C1 ?

2. Сдернул клемму. Прочитал ошибки свои. Для определения значений данного параметра используется десятичная (BCD) кодировка.

Запрос ошибок readDTCByStatus:
  84 10 F1 18 00 00 00 9D
Ответ:
  88 F1 10 58 02 04 43 E0 14 26 E0 24
  
P0443  -  всё верно, 2 ошибки появилось.
P1426

Первые 3 байта нас не интересуют. Нам интересно: 58 - положительный ответ, 02 - число ошибок, дальше ошибки разделенные E0. Последняя цифра во всех запросах/ответах - контрольная сумма (2 младших разряда).

Как вытащить ошибки из этого ответа?

У компонента есть:

Как принимать в этот Buf ? Если длинна его меняется. И как разобрать данные?


Это сообщение отредактировал(а) mr_smit - 12.10.2011, 08:33

1. В чем вопрос-то? Как вытащить четвертый байт из буффера?
2. Выделять с запасом

Пока писал, сам сообразил. Вроде так:


Так?

Это сообщение отредактировал(а) mr_smit - 12.10.2011, 08:56

зависит от того что такое ReadBuffer, но похоже, да

Да, забыл написать


Если так, то тогда ещё вопрос:

BCD кодировка, как с ней работать? Как мне, например, в Memo отобразить ошибки?


Это сообщение отредактировал(а) mr_smit - 12.10.2011, 09:06

ну и там же наверное чтонить и возвращается из WriteData и ReadData

Хочу прочитать ошибки из тестового массива. 


В мемо получается:
P467
P2038

А должно:
P0443
P1426

Как перевести из BCD формата в String?

Это сообщение отредактировал(а) mr_smit - 12.10.2011, 09:48

Оооооо....!!!! Спасибо! Работает.

Кстати. Вот запрос параметров:
  82 10 F1 21 01 A5
ЭБУ моей машины отвечает:
 80 F1 10 26 61 01 3B 90 41 04   
 00 00 00 00 47 80 00 00 00 52 52 80 18 00 8E 00   
 5C 00 00 00 00 00 00 00 00 00 FF FF DD A4 47 02
 CE

61 - Положительный ответ readDataByLocalIdentifier
01 - afterSalesServiceRecordLocalIdentifier (что то там....)
....
11-й байт - Температура охлаждающей жидкости
....


Формула для расчета: N=E-40 [°C]
  E - передаваемое значение
  N - физическая величина
У меня это значение 47. Берем windows калькулятор. Переводим 47 hex в dec. Получаем 71. Дальше 71-40=31°C. Соглашусь. На момент снятия данных машина часа полтора простояла на улице. До конца не остыла.

Как бы мне теперь на Delphi так конвертнуть?

Чего то у меня в ошибку вываливается на строке:


Может где то длинну массиву назначать?

Это сообщение отредактировал(а) mr_smit - 12.10.2011, 11:48

SetLength.

Это сообщение отредактировал(а) AndreyIQ - 12.10.2011, 11:58

Кажется понял, ReadBuffer у меня сейчас пустой, а я пытаюсь 4-й элемент массива прочитать.

А где её задавать? Сразу после чтения?


Добавлено @ 12:07


Так?

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

Это сообщение отредактировал(а) mr_smit - 12.10.2011, 13:51

1. Размер массиву ReadBuffer задавать ДО передачи его в качестве параметра функции ReadData.
2. Размер массива это Length, а SizeOf это размер переменной, которая хранит адрес массива в памяти.
3. Первый параметр в функции ReadData должен быть передан как ReadBuffer[0].

Чего то у меня не работает код 

Дело в том что, как я понимаю, поскольку по K-Line обмен идет по одному проводу, то в момент передачи, принимать ничего не надо! Закончили передавать - начинаем линию слушать. Вот как этот момент реализовать?

Добавлено @ 15:39
Я когда сниффером обмен смотрю:
Запрос startCommunication:
  81 10  F1 81 03
Ответ:
  81 10  F1 81 03 83 F1 10 C1 6B 8F 3F

Реальный ответ это только 83 F1 10 C1 6B 8F 3F. А в начале идет запрос, просто он автоматом попадает на вход. Провод то связи один.  Он и на передачу работает и на прием.


Это сообщение отредактировал(а) mr_smit - 12.10.2011, 15:46