Имя: Пароль:
1C
1С v8
Как быть ?
Ø (Asmody 23.01.2015 08:57)
0 antihacker
 
23.01.15
08:24
Ребята, вот код работает для ПК.
&НаКлиенте
Процедура ПрикрепитьФайл(Команда)
Оповещение=Новый ОписаниеОповещения("ОбработатьВыборФайла",ЭтотОбъект);
//Вызываем Диалоговое окно и помещаем файл Картинки из локальной файловой системы во временное хранилище
НачатьПомещениеФайла(Оповещение, , , Истина, УникальныйИдентификатор);

ПоместитьФайл(Оповещение, , , Истина,УникальныйИдентификатор);
КонецПроцедуры
&НаСервере
Процедура ОбработатьВыборФайла(Резльтат,Адрес,ВыбранноеИмяФайла,ДополнительныйПараметры) Экспорт
    
    Если Не Резльтат Тогда
        Возврат;
    КонецЕсли;
    Строка=Объект.ТЧПрикрепленныеФайлы.Добавить();
    //----Имя файла----------------------
    ВыбранноеИмяФайла=СтрЗаменить(ВыбранноеИмяФайла,"\",Символы.ПС);
    Текстарь=Новый ТекстовыйДокумент;
    Текстарь.УстановитьТекст(ВыбранноеИмяФайла);
    Строка.ИмяФайла= Текстарь.ПолучитьСтроку(Текстарь.КоличествоСтрок());
    //---Адрес временного хранилища-----
    Строка.АдресФайла=Адрес;
    //---Сам файл------------------------
    //Строка.ПрикрепленныйФайл = Новый ХранилищеЗначения(Новый  ХранилищеЗначения(ПолучитьИзВременногоХранилища(Адрес)), Новый СжатиеДанных(9));
    //---Размер файла-------------------    
    Строка.Размерфайла=Цел((СтрДлина(Base64Строка(ПолучитьИзВременногоХранилища(Адрес)))*0.73)/1024);

КонецПроцедуры

Но не работает для мобильного устройства.
ПоместитьФайл использовать тоже не могу. Потому что Мозилла не возвращает полный путь к файлу.


Как быть ? Где компромисное решение ?
1 Asmody
 
модератор
23.01.15
08:56
Тема не отражает суть сообщения