Правильная установка шрифта средствами 1С

13.05.15

Разработка - Универсальные функции

Как правильно установить шрифт средствами 1С, а не просто копированием.

Если просто копировать файл шрифта в системную папку windows, то потом его нельзя использовать. Есть способ из 1С установить шрифт штатным образом. Источник https://www.cloudtec.ch/blog/tech/install-font-command-line-script-windows-7.html и http://www.cyberforum.ru/assembler/thread455807.html.

Ниже приведен код для обработки, где в макете сохранён шрифт code128.ttf в виде двоичных данных. Но метод подойдет для любых шрифтов, которые должны устанавливаться штатными средствами.

 

СистемнаяИнформация = Новый СистемнаяИнформация; 
ВерсияОС = СистемнаяИнформация.ВерсияОС;
ИмяФайла = "code128.ttf";
Макет = ПолучитьМакет("Макет");
Если Найти(ВерсияОС, "Microsoft Windows XP") = 0 Тогда
	objShell = Новый COMОбъект("Shell.Application");
	Каталог = КаталогВременныхФайлов();
	ПолноеИмяФайла = Каталог + ИмяФайла;
	Макет.Записать(ПолноеИмяФайла);
	objNameSpace = objShell.Namespace(Каталог);
	objFont 	 = objNameSpace.ParseName(ИмяФайла);
	objFont.InvokeVerb("Install");
	objFont = Неопределено;
	УдалитьФайлы(ПолноеИмяФайла);
Иначе
	WshShell 	= Новый COMОбъект("WScript.Shell");
	FSO 	 	= Новый COMОбъект("Scripting.FileSystemObject");
	ПутьШрифты 	= wshShell.SpecialFolders.Item("Fonts");
	ПолноеИмяФайла = ПутьШрифты + "\" + ИмяФайла;
	Макет.Записать(ПолноеИмяФайла);
	WshShell.Run("RunDll32.exe gdi32.dll,AddFontResourceA " + FSO.GetBaseName(ПолноеИмяФайла));
КонецЕсли;

См. также

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4350    atdonya    22    

41

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3889    ke.92@mail.ru    16    

60

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8569    YA_418728146    6    

139

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2024    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16019    131    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7202    quazare    8    

