Объект "V7SysInfo" — это один из объектов внешней компоненты V7plus. Объект предназначен для получения информации об операционной системе, под которой работает «1С:Предприятие». Он позволяет определить версию операционной системы, тип процессора, объём оперативной памяти компьютера и номер релиза программы.
Работа с объектом "V7SysInfo", как и с другими объектами, входящими в состав V7plus, начинается с инициализации внешней компоненты с помощью системной функции ЗагрузитьВнешнююКомпоненту(). Возвращаемое функцией значение будет равно единице, если инициализация прошла успешно.
// Выполняем инициализацию компоненты V77plus, // учитывая то, что её местонахождение нам заранее неизвестно Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "ExtForms\" + "v7plus.dll") <> 1 Тогда Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "v7plus.dll") <> 1 Тогда Предупреждение("Компонента v7plus.dll не найдена!"); Возврат; КонецЕсли; КонецЕсли; КонецЕсли; // Создаем объект типа "V7SysInfo" Инфо = СоздатьОбъект("AddIn.V7SysInfo"); // Работаем с объектом типа "V7SysInfo" . . .
Доступ к атрибутам и методам объекта "V7SysInfo" осуществляется посредством переменной со ссылкой на объект, созданный с помощью системной функции СоздатьОбъект() (см. пример выше). Для этого имя атрибута или метода записывается через точку после имени переменной.
Примечание: Обратите внимание, что при создании объектов из внешних компонент в качестве параметра функции СоздатьОбъект() передаётся идентификатор объекта, записанный через точку после ключевого слова «AddIn».
Атрибуты объекта «V7SysInfo»
Объект "V7SysInfo" имеет несколько атрибутов, позволяющих получить некоторые сведения о компьютере, об установленной на нём операционной системе и системе «1С:Предприятие».
Получить информацию о версии операционной системы позволяет атрибут ВерсияОС (англоязычный синоним — OSVersion). Возвращаемым значением атрибута является строковое значение. Например, для ОС Windows XP это может быть строка "Microsoft Windows 2000 version 5.1 Service Pack 3 (Build 2600)".
Пример использования атрибута:
Инфо = СоздатьОбъект("AddIn.V7SysInfo"); Сообщить("Версия ОС: " + Инфо.ВерсияОС);
Получить информацию о типе установленного на компьютере процессора позволяет атрибут Процессор (англоязычный синоним — Processor). Возвращаемым значением атрибута является строковое значение. Это может быть строка следующего вида: "GenuineIntel x86 Family 6 Model 15 Stepping 13 2199 Mhz".
Пример использования атрибута:
Инфо = СоздатьОбъект("AddIn.V7SysInfo"); Сообщить("Процессор: " + Инфо.Процессор);
Получить информацию об объёме оперативной памяти компьютера позволяет атрибут ОперативнаяПамять (англоязычный синоним — Memory). Возвращаемым значением атрибута является числовое значение, показывающее объём ОЗУ в Мбайтах.
Пример использования атрибута:
Инфо = СоздатьОбъект("AddIn.V7SysInfo"); Сообщить("Объем ОЗУ: " + Инфо.ОперативнаяПамять + " Мбайт" );
Получить информацию о релизе установленной программы «1С:Предприятие» позволяет атрибут РелизПрограммы (англоязычный синоним — ProgrammRelease). Возвращаемым значением атрибута является строковое значение, содержащее номер релиза, например, "7.70.029".
Пример использования атрибута:
Инфо = СоздатьОбъект("AddIn.V7SysInfo"); Сообщить("Релиз системы "1С:Предприятие": " + Инфо.РелизПрограммы);
Получить информацию об имени главного исполнимого файла программы позволяет атрибут ИмяФайлаПрограммы (англоязычный синоним — ProgrammFileName). Возвращаемым значением атрибута является строковое значение.
Пример использования атрибута:
Инфо = СоздатьОбъект("AddIn.V7SysInfo"); Сообщить("Исполнимый файл программы: " + Инфо.ИмяФайлаПрограммы);
Примечание: По имени файла можно определить установленную версию технологической оболочки. Исполнимый файл системы «1С:Предприятие» локальной версии имеет имя 1cv7l.exe, файл сетевой версии — 1cv7.exe, а файл SQL-версии — 1cv7s.exe.
Методы объекта «V7SysInfo»
Сгенерировать уникальный 128-битный идентификатор GUID позволяет метод СоздатьGUID() (англоязычный синоним — CreateGUID()). Параметры у метода отсутствуют. Возвращаемым значением метода является строка, содержащая сгенерированный GUID.
Пример использования метода:
СисИнфо = СоздатьОбъект("AddIn.V7SysInfo"); Таб = СоздатьОбъект("Таблица"); . . . ИмяФайлаОтчета = СисИнфо.СоздатьGUID(); Таб.Записать(ИмяФайлаОтчета, "MXL");
Примечание: GUID (Globally Unique Identifier) — статистически уникальный 128-битный идентификатор. Его главная особенность — уникальность, которая позволяет создавать расширяемые сервисы и приложения без опасения конфликтов, вызванных совпадением идентификаторов. Хотя уникальность каждого отдельного GUID не гарантируется, общее количество уникальных ключей настолько велико (2128 или 3,4028×1038), что вероятность того, что в мире будут независимо сгенерированы два совпадающих ключа, крайне мала.
В тексте GUID записывается в виде строки из тридцати двух шестнадцатеричных цифр, разбитой на группы дефисами и окружённой фигурными скобками, например:
{6F9619FF-8B86-D011-B42D-00CF4FC964FF}
Последнее 8-байтное данное при записи часто разбивается на 2+6.
Получить ключевое слово по указанному адресу на диске ИТС позволяет метод ПроверитьИмяФайла() (англоязычный синоним — CheckFileName()). Возвращаемым значением метода является строка, содержащая ключевое слово. На практике метод используется очень редко.
Синтаксис:
ПроверитьИмяФайла(<Адрес>)
где <Адрес> — строковое значение, содержащее адрес ключевого слова.
Пример использования:
Инфо = СоздатьОбъект("AddIn.V7SysInfo"); . . . Делт = КодСимв("Z") - КодСимв("A") + 1; СтрокаИТС = Инфо.ПроверитьИмяФайла("1"); Если ПустоеЗначение(СтрокаИТС)=1 Тогда Сообщить("Вставьте диск ИТС в дисковод и повторите операцию"); Возврат 0; КонецЕсли; ИТС = (КодСимв(Сред(СтрокаИТС,2,1)) + Делт - КодСимв(Лев(СтрокаИТС,1))) % Делт;
Другие статьи по схожей тематике
