Вверх ↑
Этот топик читают: Гость
Ответов: 497
Рейтинг: 16
#1531: 2017-08-09 17:29:59 ЛС | профиль | цитата
как заставить работать/заменить? фрагменты? состоят полностью с ошибок а из за вкладок приложение падает

Add(Activity,4306601,315,98)
{
link(onEventData,1247092:doText,[(359,104)(359,66)(240,66)(240,27)])
}
BEGIN_SDK
Add(ActivityEditMultiEx,15083539,21,21)
{
WorkCount=#8:doCreate|6:doText|
EventCount=#11nEventData|
link(doText,10903959:doText,[(115,34)(115,48)])
}
Add(ChildActivity,1755342,35,105)
{
Left=35
Top=105
}
Add(EditText,10903959,210,42)
{
Left=210
Top=40
}
Add(Button,1516955,140,91)
{
Left=215
Top=105
Point(onClick)
link(onClick,13281495:doData,[])
}
Add(DoData,13281495,210,91)
{
link(onEventData,3749043:doEvent1,[])
link(Data,10903959:Value,[])
}
Add(Hub,3749043,315,91)
{
link(onEvent1,15083539nEventData,[(452,97)(452,27)])
link(onEvent2,1755342:doClose,[(341,104)(341,108)(23,108)(23,111)])
}
END_SDK
Add(Button,8789746,126,98)
{
Left=5
Top=40
Point(onClick)
link(onClick,340979:doEvent1,[])
}
Add(EditText,1247092,252,21)
{
Top=5
}
Add(DoData,9190752,224,112)
{
link(onEventData,4306601:doText,[(286,118)(286,111)])
link(Data,1247092:Value,[(230,82)(258,82)])
}
Add(Hub,340979,175,98)
{
link(onEvent1,4306601:doCreate,[])
link(onEvent2,9190752:doData,[(196,111)(196,118)])
}

карма: 1
        ]  
0
Ответов: 1328
Рейтинг: 69
#1532: 2017-08-25 17:13:05 ЛС | профиль | цитата
RAWY_EX, криво код выложил
карма: 2

0
Ответов: 497
Рейтинг: 16
#1533: 2017-08-25 18:58:55 ЛС | профиль | цитата
1


Add(Button,8789746,490,182)
{
Left=5
Top=40
Point(onClick)
link(onClick,340979:doEvent1,[])
}
Add(EditText,1247092,616,105)
{
Top=5
}
Add(DoData,9190752,616,189)
{
link(onEventData,7679738:doText,[])
link(Data,1247092:Value,[])
}
Add(Hub,340979,539,182)
{
link(onEvent1,7679738:doCreate,[])
link(onEvent2,9190752:doData,[])
}
Add(Activity,7679738,679,182)
{
link(onEventData,1247092:doText,[(723,188)(723,150)(604,150)(604,111)])
}
BEGIN_SDK
Add(ActivityEditMultiEx,12140167,21,21)
{
WorkCount=#8:doCreate|6:doText|
EventCount=#11:onEventData|
link(doText,15798771:doText,[(147,34)(147,55)])
}
Add(ChildActivity,506719,35,105)
{
Left=35
Top=105
}
Add(EditText,15798771,273,49)
{
Top=5
}
Add(Button,11892116,203,147)
{
Top=40
Point(onClick)
link(onClick,10305423:doData,[])
}
Add(DoData,10305423,273,147)
{
link(onEventData,12140167:onEventData,[(483,153)(483,27)])
link(Data,15798771:Value,[])
}
END_SDK

карма: 1
        ]  
0
Ответов: 88
Рейтинг: 20
#1534: 2017-08-29 20:24:11 ЛС | профиль | цитата
RAWY_EX,
карма: 0
Ильичёв IKA
0
Ответов: 1328
Рейтинг: 69
#1535: 2017-08-30 18:01:15 ЛС | профиль | цитата
RAWY_EX, попробуй через хранилище SharedPreferencesRW
карма: 2