108
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. insurgut 207 13.05.15 14:29 Сейчас в теме
В коде сразу и ответ: средствами 1С - никак %) Но с точки зрения пользователя ему все-равно, каким именно образом будет установлен шрифт, а с точки зрения программиста - отличное решение, чтобы конфигурация включала в себя сам шрифт и могла его "налету" устанавливать.
2. miniogn 23 13.05.15 15:23 Сейчас в теме
В слову,в некоторых типовых встроен код установки шрифтов.
Пользователю не всегда удастся установить шрифт, т.к. могут отсутствовать права.
Dmitryiv; +1 Ответить
3. sytkosa 119 13.05.15 18:28 Сейчас в теме
Решение неплохое. Но также нужно не забывать проверять безопасно а можно ли пользователю создать COM объект и можно ли ему выполнить инсталляцию, так как если прав нету то 1С выпадет в ошибку
4. anig99 2841 13.05.15 22:21 Сейчас в теме
(3) 8SiriuS8, у меня не с одним пользователем в стандартной УПП проблем не возникло
7. sytkosa 119 14.05.15 22:14 Сейчас в теме
(4) Видимо в вашей сети админы не используют AppLocker и не делают повышенные ограничения для пользователей
eugene_vk; +1 Ответить
8. anig99 2841 15.05.15 07:59 Сейчас в теме
(7) 8SiriuS8, если в сети используются серверные возможности по управлению, то шрифты на все компьютеры можно установить и через них.
5. unichkin 1559 13.05.15 23:09 Сейчас в теме
А под Linux как, не знаете?
6. killovolt 252 14.05.15 07:58 Сейчас в теме
(5) unichkin, под Linux на базе Debian (Ubuntu, Mint) надо копировать шрифт в папку /usr/share/fonts, но у пользователя должны быть соответствующие права, вернее это можно сделать только под правами root.
Dmitryiv; unichkin; +2 Ответить
9. androgin 11.12.17 16:18 Сейчас в теме
Для WINDOWS: сохранить шрифт во временный файл - открыть его для пользователя, чтобы она сам его установил (кнопочка УСТАНОВИТЬ присутствует) - после установки удалить временный файл (опять же кодом!) или после закрытия клиента временный файл сам удалиться.
Штатными средствами все делается.
А устанавливать что-то втихую - это варварство!
10. anig99 2841 11.12.17 17:02 Сейчас в теме
(9) готовы объяснять 100+ пользователям, что не нужно пугаться появляющейся кнопки? А шибко умным объяснять, что нужно нажать кнопку Ок, а не Отмена. А надписи и предупреждения 90% пользователей просто не читают... А если читают, то принципиально не подключают мозг для чтения.
11. androgin 11.12.17 20:20 Сейчас в теме
(10) что там объяснять?
вывалил окошко с текстом, что будет установлен шрифт и прочей информацией "для тупых"
выводишь свой шрифт.
пользователь его устанавливает.
Что тут сложного? Вы сами себе проблемы создаете?
Не читают - знач такие работники. Установят, когда шрифты поплывут.
12. anig99 2841 11.12.17 21:44 Сейчас в теме
(11) эххх. установят, прочитают... Вот такие вот бывают разные работники. 1с тоже вот мечтало, что пользователи будут сами отчеты для 1с создавать... Ну и много таких пользователей? Ещё раз. Я 12 лет работаю с 1с. И все 12 лет ситуация не меняется - 90% пользователей не читают текст. А если читают, то слова у них в цельное предложение не связывается. Им "работать надо, а не окошки читать". А когда документы уйдут в час ночи в сетевые магазины без нужных штрихкодов (выводимых с помощью шрифтов), где откажутся принимать товар, то виноват будет не оператор, который не прочитал текст на незнакомом окошке, и не админ, которые заменил сгоревшую машину... А 1сник, который создавал эту печатную форму. Ситуации бывают в жизни разные. Вот будто бы такая задача у меня просто так возникла. Или я такой злодей, похабные шрифты устанавливать буду...
13. androgin 13.12.17 19:47 Сейчас в теме
(12) никто не мешает пользователям самим составлять себе отчеты.
И не важно сколько вы в 1С. Ваша работа говорит больше вашего срока в ней.
А злодей или нет - НЕЛЬЗЯ принудительно устанавливать то, на что пользователь не соглашался!
14. anig99 2841 13.12.17 23:51 Сейчас в теме
(13) не важно сколько я в 1с. Важно сколько я работаю с людьми. Я знаю о существовании пользователей, которые могут сами себе писать отчеты. Но так же я знаю, что существуют должности, уровень оплаты на которых не позволяет нанять квалифицированных сотрудников. Поэтому существуют ситуации, когда нельзя доверять неквалифицированным пользователям устанавливать что-либо на оборудование, которое является собственностью организации. Ну вот ведь ужас! Злой сисадмин поставил операционную систему на компьютер без ведома пользователя!
Ладно. Всё это лирика. Я не знаю какой Вы специалист, но судя по другим сообщениям на форуме, любите поругаться, а не обсуждать профессиональные темы. Я этот этап прошел уже давно и не хочу тратить на это время.
15. androgin 14.12.17 03:12 Сейчас в теме
(14) вы работаете в системе учета, в не в детском саду раскаршки малюете. Тут главное минимизировать человеческий фактор. Вы же его наоборот розводите.
И не будьте «бабой», говоря о «любите поругаться». Ечли для вас приведенте аргументов ругань - уж простите, но это ваше личное мнение. Не я тут не в состоянии оправдать свои действия
16. anig99 2841 14.12.17 07:09 Сейчас в теме
(15) Странно. Мне казалось, что просить пользователя сделать что-то руками, а не автоматизировать - это как раз увеличение человеческого фактора. Кроме того, увеличение автоматизации процессов как раз снижает затраты на человеческие ресурсы за счет снижения человеко-часов и квалификации непосредственных исполнителей до уровня наблюдателей. Ещё раз. Учетная система и оборудование - собственность предприятия, поэтому он вправе давать указание исполнителям производить установку необходимого софта в пределах АК и УК.
17. androgin 14.12.17 22:28 Сейчас в теме
(16) вы бросаетесь в крайности. Это не вопрос: "вы уверены, что хотите провести документ?". Вы не в 1С ставите/запускаете, а в систему. Мало того, вы даже не учитываете, что права у пользователя могут быть ограниченными
18. kdrozdenko 30.03.22 09:26 Сейчас в теме
А в каком каталоге в данной обработке лежит шрифт code128.ttf ? На сервере или у пользователя?
19. kdrozdenko 30.03.22 09:48 Сейчас в теме
А в каком каталоге в данной обработке лежит шрифт code128.ttf ? На сервере или у пользователя?
20. anig99 2841 31.03.22 13:01 Сейчас в теме
(19) Смотря, где у Вас выполняется код. Если на сервере, то и шрифт должен лежать там, откуда сервер его может забрать. Тогда шрифт установится на сервер.
Если код на клиенте выполнять, то шрифт должен лежать там, где его может достать клиент.
Место откуда забрать - это диск или сетевая папка.
Где должен устанавливать шрифт? Там, где формируется печатная форма. Если формируется на клиенте, то на клиенте должен быть и шрифт.
21. kdrozdenko 31.03.22 13:57 Сейчас в теме
(20) Спасибо! Только сейчас прочитал внимательней код и понял что он берет из папки Fonts куда его нужно предварительно закинуть, вчера бегом просмотрел...
22. smykom 33 22.05.22 05:56 Сейчас в теме
А как установить свой шрифт на мобильное приложение, столкнулся с тем что не могу использовать свой шрифт на мобильном устройстве
Оставьте свое сообщение