загрузка изображений на мобильной платформе?

&НаКлиенте
Процедура ПриОткрытии(Отказ)
 ЗаполнитьЗвуки();
 ЗаполнитьВиджеты();
 АрхивПутьКАрхиву = "/sdcard/Download/" + Новый УникальныйИдентификатор + ".zip";
 АрхивПутьДляРаспаковки = "/sdcard/Download/" + Новый УникальныйИдентификатор;
 ФтпАдресТестовогоСервера = "ftp://test1C:[email protected]:21/";;
 ЗаполненияОтладки();
 ГПСРасстояниеОбновления = 1;
 ГПСВремяОбновления = 5;
 ГПСПровайдер = "network";
 ЛогУровеньЛога = "I";
 ЛогТэг = "Тест лога";
 ЛогТекст = "Некий текст для теста лога. " + ТекущаяДата();
 ТоастТекстСообщения = "Тестовое сообщение " + ТекущаяДата();
 PushЗаголовок = "Заголовок";
 PushТекст = "Текст сообщения";
 PushОписание = "Уточнение";
 PushДействие = "Set";
 ВибрацияДлительность = 500;

 СМСОтправитель = "1234";
 СМСТело = "Некое оповещение";
 ЭтаФорма.Ширина = 30;

 ЗаполнитьДоступныеБазы();
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьДоступныеБазы()
 ДанныеОБазах = Новый ЧтениеТекста ("/data/data/com.e1c.mobile/files/1C/1cem/ibases.v8i");
 Стр = ДанныеОБазах.ПрочитатьСтроку();

 Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки

 //Сообщить(Стр);

 Если Лев(Стр, 1) = "[" Тогда
 СпВыбора = Элементы.PushБазаДанных.СписокВыбора.Добавить();
 СпВыбора.Представление = Стр;
 КонецЕсли;
 Если Лев(Стр, 3) = "ID=" Тогда
 СпВыбора.Значение = СтрЗаменить(Стр,"ID=","");
 КонецЕсли;
 Стр = ДанныеОБазах.ПрочитатьСтроку();
 КонецЦикла;

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

Процедура ЗаполнитьВиджеты()
 Нов = ВиждетТаблица.Добавить();
 Нов.ID = Новый УникальныйИдентификатор("d3b6e1db-e48a-43ce-812c-34adab3a3c42");
 Нов.Текст = "Текст для отображения в виджете";
 Нов.СсылкаИлиСодержание = ВернутьСтраницу();

 Нов = ВиждетТаблица.Добавить();
 Нов.ID = Новый УникальныйИдентификатор("e938b2db-6259-491e-879d-2667d2f5a68b");
 Нов.Текст = "Ссылка на сайт от: " + ТекущаяДата();
 Нов.СсылкаИлиСодержание = "http://acode.pro";;
 Нов.ЭтоУРЛ = Истина;
КонецПроцедуры

Функция ВернутьСтраницу()
 Возврат
"<HTML>
|<BODY>
|" + ТекущаяДата() +" 
|Разноцветный текст!
|Список:
|<UL>
|<LI>1 </LI>
|<LI>2 </LI>
|<LI>3 </LI>
|<LI>4 </LI></UL>
|Сообщение по центру
|<A href=""http://google.com"">;Ссылка на гугл</A>
|Таблица:
|<TABLE style=""WIDTH: 500px"" cellSpacing=1 cellPadding=1 border=1>
|<TBODY>
|<TR>
|<TD>ИмяКолонки1</TD>
|<TD>Имя колонки 2</TD></TR>
|<TR>
|<TD>Значение 11</TD>
|<TD>Значение 21</TD></TR>
|<TR>
|<TD>Значение 12</TD>
|<TD>Значение 22</TD></TR></TBODY></TABLE>
|Картинка с инета:
|<IMG src='http://rghost.net/54501127/image.png'/>;Картинка в бейс64: <IMG src='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAAsTAAALEwEAmpwYAAADUUlEQVR42lWTWUwTURSGaUtIKY5QweISTUzceDGu0Rj1xURjTNQEE+ODGn0hPhBEQdqZztahBbrAtFih1Fprh9IBiVLLErZSU7BUoS7VqNH44ovx0S0ovdfO4Ez04cw9Ofec7/5zzr15NEnkUxSVFx8ObZ1x7nzHN6z9nOhnzOFwWCnECcKoEFbBRrrp6iF/XRvD0BoplkdTuAiIhtt3P3Fu+jJlKlkM1WoXLFjVeSnpXrC94gV3ciJp1X0L1K7+NtDfvXdpj1TmmUwm8QTfLa867T+ceWTSwO5r5b87XNaDEoBrv3p2Ai+AU1Qh5OiDGS4UXi4roAisQHBiYfJS2obAVPMyELYcGxViOIaKcLaNLXzadej5nBUBPXW6hdYW0z4RQOYUXK2tUfr8QeXL0Kn4JKEBk7QWdtrrLggJJEmoCBxVCf50qIaaa0HABFkEPZaLNnGfwPNFGV0u05Y554bvMQoBPLbxs9t9QydJpHP/KayRbsf+pG1NdgTTgDuGXa8dbS41ZtArxaQYT1WlHVqYaloGOcvJIan4X2MdViTl3vExbS+GPfXlvzzutj1LPch9HrYea59t0YIRtAAO+PQuIWYwNKikYty41Iuk/3TvMzsCB9HcQR7msgzgjZs7Z5rLQPR6PojeJW2d3oDCoG/IlwAYqlexbp/i9eB19ziuBoMoAlrR03YZ0G8+0JFhS8EjuhD6zWfuCTEjppcBOKYX1bwaqA5MM2oYZ4pBy7XjrAyY7sPqU01FcNZW/jtwZeXXVpt5u1RM4JhYzHFBddqz5/28fUU2NwngtVUbZUCE79o6x67/MYiXLiSbS8D9xp1vI7znkLvDK07A5/MiT7mzdxMMAsdMqxaiWDHkgzePigBUXy9KTfdWeVKNSjjPrvv5uKkYxszlIHX7eDLeVfkgbt30bt5eAlOOtT9nLRrI03szrOumOtcb4SrTSj2KKfr4nuUZ7kR8HFPAYXLlYqxRl43TGjjTWAhHCC1MNK/+lWA0cJLRgfsh95G/N1H136z7+BCSuHMuMEGVLo4a1XCKKcuO0WXZBw1FcNighmPWbe8jIeeJpdFiCrkHguWUyM92NBKseBut8T92bfsw66z49IyrHH2T5CvlqeCYUvL/ANIZ7+ohXSdWAAAAAElFTkSuQmCC'/>
|</BODY></HTML>"
КонецФункции

