Больше двух лет пользуюсь вот этой замечательной библиотекой для Delphi:
https://blog.grijjy.com/2017/04/25/binary-serialization-with-google-protocol-buffers/
Всё было замечательно, до позавчерашнего дня.
Суть в чём.
Пишу прошивку (на проклятых сях) под контроллер STM32F767, который должен общаться через TCP/IP с софтиной,
писанной на Delphi с использованием вышеупомянутой библиотеки.
Для реализации PB под эти ваши Си есть офигенная библиотека nanoPB, её и использую:
https://jpa.kapsi.fi/nanopb/
Описание тестового .proto:
авторsyntax = "proto2";
message Example {
required int32 value = 1;
}
компилятор .proto в сишный заголовок выдаёт на выходе (только часть показываю):
1.
2.
3.
4.
/* Struct definitions */
typedef struct _Example {
int32_t value;
} Example;
в поле value я передаю через PB значение 540, на выходе получаю закодированное значение 089C04
онлайн-декодер правильно его декодирует в значение 540 и тип поля - varint
Теперь переходим к дельфовой части
описание структуры:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
type
TMess = record
public
[Serialize(1)] value : LongInt ;
public
procedure Initialize ;
end ;
var
InArr : TBytes ;
Rec : TMess ;
begin
InArr := [$08, $9C, $04] ;
TgoProtocolBuffer.Deserialize(TypeInfo(TMess), Rec, @InArr[0], Length(InArr)) ;
end ;
На выходе получаем 270, а не 540, то есть ровно половину
Если я в nanoPB закодирую любое значение, 2020, например, то дельфовый десериализатор все равно покажет ровно в два раза меньшее значение.
Методом глубокого научного тыка я нашёл вариант,
когда дельфя раскодирует правильно - в описании структуры TMess надо заменить тип Integer на LongWord или DWord,
то есть
1.
2.
3.
4.
5.
6.
7.
type
TMess = record
public
[Serialize(1)] value : LongWord ; (* Integer - не работает почему-то *)
public
procedure Initialize ;
end ;
Тогда значение будет возвращаться нормально, ровно так, как его передаёт сишная часть
Провёл эксперимент уже на самой дельфовой библиотеке - закодировал через неё значение 540
вариант
даёт на выходе правильное значение - 089C04
а вариант
даёт на выходе значение 08B808, которое онлайн-декодер трактует как 1080, то есть удвоенное значение - 540 * 2 = 1080
В итоге (для типа LongInt) получается следующее.
NanoPB(вход 540) -> 089C04 -> Delphi(выход 270) = уполовиненное значение 540
Delphi(вход 540) -> 08B808 -> nanoPB(выход 1080) = удвоенное значение 540
В общем, вопрос в следующем - чего я не замечаю ?
