COM объекты (В файловом варианте работает, в клиент-серверном нет)

@wardamask · Регистрация: 10.02.2016

Author24 — интернет-сервис помощи студентам

Help me!!!
Написал в процедуру заполнения реквизитов документа из шаблонного Word документа.
И возникла проблема что в файловом (тестовом) варианте все прекрасно работает, а в клиент-серверном ни в какую(((

Вот так ругается...
{Документ.ИсполнительныйЛист.Форма.ФормаДокумента.Форма(153)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект)
Об = ПолучитьCOMОбъект(ПутьКПрофилю);
по причине:
Ошибка получения объекта COM: -2147221014(0x800401EA): Не удается открыть файл при помощи специального имени

1C

&НаКлиенте
Процедура ЗагрузитьПрофиль()
 
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.Заголовок = "Выберите файл";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ПутьКПрофилю = ДиалогОткрытияФайла.ПолноеИмяФайла;
            Иначе
        Текст = "ru = ""Файл не выбран!""; en = ""File not selected!""";
        Предупреждение(НСтр(Текст));
        Возврат;
    КонецЕсли;
           
Загрузка(ПутьКПрофилю);
 
КонецПроцедуры

1C

&НаСервере 
Процедура Загрузка (ПутьКПрофилю) Экспорт
 
 
        Об = ПолучитьCOMОбъект(ПутьКПрофилю);
        Об.Application.Visible = 0;
                Word = Об.Application;
        ThisDocument = Word.Documents(1);
                ThisDocument.Activate();
 
...
            
КонецПроцедуры;

Подскажите пожалуйста что мне делать?

@Dethmontt · 15.02.2016, 17:30

wardamask, на сервере установлен офис?

@wardamask · 15.02.2016, 17:34 **[ТС]**

Да установлен

@Dethmontt · 15.02.2016, 17:38

wardamask, а с сервера доступен файл который ты открываешь (путь с клиента)?

Добавлено через 48 секунд
Т.е. на компьютере А пытамся открыть файл который на компьютере Б

Думаешь он откроется?

Добавлено через 35 секунд
wardamask, просто попробуй сделать это без 1С

@wardamask · 15.02.2016, 18:11 **[ТС]**

Решил проблему так...

1C

 &НаКлиенте
Процедура Записать();
 
Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.Заголовок = "Выберите файл";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ПутьКПрофилю = ДиалогОткрытияФайла.ПолноеИмяФайла;
            Иначе
        Текст = "ru = ""Файл не выбран!""; en = ""File not selected!""";
        Предупреждение(НСтр(Текст));
        Возврат;
    КонецЕсли;
    
 
    
        Об = ПолучитьCOMОбъект(ПутьКПрофилю);
        Об.Application.Visible = 0;
        Word = Об.Application;
        ThisDocument = Word.Documents(1);
        ThisDocument.Activate();
                
            НаимКонтр = ThisDocument.ContentControls.Item(2).Range.Text;
            ИНН = ThisDocument.ContentControls.Item(3).Range.Text;
            Взыскатель = ThisDocument.ContentControls.Item(4).Range.Text;          
            Куратор = ThisDocument.ContentControls.Item(5).Range.Text;       
            ДатаПолученияЛистаИзЮУ = ThisDocument.ContentControls.Item(6).Range.Text;
            НомерЛиста = ThisDocument.ContentControls.Item(7).Range.Text; 
            ДатаНаправленияВОСП = ThisDocument.ContentControls.Item(8).Range.Text;
            ФИОНаправившегоЛист = ThisDocument.ContentControls.Item(9).Range.Text;   
            НомерПочтовогоИдентификатора = ThisDocument.ContentControls.Item(10).Range.Text;
            НаименованиеОСП = ThisDocument.ContentControls.Item(11).Range.Text;      
            ДатаПолученияВОСП = ThisDocument.ContentControls.Item(12).Range.Text;
            ДатаВозбуждения = ThisDocument.ContentControls.Item(13).Range.Text;
            НомерПостановления = ThisDocument.ContentControls.Item(14).Range.Text;    
            ФИОСудебногоПристава = ThisDocument.ContentControls.Item(15).Range.Text;
            КонтактнаяИнфПристава = ThisDocument.ContentControls.Item(16).Range.Text;
            ОсновнойДолг = ThisDocument.ContentControls.Item(17).Range.Text;
            Пени = ThisDocument.ContentControls.Item(18).Range.Text;            
            ПроцентыЗаПользование = ThisDocument.ContentControls.Item(19).Range.Text;  
            ГосПошлина = ThisDocument.ContentControls.Item(20).Range.Text;
            //ОплатаУслугПредставителя = ThisDocument.ContentControls.Item(21).Range.Text;
            
                
        РеквВорд = Новый Массив(21);
        РеквВорд[1]= НаимКонтр;
        РеквВорд[2]=ИНН;
        РеквВорд[3]=Взыскатель; 
        РеквВорд[4]=Куратор;     
        РеквВорд[5]=ДатаПолученияЛистаИзЮУ; 
        РеквВорд[6]=НомерЛиста;
        РеквВорд[7]=ДатаНаправленияВОСП;
        РеквВорд[8]=ФИОНаправившегоЛист;
        РеквВорд[9]=НомерПочтовогоИдентификатора;
        РеквВорд[10]=НаименованиеОСП;
        РеквВорд[11]=ДатаПолученияВОСП;
        РеквВорд[12]=ДатаВозбуждения;
        РеквВорд[13]=НомерПостановления;
        РеквВорд[14]=ФИОСудебногоПристава;
        РеквВорд[15]=КонтактнаяИнфПристава;
        РеквВорд[16]=ОсновнойДолг;
        РеквВорд[17]=Пени;
        РеквВорд[18]=ПроцентыЗаПользование;
        РеквВорд[19]=ГосПошлина;
        //РеквВорд[20]=ОплатаУслугПредставителя; 
                
        Записать1(РеквВорд);
        
        ThisDocument.Close();
КонецПроцедуры

Теперь не важно есть ли на сервере офис, главное что бы он на клиенте был. На сервер только строковые значения передаются. И как не странно работает в три раза быстрее предыдущего варианта.

Спасибо)))

@SHIFT_969 · 15.02.2016, 18:11

wardamask, тоже долго возился с этим, правда в экселе, в итоге сделал все, что с экселем связано, на клиенте, специально для серверной базы. Можешь посмотреть мой пример, только там запись, а не чтение.

@Dethmontt · 16.02.2016, 00:55

да не за что, главное что ты мозг включил........

@Dethmontt Модератор 3792 / 2970 / 591 Регистрация: 10.03.2011 Сообщений: 11,694 Записей в блоге: 1
	15.02.2016, 17:30	2
	wardamask, на сервере установлен офис? 0

@wardamask 0 / 0 / 0 Регистрация: 10.02.2016 Сообщений: 13
	15.02.2016, 17:34 [ТС]	3
	Да установлен 0

@Dethmontt Модератор 3792 / 2970 / 591 Регистрация: 10.03.2011 Сообщений: 11,694 Записей в блоге: 1
	15.02.2016, 17:38	4
	wardamask, а с сервера доступен файл который ты открываешь (путь с клиента)? Добавлено через 48 секунд Т.е. на компьютере А пытамся открыть файл который на компьютере Б Думаешь он откроется? Добавлено через 35 секунд wardamask, просто попробуй сделать это без 1С 0

@Dethmontt Модератор 3792 / 2970 / 591 Регистрация: 10.03.2011 Сообщений: 11,694 Записей в блоге: 1
	16.02.2016, 00:55	7
	да не за что, главное что ты мозг включил........ 0