Обращение через ОЛЕ Хранилище файлов

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.

1. Oleg_nsk 279 28.08.13 13:33 Сейчас в теме

Собственно задача хранить файлы во внешней базе.

V8       = Новый COMОбъект("V82.ComConnector");
База = V8.Connect("File=""R:\1с\Хранилище""; Usr=""ADMIN"";"); 

НовоеХранилище = База.Справочники.ХранилищеФайлов.СоздатьЭлемент();
НовоеХранилище.Code = "111";
НовоеХранилище.Хранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные("R:\Отчет.txt"), Новый СжатиеДанных);
НовоеХранилище.Записать();

Показать

В результате оказывается что хранилище в базе 1 не тождественно хранилищу в базе 2. Каким образом мне записать файл в базе 2?

По теме из базы знаний

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
Oleg_nsk (5.00 $m)

Показать полностью

Найденные решения

2. leriko 4 28.08.13 14:10 Сейчас в теме

А если вот так?

V8       = Новый COMОбъект("V82.ComConnector");
База = V8.Connect("File=""R:\1с\Хранилище""; Usr=""ADMIN"";"); 
НовоеХранилище = База.Справочники.ХранилищеФайлов.СоздатьЭлемент();
НовоеХранилище.Code = "111";
ДвоичныеДанные = База.NewObject("ДвоичныеДанные", "R:\Отчет.txt");
НовоеХранилище.Хранилище = База.NewObject("ХранилищеЗначения",  ДвоичныеДанные);
НовоеХранилище.Записать();

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. leriko 4 28.08.13 14:10 Сейчас в теме

А если вот так?

V8       = Новый COMОбъект("V82.ComConnector");
База = V8.Connect("File=""R:\1с\Хранилище""; Usr=""ADMIN"";"); 
НовоеХранилище = База.Справочники.ХранилищеФайлов.СоздатьЭлемент();
НовоеХранилище.Code = "111";
ДвоичныеДанные = База.NewObject("ДвоичныеДанные", "R:\Отчет.txt");
НовоеХранилище.Хранилище = База.NewObject("ХранилищеЗначения",  ДвоичныеДанные);
НовоеХранилище.Записать();

3. Oleg_nsk 279 28.08.13 14:37 Сейчас в теме

(2) leriko, Вариант не проходит т.к. файл на другом сервере.. пришлось делать так

	V8       = Новый COMОбъект("V82.ComConnector");
	База = V8.Connect("File=""R:\1с\Хранилище""; Usr=""ADMIN"";"); 
		
	НовыйФайл = База.Справочники.ХранилищеФайлов.СоздатьЭлемент();
	НовыйФайл.Code = "114";
	
	ДД = Новый ДвоичныеДанные("R:\Отчет.txt");
	ДвоичныеСтрокой = Base64Строка(ДД);
	ОлеФайл = База.Base64Значение(ДвоичныеСтрокой);
	НовыйФайл.Хранилище = База.NewObject("ХранилищеЗначения", ОлеФайл);
	НовыйФайл.Записать();

Показать

Оставьте свое сообщение

E-mail: