|
загрузка изображений на мобильной платформе? | ☑ | ||
---|---|---|---|---|
0
Enot_tut
21.07.15
✎
16:47
|
возможно ли на мобильной плотформе сделать загрузку изображений и который отображался бы на 1 с? и как это сделать?
|
|||
1
rphosts
21.07.15
✎
17:29
|
можно, например организовав обмен через вебсервис
|
|||
2
Enot_tut
21.07.15
✎
18:36
|
это как сделать
|
|||
3
Enot_tut
22.07.15
✎
16:20
|
&НаКлиенте
Процедура ПриОткрытии(Отказ) ЗаполнитьЗвуки(); ЗаполнитьВиджеты(); АрхивПутьКАрхиву = "/sdcard/Download/" + Новый УникальныйИдентификатор + ".zip"; АрхивПутьДляРаспаковки = "/sdcard/Download/" + Новый УникальныйИдентификатор; ФтпАдресТестовогоСервера = "ftp://test1C:[email protected]:21/"; ЗаполненияОтладки(); ГПСРасстояниеОбновления = 1; ГПСВремяОбновления = 5; ГПСПровайдер = "network"; ЛогУровеньЛога = "I"; ЛогТэг = "Тест лога"; ЛогТекст = "Некий <FONT color=#ff8c00>текст для </font> теста <i>лога</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"); Нов.Текст = "Текст для <b>отображения в виджете</b>"; Нов.СсылкаИлиСодержание = ВернутьСтраницу(); Нов = ВиждетТаблица.Добавить(); Нов.ID = Новый УникальныйИдентификатор("e938b2db-6259-491e-879d-2667d2f5a68b"); Нов.Текст = "<font color='#FF8C00'>Ссылка</font> на сайт от: " + ТекущаяДата(); Нов.СсылкаИлиСодержание = "http://acode.pro"; Нов.ЭтоУРЛ = Истина; КонецПроцедуры Функция ВернутьСтраницу() Возврат "<HTML> |<BODY> |<P><B>" + ТекущаяДата() +" </B> </P> |<P>Р<B>азн</B><I>о</I><FONT color=#ff8c00><I>ц</I>в<U>етн</U></FONT>ый <FONT style=""BACKGROUND-COLOR: #008000"">текст</FONT>!</P> |<P>Список:</P> |<UL> |<LI>1 </LI> |<LI>2 </LI> |<LI>3 </LI> |<LI>4 </LI></UL> |<P align=center>Сообщение по центру</P> |<P><A href=""http://google.com"">Ссылка на гугл</A></P> |<P>Таблица:</P> |<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> |<P>Картинка с инета:</P> |<P><IMG src='http://rghost.net/54501127/image.png'/></P>Картинка в бейс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/" + Файл.Имя; #КонецЕсли КонецПроцедуры |
|||
4
Enot_tut
22.07.15
✎
16:21
|
как сделать чтобы он не тока зип файлы передова нои jpg файлы?
|
|||
5
DitriX
23.07.15
✎
11:02
|
НовВз.Тип = "application/zip";
менешь на НовВз.Тип = "image/*"; А вобще - читай тут http://catalog.mista.ru/public/301851/ |
|||
6
Enot_tut
23.07.15
✎
16:24
|
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) УРИ = "file:///sdcard/Download/1.png"; НовВз = Новый ЗапускПриложенияМобильногоУстройства(); НовВз.Действие = "android.media.action.IMAGE_CAPTURE"; НовВз.ДополнительныеДанные.Добавить("output",УРИ, "Uri"); если НовВз.Запустить(Истина) = 0 Тогда Возврат; КонецЕсли; ФотокамераФрагмент(УРИ); КонецПроцедуры &НаСервере Процедура ФотокамераФрагмент(Знач УРИ) Перем ДД, ХЗ; ДД = Новый ДвоичныеДанные("/sdcard/Download/1.png"); ХЗ = Новый ХранилищеЗначения(ДД, Новый СжатиеДанных(9)); КонецПроцедуры &НаКлиенте Процедура УдалитьФайл(УРИ) УдалитьФайлы(УРИ); КонецПроцедуры вот теперь как вывести изображение на 1с на комьютере как взять данные на 1с с ХранилищеЗначения |
|||
7
Enot_tut
23.07.15
✎
16:29
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |