Переключатель клавиатуры для 1С

17.06.09

Разработка - Разработка внешних компонент

+11 –
Переключатель клавиатуры для 1С

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
dynwrap.dll
.1245224758 36,00Kb
54 1 850 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Часто при сканировании сканером штрих кода с буквами бывает необходимо переключить язык на определенный. Для этого я использую dynwrap.dll. При этом в конфигурации прописываем, для версии 7.7:

//*******************************************
Процедура Раскладка(Кнопка)
    Если  Кнопка = "rus" тогда
        Wrapper.LoadKeyboardLayout(SRus, 1);
        Wrapper.ActivateKeyboardLayout(NRus, 0);   
    Иначеесли  Кнопка = "eng" тогда   
        Wrapper.LoadKeyboardLayout(SEng, 1);
        Wrapper.ActivateKeyboardLayout(NEng, 0);   
      ИначеЕсли Кнопка = "ukr" тогда   
          Wrapper.LoadKeyboardLayout(SUkr, 1);
        Wrapper.ActivateKeyboardLayout(NUkr, 0);   
    КонецЕсли;
КонецПроцедуры
//********************************************

Процедура ПриОткрытии() 
    Раскладка("eng");
КонецПроцедуры;

//Переключатель клавитуры   
Wrapper = createobject("DynamicWrapper");

