helpf.pro
Регистрация
 0 
Распечатать

Пример регистрации файла шрифта

Код 1C v 8.х
 
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив;
ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF");
ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF");
Попытка
objShell = Новый COMОбъект("Shell.Application");
objFolder = objShell.Namespace(20);
ПутьККаталогуШрифтов = objFolder.Items().Item().Path;
Если Прав(ПутьККаталогуШрифтов, 1) <> "\" Тогда
ПутьККаталогуШрифтов = ПутьККаталогуШрифтов + "\";
КонецЕсли;
ФайлШрифтаСуществует = Ложь;
Для Каждого ВозможноеИмяФайлаШрифта Из ВозможныеИменаФайлаШрифтаEANGNIVC Цикл
ОбъектФайлШрифтаВКаталогеШрифтов = Новый Файл(ПутьККаталогуШрифтов + ВозможноеИмяФайлаШрифта);
Если ОбъектФайлШрифтаВКаталогеШрифтов.Существует() Тогда
ФайлШрифтаСуществует = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если НЕ ФайлШрифтаСуществует Тогда
ВремКаталог = КаталогВременныхФайлов() + Строка(Новый УникальныйИдентификатор) + "\";
СоздатьКаталог(ВремКаталог);
ВремФайлШрифта = ВремКаталог + ВозможныеИменаФайлаШрифтаEANGNIVC[0];
Обработки.ОбщиеОбъектыРегламентированнойОтчетности.ПолучитьМакет("EANGNIVC").Записать(ВремФайлШрифта);
objFolder.CopyHere(ВремФайлШрифта);
УдалитьФайлы(ВремКаталог);
КонецЕсли;
objFolder = Неопределено;
objShell = Неопределено;
Исключение
КонецПопытки;
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 10352
 0 
Распечатать
Возможно, вас также заинтересует
1C и Google Maps 21
была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1C: Enterprise Development Tools 52
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
1Cv8.1CD - Файл данных достиг максимального размера! 9
1С выдает предупреждение " Файл данных достиг максимального размера" . Подскажите из - за чего это и как можно решить ? Превышен размер файла, обычно это сообщение возникает, когда размер файла 1Cv8.1CD приближается к 10 гигабайтам или размер ка
Excel файл как Внешний источник данных 17
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа " Внешние источники данных" и назовем его просто " Excel" . https://helpf.pro/uploads/img
Microsift Visual C++ Runtime Library Program ...1cv77s.exe abnormal program termination 0
При запуске 1С 7.7 выдает сообщение: Microsift Visual C++ Runtime Library Program C:Program Files1Cv77BIN1cv77s.exe abnormal program termination Вариант 1. Обычно это происходит, когда повреждается файл регистрации. Точнее, когда не дописывает
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.