Имя: Пароль:
1C
1С v8
загрузка изображений на мобильной платформе?
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