0
Ответов: 322
Рейтинг: 8
#1536: 2017-10-25 08:44:31 ЛС | профиль | цитата
Пытаюсь написать программу отправки данных (текстовый формат) с андроида на почту. Есть только чтение писем.
Как это реализовать?

Add(MainActivity,2953706,91,28)
{
Width=400
Height=600
}
Add(Button,2574402,210,399)
{
Left=215
Top=530
Width=145
Height=32
Caption="Просмотр отчёта"
Point(onClick)
link(onClick,13779678:doCreate,[])
}
Add(DatePicker,16123132,588,21)
{
Left=155
Top=30
Width=233
Height=99
link(onChange,795954:doFormat,[(631,27)(631,59)(576,59)(576,76)])
}
Add(Spinner,2704042,476,63)
{
Left=105
Top=5
Width=285
Height=21
Items=#30:Площадка факельных сепараторов|15:Инженерные сети|13:Ресивер азота|3:КТП|7:Генплан|42:Совмещённая факельная установка. Резервная|
link(onItemSelected,1990196:doValue,[])
}
Add(ListView,7139569,413,63)
{
Left=5
Top=155
Width=385
Height=67
}
Add(TextView,7299132,413,21)
{
Left=100
Top=135
Width=190
Caption="Описание проделанной работы"
Hint="Введите описание сделанной работы."
}
Add(Button,6185799,77,287)
{
Left=25
Top=530
Width=145
Height=32
Caption="Сохранить"
Point(onClick)
link(onClick,13417389:doFormat,[])
}
Add(Button,12317539,28,28)
{
Left=5
Top=65
Width=145
Height=32
Caption="Выход"
Point(onClick)
link(onClick,2953706:doClose,[])
}
Add(EditText,10606688,301,63)
{
Left=85
Top=225
Width=90
}
Add(TextView,10848152,301,21)
{
Left=5
Top=230
Width=75
Caption="Количество:"
}
Add(EditText,7475968,357,63)
{
Left=300
Top=225
Width=90
}
Add(TextView,14334124,357,21)
{
Left=205
Top=230
Width=90
Caption="Ед.измерения:"
}
Add(TextView,1844285,679,28)
{
Left=75
Top=260
Width=225
Caption="Ответственный за проведение работ"
Hint="Введите описание сделанной работы."
}
Add(EditText,6879765,679,70)
{
Left=5
Top=280
Width=385
}
Add(TextView,1565539,728,28)
{
Left=155
Top=315
Width=75
Caption="Должность"
Hint="Введите описание сделанной работы."
}
Add(Spinner,8823506,728,70)
{
Left=5
Top=335
Width=385
Height=21
Items=#10:Мастер СМР|17:Начальник участка|11:Инженер ПТО|9:Геодезист|6:Прораб|
link(onItemSelected,11283379:doValue,[])
}
Add(TextView,13561649,252,21)
{
Left=150
Top=365
Width=80
Caption="Примечание"
Hint="Введите описание сделанной работы."
}
Add(ListView,3529182,252,63)
{
Left=5
Top=395
Width=385
Height=127
}
Add(TextView,15261538,476,21)
{
Left=10
Top=5
Width=90
Caption="Выбор объекта"
}
Add(FormatStr,13417389,210,287)
{
DataCount=8
link(onResult,9892618:doEvent1,[])
link(Str1,6874645:Var,[])
link(Str2,8114301:Var,[])
link(Str3,3989220:Var,[])
link(Str4,14563750:Var,[])
link(Str5,6900166:Var,[])
link(Str6,9657500:Var,[])
link(Str7,12077407:Var,[])
link(Str8,16088816:Var,[])
}
Add(Memory,1990196,518,63)
{
}
Add(LineBreak,3714427,518,105)
{
Type=1
link(Data,1990196:Value,[])
Primary=[6874645,-308,56]
}
Add(Memory,14698209,630,70)
{
}
Add(FormatStr,795954,588,70)
{
DataCount=3
Mask="%1.%2.%3г."
link(onResult,14698209:doValue,[])
link(Str1,16123132:Day,[])
link(Str2,16123132:Month,[])
link(Str3,16123132:Year,[])
}
Add(LineBreak,9947329,630,112)
{
Type=1
link(Data,14698209:Value,[])
Primary=[8114301,-413,70]
}
Add(LineBreak,8281861,413,105)
{
Type=1
link(Data,7139569:CurrentList,[])
Primary=[3989220,-189,98]
}
Add(LineBreak,8397772,301,105)
{
Type=1
link(Data,10606688:Value,[])
Primary=[14563750,-70,119]
}
Add(LineBreak,12383985,357,105)
{
Type=1
link(Data,7475968:Value,[])
Primary=[6900166,-119,140]
}
Add(LineBreak,10489601,679,112)
{
Type=1
link(Data,6879765:Value,[])
Primary=[9657500,-434,49]
}
Add(Memory,11283379,777,70)
{
}
Add(LineBreak,3780849,777,112)
{
Type=1
link(Data,11283379:Value,[])
Primary=[12077407,-525,70]
}
Add(LineBreak,10828503,252,105)
{
Type=1
link(Data,3529182:CurrentList,[])
Primary=[16088816,7,98]
}
Add(StringList,5859936,336,294)
{
Point(doSave)
Point(FilePath)
link(FilePath,14958838:Result,[])
}
Add(Environment,5533442,315,196)
{
Point(Data)
}
Add(FormatStr,14958838,343,238)
{
DataCount=1
Mask="%1\\arhiv.txt"
Point(Result)
link(Str1,5533442:Data,[])
}
Add(Hub,9892618,294,287)
{
OutCount=3
link(onEvent1,14958838:doFormat,[(326,293)(326,244)])
link(onEvent2,5859936:doAdd,[])
link(onEvent3,5859936:doSave,[(322,307)(322,321)])
}
Add(Activity,13779678,322,399)
{
}
BEGIN_SDK
Add(ActivityEditMultiEx,14638149,21,21)
{
link(doCreate,291387:doEvent1,[(42,27)(42,160)])
}
Add(ChildActivity,15266947,252,28)
{
Left=35
Top=105
Height=394
}
Add(FileReadWrite,394328,133,161)
{
link(onRead,10730558:doAdd,[])
link(FileName,15332751:Result,[])
}
Add(ListView,10730558,189,161)
{
Left=5
Top=5
Width=485
Height=322
}
Add(Environment,14882384,112,42)
{
Point(Data)
}
Add(FormatStr,15332751,140,84)
{
DataCount=1
Mask="%1\\arhiv.txt"
Point(Result)
link(Str1,14882384:Data,[])
}
Add(Hub,291387,63,154)
{
link(onEvent1,15332751:doFormat,[(109,160)(109,90)])
link(onEvent2,394328:doOpen,[])
}
Add(Button,12407773,189,28)
{
Left=5
Top=330
Width=145
Height=32
Caption="Отмена"
Point(onClick)
link(onClick,15266947:doClose,[])
}
Add(Button,7014236,98,245)
{
Left=340
Top=330
Width=145
Height=32
Caption="Отправить отчёт"
Point(onClick)
}
Add(InfoTip,13144777,161,224)
{
Info=#46:Здесь нужно отправить на почту текстовый файл.|
Width=92
Height=74
}
END_SDK
карма: 0