Wrapper.Register("USER32.DLL", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l");
Wrapper.Register("USER32.DLL", "LoadKeyboardLayout", "i=sl", "f=s", "r=t");
Wrapper.Register("USER32.DLL", "GetKeyboardLayoutName", "i=r", "f=s", "r=l");

SRus = "00000419";
SEng = "00000409";
SUkr = "00000422";


NRus = 1049;
NEng = 1033;
NUkr = 1058;

для версии 8.1 :

Процедура Раскладка(Кнопка)
    Если  Кнопка = "rus" тогда
        Wrapper.LoadKeyboardLayout(SRus, 1);
        Wrapper.ActivateKeyboardLayout(NRus, 0);   
    Иначеесли  Кнопка = "eng" тогда   
        Wrapper.LoadKeyboardLayout(SEng, 1);
        Wrapper.ActivateKeyboardLayout(NEng, 0);   
      ИначеЕсли Кнопка = "ukr" тогда   
          Wrapper.LoadKeyboardLayout(SUkr, 1);
        Wrapper.ActivateKeyboardLayout(NUkr, 0);   
    КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии() 
    Раскладка("eng");
 КонецПроцедуры  

//Переключатель клавитуры   
Wrapper = Новый COMОбъект("DynamicWrapper");

Wrapper.Register("USER32.DLL", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l");
Wrapper.Register("USER32.DLL", "LoadKeyboardLayout", "i=sl", "f=s", "r=t");
Wrapper.Register("USER32.DLL", "GetKeyboardLayoutName", "i=r", "f=s", "r=l");

SRus = "00000419";
SEng = "00000409";
SUkr = "00000422";


NRus = 1049;
NEng = 1033;
NUkr = 1058;

Очень помогает, если используется Code128

Вступайте в нашу телеграмм-группу Инфостарт

+11 –

См. также

HTTP сервер, HTTP асинхронный клиент, клиент ГИС МТ "Честный знак" внешние компоненты для 1С 7.7

Разработка внешних компонент WEB-интеграция Программист 1С v7.7 1C77 Платные (руб)

Компонента HttpSrv7 позволяет создавать веб-сервисы в среде 1С 7.7 и, используя файлы HTML, несложные веб-сайты. С помощью нее можно обеспечить доступ к данным 1С 7.7 из браузера. Дополнительно используя компоненту HTTP_Async можно наладить обмен данными между удаленными информационными базами по протоколам HTTP, HTTPS и WebSocket. С помощью компоненты HttpSrv7 используя протокол WebSocket можно создавать и поддерживать работу нескольких чатов. С помощью компоненты HTTP_Async можно асинхронно отправлять HTTP-запросы к сайтам, веб-сервисам (в т.ч. к HTTPSrv7) и обрабатывать ответы по мере их поступления. Компонента GISMT в дополнение к HTTP_Async имеет функцию цифровой подписи в формате Base64 и, таким образом, имеет все возможности для работы с API ГИС МТ "Честный знак" непосредственно из среды 1С 7.7.

6000 руб.

27.05.2022    11089    1    20    

38
Выбор из большого списка для 1С 7.7

Разработка внешних компонент Программист 1С v7.7 Платные (руб)

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

5000 руб.

02.12.2021    7099    3    19    

5
Компонента ExchangeStruc (Структура Обмена). Прямой обмен данными между потоками, сессиями и окнами.

Разработка внешних компонент Системный администратор Программист 1С v7.7 1С v8.3 1C v8.2 1С v8.1 Россия Платные (руб)

Аддон "Структура Обмена" (ExchangeStruc) - это компонента, которая обеспечивает доступ к разделяемым процессом структурам, аналогичным структурам 1С. Обеспечивает прозрачную передачу данных примитивных типов, в том числе Двоичных данных, в режиме Реального времени между разными контекстами (формами) или потоками одного процесса. В перспективе функционал будет расширен для обмена между процессами, даже разных версий платформ. Совместим с версиями Windows рабочих станций и серверов, с платформами 1С разных версий и релизов в режиме Native начиная с 8.2, и в режиме COM начиная с версий 7.7. По скорости чтения и записи лишь немногим уступает стандартной структуре 1С. НОВОЕ: Добавлен функционал регистрации компоненты COM в качестве OLE Auto (COMОбъект) для поддержки её работы в серверах старых версий 1С: 8.0 и 8.1, где работа с компонентами исключена. Теперь можно коммуникацию с Фоновыми заданиями на этих версиях проводить.

7200 руб.

19.04.2023    6205    1    0    

3
Криптография: внешняя компонента для 1С 7.7

Разработка внешних компонент Защита ПО и шифрование Программист 1С v7.7 Абонемент ($m)

Цифровые подписи, шифрование, просмотр сертификатов ключей ЭЦП, работа с различными криптопровайдерами (в т.ч. КриптоПРО ГОСТ 2012) в 1С 7.7.

1 стартмани

08.06.2020    10588    31    mdbruyfn    10    

9
Клиент HTTP(S): внешняя компонента для 1С 7.7

Разработка внешних компонент WEB-интеграция Программист 1С v7.7 Абонемент ($m)

Компонента позволяет использовать различные веб-сервисы интернет-ресурсов, например работать с онлайн-кассой через API, предоставленное ее разработчиком. Тестировалась на платформе 1С релиза 7.70.027.

1 стартмани

14.11.2019    21684    127    mdbruyfn    107    

19
Поддержка выгрузки в Excel 2007 для 1С 7.7 в одну строку

Разработка внешних компонент Загрузка и выгрузка в Excel Программист 1С v7.7 1C77 Абонемент ($m)

Внешняя компонента 1С 7.7. для сохранения таблиц в формате Excel 2007.

1 стартмани

21.03.2019    31011    82    MadDAD    322    

18
Формирование строки json в 1С: 7.7

Универсальные функции Программист 1С v7.7 1C77 1С:Комплексная 7.7 Абонемент ($m)

Предлагается набор функций 1с 7.7 для формирования строки json стандартными средствами.

1 стартмани

10.12.2018    12300    malovandrey    7    

19
Разработка игр на языке 1С с использованием Active-X компоненты (собственная разработка)

Разработка внешних компонент Программист 1С v7.7 1С v8.3 Россия Абонемент ($m)

Написанная Active-X компонента встраивается на форму обработки 1С (тестировалось на 1С 8.0, 8.1, 8.2, 8.3 не управляемые формы, 1С 7.7.). Компонента предназначена для моделирования игрового поля (вывод, движение спрайтов - фреймов, обработка коллизий, управление спрайтами-фреймами и т.д.) при разработки логики игры на встроенном языке 1С. Приложен пример обработки в которой реализована игра "Бита".

5 стартмани

04.01.2018    27599    2    protexprotex    34    

11
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Огонек 27 29.05.13 18:15 Сейчас в теме
Спасибо автору, информация пригодилась в своей разработке.
+ – Ответить
2. nano1c 174 08.12.21 11:08 Сейчас в теме
Все гораздо проще:

WshShell = Новый COMОбъект( "WScript.Shell" );
WshShell.SendKeys("a{ENTER}");
ВвестиСтроку(Стр,"",1);
Если КодСимвола(стр)<>97 Тогда
WshShell.SendKeys("+^",1);
WshShell.SendKeys("%^",1);
конецесли;

Или еще правильней трансформацию символов делать :
https://infostart.ru/public/1544660/
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация