ZIP-архив

@Lucky · Регистрация: 01.04.2012

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

1С:Предприятие 8.2. Подскажите, пожалуйста, необходимо сделать такую задачу: есть реквизит ФайлКартинки (тип ХранилищеЗначения), необходимо извлечь картинку, хранящуюся в этом реквизите, сжать ее объектом ZIP и эти сжатые данные записать в этот же реквизит.

@Dethmontt · 01.04.2012, 15:04

Примерно вот так

1C

Картинка = ФайлКартинки.Получить();
ИмяФайлаКартинки = ПолучитьИмяВременногоФайла(".bmp");
Картинка.Записать(ИмяФайлаКартинки);
 
ИмяФайлаZIP = ПолучитьИмяВременногоФайла(".zip");
Архиватор = Новый ЗаписьZipФайла(ИмяФайлаZIP,, "Картинка");
Архиватор.Добавить(ИмяФайлаКартинки);
Архиватор.Записать();
 
Данные = Новый ДвоичныеДанные(ИмяФайлаZIP);
ХранилищеКартинки = Новый ХранилищеЗначения(Данные);
 
ФайлКартинки = ХранилищеКартинки;

@Lucky 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 3
		1
	1C 8.x ZIP-архив 01.04.2012, 12:18. Показов 2202. Ответов 1 Метки нет (Все метки) 1С:Предприятие 8.2. Подскажите, пожалуйста, необходимо сделать такую задачу: есть реквизит ФайлКартинки (тип ХранилищеЗначения), необходимо извлечь картинку, хранящуюся в этом реквизите, сжать ее объектом ZIP и эти сжатые данные записать в этот же реквизит. 0

	01.04.2012, 15:04