0
Ответов: 4629
Рейтинг: 749
#1537: 2017-10-25 10:53:13 ЛС | профиль | цитата
Компонента для отправки почты пока нет.
карма: 26

0
Ответов: 322
Рейтинг: 8
#1538: 2017-10-25 11:56:29 ЛС | профиль | цитата
У меня есть компонент для отправки (не для андроид), мне его дал участник форума.

Add(VBJScript,10443074,35,427)
{
WorkPoints=#6:doWork|
EventPoints=#6:onSend|
VarPoints=#6:vError|5:vDesc|
DataPoints=#10:SmtpServer|14:SmtpServerPort|12:SendUserName|12:SendPassword|4:From|2:To|7:Subject|8:Textbody|
Script=#10:Dim strErr|10:Dim objMes|0:|23:Sub doWork(Data, Index)|20:On Error Resume Next|79:'------------------------------------------------------------------------------|40:Set objMes = CreateObject("CDO.Message")|140:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sys.SmtpServer 'Почтовый сервер или IP адрес|137:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sys.SmtpServerPort 'Порт сервера SMTP|21:' "smtp.mail.ru" 465 |23:' "smtp.yandex.ru" 465|19:' "smtp.qip.ru" 25|22:' "smtp.gmail.com" 465|178:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '0 – без аутентификации,1 - базовая аутентификация,2 – аутентификация NTLM|115:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1 каталог Pickup |119:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' использовать SSL|128:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' время тайм-аута|132:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sys.SendUserName 'Имя пользователя|122:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sys.SendPassword 'пароль|35:objMes.Configuration.Fields.Update'|0:|51:objMes.BodyPart.Charset ="windows-1251" ' кодировка|35:'objMes.BodyPart.CharSet = "utf-8" |38:objMes.From = sys.From 'От кого письмо|32:objMes.To = sys.To ' Кому письмо|57:objMes.Subject = sys.Subject 'Тема письма + текущая дата|55:objMes.Textbody = sys.Textbody 'Что будет в теле письма|0:|30:'objMes.AddAttachment "файл 1"|34:'... перечень прикрепленных файлов|30:'objMes.AddAttachment "файл N"|80:'-------------------------------------------------------------------------------|11:objMes.Send|0:|25: If Err.Number = 0 then |15: sys.onSend 0|6: else|15: sys.onSend 1|8: End If|0:|20:Set objMes = Nothing|7:End Sub|0:|28:Function GetVar(Data, Index)|19: Select Case Index|34: Case "vError" ' номер |25: strErr = Err.Number|33: GetVar = strErr |28: Case "vDesc" ' описание|44: strErr = Err.Description |21: GetVar = strErr|12: End Select|12:End Function|
UseName=0
PColor(onSend,-1)
}
возможно как то можно перенести его в среду андроид.
карма: 0

