Показаны сообщения с ярлыком . Показать все сообщения
Показаны сообщения с ярлыком . Показать все сообщения

четверг, 31 октября 2013 г.

Производительность XEN в примере 1С 7.7

В кратце.
Установлен Citrix XEN 6.2. Интересовала скорость проведения месяца.
1. Без виртуализации - 1 час
2. Без виртуализации на сервере только MSSQL, клиентская часть на компе в сети - 2 ч.
3. Xen с настройками по умолчанию - 2:30 ч
4. Xen  с закрепленными ядрами за Dom0 и каждой виртуалкой - 2 ч

Интересно сколько выжмет VMWare и Hyper 2012...
Интересная особенность проброса Hasp key для 1С под Xen.
Пробовал пробросить ключи на двух серверах
  HP DL380 G7
и
 Manufacturer: Intel Corporation
        Product Name: S2600GZ
        Version: G11481-352
        Serial Number: QSGR21500392
Сервер первый HP.
Несмотря на множество показанных USB контролеров, пробрасывается только все целиком. Т.е. можно пробросить только один ключ в одну виртуалку со всеми остальными портами и при этом ключ начинает работать только если его подключить через ВНЕШНИЙ УСБ ХАБ!!.

Сервер второй Intel
lspci показал всего два контролера УСБ и в итоге они успешно были проброшены в разные виртуалки и работают без всяких извращений и хабов. На серваке удалось так завести два ключа. Один серверный и пользовательский.
Формирование запрос СКД вручную

Модуль формы
&НаСервере
Процедура ПодготовитьЗапросКВыполнению()
    Отчет = РеквизитФормыВЗначение("Объект");   
    СхемаКомпоновкиДанных = Отчет.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");   
   
    ТЕКСТЗАПРОСА = СхемаКомпоновкиДанных.НаборыДанных[0].Запрос;

    Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетОформления = Новый МакетОформленияКомпоновкиДанных;
    МакетКомпоновки   = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Отчет.КомпоновщикНастроек.ПолучитьНастройки(),Расшифровка,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
    //МакетКомпоновки   = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Отчет.КомпоновщикНастроек.ПолучитьНастройки(),,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
   
    Процессор = Новый ПроцессорКомпоновкиДанных;
    Процессор.Инициализировать(МакетКомпоновки,,Расшифровка);
   
    Вывод = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений();
    тз = Новый ТаблицаЗначений;
    Вывод.УстановитьОбъект(тз);
    Вывод.Вывести(Процессор,Истина);
    Сообщить(тз.Количество());
КонецПроцедуры

// Важный момент, иначе будет ругаться на "Макет1" и возращать пустые данные
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Отчет = РеквизитФормыВЗначение("Объект");   
    СхемаКомпоновкиДанных = Отчет.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");   
    //Отчет.КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
    Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);
    ЗначениеВРеквизитФормы(Отчет,"Объект");
КонецПроцедуры