Разминка для программистов

[Рязанский]

вот ни как не разберусь, как инкотексовские программисты упаковали числа.
вот табличка -
десятичное число - упакованное число - шестнадцатеричное распакованное число
0      00         00
1      01         01
2      02         02
...
80     50         50
90     5a         5a
100    64         64 
120    78
126    7e
127    7f         7f
128    0180       80
129    0181       81
252    01fc      fc
253    01fd       fd
254    01fe       fe
255    01ff       ff
256    0280     0100
258    0282     0102
500    03f4     01f4
511    03ff     01ff
512    0480     0200
1000   07e8     03e8
2000   0fd0     07d0
15000  7598     3a98
100000 068da0 0186a0
16777214 07fffffe    fffffe

как-то крутят с битами.
В числе закодировано и количество байт,  занимаемое числом.

[drfaust]

А если так:
0      00         
1      01         
2      02         
...
80     50       
90     5a       
100    64       
120    78
126    7e
127    7f       
7-бит закончились, ставим лишний байт в 1 и "обратный отсчёт"
128    01_80
129    01_81
252    01_fc
253    01_fd
254    01_fe
255    01_ff
тут непонятно - должны были пойти снова с 02_00
256    0280
258    0282

511    03ff 

512     0480

Скорее не байты закодировали, а 7битные блоки, но со знаковым не разберусь. Отрицательные(в десятичной) тут есть или нет? Чую логика простая как лом, но уловить не могу.

[chellenger]

Интересно конечно самому разобраться, но увы нет времени. С удовольствием наблюдаю за поиском истины.
Возник вопрос -а какую смысловую нагрузку несёт кодированная инфа? Т.е. что это за структура?

[chellenger]

Ради интереса попросим Сергея Алексеевича не раскрывать карты раньше времени

[Рязанский]

Так они кодируют цену и количество.
длина записи меняется. Вот только не понимаю смысла в таком сжатии. Протокол очень перегружен лишними данными и несколько байт никак не повлияли бы на скорость обмена с фр.
А так - получили ошибки в драйвере.
Я уж и по битам записывал эти числа. Только найдется какая-то закономерность - попадается какое-то число, которое не подходит под этот вариант.
Нужен свежий взгляд. Тут что-то простое.

[chellenger]

Рязанский, я правильно понял что это кодировка из протакола обмена?

[chellenger]

И если так то получается протакол закрыт. Верней этим кодированием и закрыли.

[Рязанский]

Чую логика простая как лом, но уловить не могу.

Вот и я пару часов на этом потерял...
Байты идут младшим вперёд. Очень похоже, что в последнем байте никогда не встречается старшего бита (что то вроде признака конец записи)

[chellenger]

Совсем глупая мысль. Не нужно искать мат. ответ там где его нет... Хотя думаю он есть.

[Рязанский]

Протокол не совсем закрыт, скорее, он не документирован. К тому же, он ещё меняется.
Например, по текущему протоколу невозможно узнать, напечатан чек или нет. Касса отвечает одинаково всегда. То же самое и с открытием-закрытием смены. Касса отвечает всегда сразу, до реальной печати чека.

[SERZH]

252    01_fc
253    01_fd
254    01_fe
255    01_ff
тут непонятно - должны были пойти снова с 02_00
256    0280
258    0282

А если предположить что это не то что вы думаете а просто адрес числа тогда 7f+1=80  и так далее

[alcohelp]

Упакованные 383, 384, 385 есть?

[alcohelp]

Если упакованное число перевести в bin, видим, что в 8 разряде просто проставляется 1 как разделитель разрядов (запятая) и разряды сдвигаются.

[tridentxp]

вплоть до 15000 срабатывает правило деления безнаковых на 128:
упакованное XXYY -> ((255 AND (XX-1))*128) + YY.
15000->7598(XXYY)->3a98
0x75 - 1
0x74*0x80 = 3A00 ->+0x98.
дальше какой то разрыв шаблона.

[alcohelp]

Во всех разрядах кратных восьми вставляется разделитель - 1.
1000 - 1111101000 - 11111101000
15000 - 11101010011000 - 111010110011000
100000 - 11000011010100000 - 1101000110110100000

[Рязанский]

Упакованные 383, 384, 385 есть?

Только в понедельник смогу получить.
Тут явно отсутствие старшего бита означает конец числа. А вот в остальных байтах он всегда установлен.

[Рязанский]

7бит под значение и старший бит под флаг окончания числа.
Очень похоже. Нужно будет проверить.

[alcohelp]

Упакованные 383, 384, 385 есть?

Только в понедельник смогу получить.
Тут явно отсутствие старшего бита означает конец числа. А вот в остальных байтах он всегда установлен.

2FF, 380, 381

[villain]

Ну и скажите мне,зачем,вам,это нужно?Честно, интерес. Или....Российские предприниматели. промолчу.Я еще понимааю.

[GS]

villain, реально не понимаешь? программу пишет он свою под недокументированный протокол

[Master X]

villain, реально не понимаешь? программу пишет он свою под недокументированный протокол

А если точнее чтоб за авторские не в......

[promah]

А если точнее чтоб за авторские не в......

Авторские это да....
ээээ съсилько , бррр ... мне как-то прилетало , потом долго-больно челюсти было.

[tridentxp]

Ну и скажите мне,зачем,вам,это нужно?

шоб мосцк не застаивался. да и ваще во времена азэлка много чо интересного делали. . .

[Рязанский]

проверил, подтверждаю:

7бит под значение и старший бит под флаг окончания числа.

Сделал тест для меркурия.
Желающие могут потестить.

Как обычно, никакие драйвера производителя не требуются (только usb-com установить), работает напрямую по протоколу нижнего уровня.

Некоторые команды и параметры ФР просто игнорирует!

ps:Стоит отдельную тему заводить?

[got10]

Подскажите неофиту, есть старые исходники созданные в delphi 6/7, чем их можно скомпилить в 2019 году? Хочется с минимальными изменениями. Видимо delphi 2006 (D10), в которой ещё не перешли на юникод? Код, чистый VCL и частично Win API, никаких сторонних компонентов.

[tridentxp]

got10, на си переходи. 6-ой билдер под 7-ку компилит. глядишь за армы в гавань кейлы или эклипсы заплывёшь.

[NewKid]

Подскажите неофиту, есть старые исходники созданные в delphi 6/7, чем их можно скомпилить в 2019 году? Хочется с минимальными изменениями. Видимо delphi 2006 (D10), в которой ещё не перешли на юникод? Код, чистый VCL и частично Win API, никаких сторонних компонентов.

Попробовать перегнать на lazarus?