&НаКлиенте
Процедура ЗвукиСписокЗвуковВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
 СтандартнаяОбработка = Ложь
КонецПроцедуры

&НаКлиенте
Процедура ВыборИконки(Элемент)
 Элементы.ВыбраннаяИконка.Картинка = БиблиотекаКартинок[Элемент.Имя];
 PushИконка = 0+Прав(Элемент.Имя,1);
КонецПроцедуры

&НаКлиенте
Процедура АрхивСписокФайловПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр)
 Отказ = Истина;
 #Если МобильноеПриложениеКлиент Тогда
 НовВз = Новый ЗапускПриложенияМобильногоУстройства();
 НовВз.Действие = "android.intent.action.GET_CONTENT";
 НовВз.Тип = "file/*";
 Если НовВз.Запустить(Истина) = 0 Тогда Возврат КонецЕсли;

 Путь = УтилитыACODEКлиент.ПолучитьUriИзContent(НовВз.Данные);
 Если ЗначениеЗаполнено(Путь) Тогда
 Нов = АрхивСписокФайлов.Добавить();
 Нов.ПутьКФайлу = Путь;
 КонецЕсли;
 #КонецЕсли
КонецПроцедуры

&НаКлиенте
Процедура АрхивПутьДляЧтенияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
 #Если МобильноеПриложениеКлиент Тогда
 НовВз = Новый ЗапускПриложенияМобильногоУстройства();
 НовВз.Действие = "android.intent.action.GET_CONTENT";
 НовВз.Тип = "application/zip";
 НовВз.Запустить(Истина);

 АрхивПутьДляЧтения = УтилитыACODEКлиент.ПолучитьUriИзContent(НовВз.Данные);
 #КонецЕсли
КонецПроцедуры

&НаКлиенте
Процедура АрхивПутьКАрхивуДляРаспаковкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
 #Если МобильноеПриложениеКлиент Тогда
 НовВз = Новый ЗапускПриложенияМобильногоУстройства();
 НовВз.Действие = "android.intent.action.GET_CONTENT";
 НовВз.Тип = "application/zip";
 НовВз.Запустить(Истина);

 АрхивПутьКАрхивуДляРаспаковки = УтилитыACODEКлиент.ПолучитьUriИзContent(НовВз.Данные);
 #КонецЕсли

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

&НаКлиенте
Процедура ФтпПутьКФайлуДляОтправкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
 #Если МобильноеПриложениеКлиент Тогда
 НовВз = Новый ЗапускПриложенияМобильногоУстройства();
 НовВз.Действие = "android.intent.action.GET_CONTENT";
 НовВз.Тип = "file/*";
 НовВз.Запустить(Истина);

 ФтпПутьКФайлуДляОтправки = УтилитыACODEКлиент.ПолучитьUriИзContent(НовВз.Данные);

 Файл = Новый Файл(ФтпПутьКФайлуДляОтправки);
 Если Не Файл.Существует() Тогда
 Сообщить("Файл не найден!");
 Возврат;
 КонецЕсли;

 ФтпАдресТестовогоСервера = "ftp://test1C:[email protected]:21/"; + Файл.Имя;
 #КонецЕсли

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