0
Ответов: 4629
Рейтинг: 749
#1539: 2017-10-25 12:35:15 ЛС | профиль | цитата
В Android есть свой код отправки писем. Просто нет желающих писать компонент.
карма: 26

0
Ответов: 1821
Рейтинг: 168
#1540: 2017-10-25 17:34:13 ЛС | профиль | цитата
Dad2016, а обязательно отправлять письмо именно с приложения? Просто обычно в Андроиде это делают открытием формы отправки письма установленного почтового клиента

Редактировалось 1 раз(а), последний 2017-10-25 17:34:41
карма: 5

0
Ответов: 322
Рейтинг: 8
#1541: 2017-10-26 06:44:42 ЛС | профиль | цитата
sаmakacd писал(а):
установленного почтового клиента

Вообще можно и в Excel сделать форму потом отправить через обычный почтовик (я в курсе)
Мне нужно упростить отправку отчёта для мастеров, одной программой со смартфона.
карма: 0

0
Ответов: 195
Рейтинг: 1
#1542: 2017-10-26 09:55:56 ЛС | профиль | цитата
поделитесь пожалуйста компонентами от GreM а то не могу скачать их. ссылки похоже не работают
карма: 0

0
Ответов: 1821
Рейтинг: 168
#1543: 2017-10-26 10:52:09 ЛС | профиль | цитата
Есть решение для отправки писем на SMTP-сервер, но там используется библиотека javax.mail. Если она у нас сейчас используется в пакете, то смогу добавить элемент на выходных (пока что под рукой нет Windows, по этому сейчас не могу посмотреть, используется ли нужная библиотека)
карма: 5

0
Ответов: 3
Рейтинг: 0
#1544: 2017-10-29 19:24:41 ЛС | профиль | цитата
Здравствуйте. Сделал три программы под Android, но при установке одна замещает другую (делает обновления). Как этого избежать?
карма: 0

0
Ответов: 163
Рейтинг: 33
#1545: 2017-10-30 07:25:43 ЛС | профиль | цитата
kolya621, у каждого приложения должно быть разное имя пакета (свойство "Package" у MainActivity).
карма: 3

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)