Программа вывода из оборота маркированной молочной продукции : КИС Lack & УС Land

Mtirt · █ 30.12.2022 10:44

Проще, наверное, смотреть, нет ли в пришедшем со сканера коде марки русских букв, и, если есть, перекодировать в латиницу.
Я не права?

vdm · █ 30.12.2022 11:03

На русские буквы лучше материться и не принимать.
В 99.9% они нормально перекодируются в латинские, но есть неоднозначные коды.

student · █ 30.12.2022 11:05

Цитата:

AndreyZh ➤ а как это определять

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

FinSoft · █ 30.12.2022 13:15

Функции win api для программной смены раскладки клавиатуры.
GetKeyboardLayoutNameA - получить название текущей раскладки (возвращает 00000419 - кириллица, 00000409 - латиница).
ActivateKeyboardLayout - установить раскладку (параметры 1, 0)
Пример установки в латиницу, поправить на синтаксис используемого языка программирования.

Код:

myProc procedure

NewKL  UNSIGNED
CurKL  CSTRING(20)
Err       UNSIGNED

    CODE
         Err = GetKeyboardLayoutNameA(CurKL)
         IF CurKL <> '00000409'
            NewKL = ActivateKeyBoardLayout(1,0)
         END

student · █ 30.12.2022 13:51

Цитата:

FinSoft ➤ ActivateKeyBoardLayout(1,0)

если раскладок клавы более 2-х то вариант не удачный :( - перебор по кольцу значений ...
правильнее LoadKeyboardLayout а уж потом на ее основе делать ActivateKeyBoardLayout

FinSoft · █ 30.12.2022 13:56

Я в курсе, но не встречал подобного. Можно просто в цикле перебрать.

student · █ 30.12.2022 14:03

Цитата:

FinSoft ➤ но не встречал подобного.

нам попадалось - Армения\Украина
а насчет циклов - согласен при определенной сноровке на них можно всю логику сварганить :)

FinSoft · █ 30.12.2022 14:25

Вот это поворот. Сходство как между русским и арабским. Интересно было бы глянуть на клавиатуру. Больше похоже на агента под прикрытием. Вишенка на торте, локация этого компьютера случаем не в Саратове?

student · █ 30.12.2022 14:49

нет, просто и в Армении и на Украине были рус\англ\национальный языки :)

FinSoft · █ 30.12.2022 15:18

На клавиатуре наклейки с буквами на национальном языке? Мне это не грозит, софт сильно заточен под Россию. Чтобы под другие страны локализовать, надо в нюансах их законодательства разбираться.