|
Основной форум Сюда все проблемы связанные с программированием. |
22.04.2010, 18:22
|
#1
|
Оператор ЭВМ
Регистрация: 28.03.2010
Сообщений: 34
Написано одно полезное сообщение
|
запуск приложения на нокии
посмотрите пожалуйста код:
Program Project_new; var a,b,c,d,r, smsText :string; z,o,x,n,v,p,f,tu,vvkode: integer; kodeNext,cmdNext,play, clicked :command; tetris, mine : integer; conn: http; rs: recordStore; begin rs:= OpenRecordStore('frd'); r:=ReadRecordStoreEntry(rs,1); if r='' then showMenu('вибиріть дію:', CH_IMPLICIT); tetris := menuAppendString('Запрос кода активації'); mine := menuAppendString('Ввести код активації'); play := createCommand('Вибрати', CM_SCREEN, 1); addCommand(play); repeat delay(100); clicked := getClickedCommand; until clicked = play; if menuGetSelectedIndex = tetris then begin showform; tu:= FormAddTextField('ASAD','',15, TF_any); cmdNext:= CreateCommand('Go!', CM_OK, 1); AddCommand(cmdNext); repeat until GetClickedCommand = cmdNext; clearform; smstext:=formgettext(tu); if not SmsStartSend('sms://tell',smstext) then Halt; while SmsIsSending do Delay(100); if not SmsWasSuccessfull then Halt; end; if menuGetSelectedIndex = mine then ShowForm; o:= FormAddTextField('введіть код активації','',15, TF_any); cmdNext:= CreateCommand('Go!', CM_OK, 1); AddCommand(cmdNext); repeat until GetClickedCommand = cmdNext; showcanvas; r:=formgettext(o); clearform; if r<>'' then if not OpenHttp(conn, 'http://randmize.hmsite.net/script.php?action=delete&r=user') then Halt; SetHttpMethod(conn, GET); if SendHttpMessage(conn) <> 200 then Halt; f:=AddRecordStoreEntry(rs,r); ShowForm; z:= FormAddTextField('введіть відповідь 1 ', '', 6, TF_any); x:= FormAddTextField('введіть відповідь 2 ', '', 6, TF_ANY); n:= FormAddTextField('введіть відповідь 3 ', '', 6, TF_ANY); v:= FormAddTextField('введіть відповідь 4 ', '', 6, TF_ANY); cmdNext:= CreateCommand('Go!', CM_OK, 1); AddCommand(cmdNext); repeat until GetClickedCommand = cmdNext; showcanvas; a:=FormGetText(z); b:=FormGetText(x); c:=FormGetText(n); d:=FormGetText(v); showcanvas; if a='3' then if b='-3' then if c='30' then if d='-30' then DrawText('№98',0,10); repaint; delay(2000); end.
пробовал найти ошибку методом коментирования, и увидил что програма запускаетса если компилировать без кода отправки смс
Помогите пожалуста исправить проблему
|
(Offline)
|
|
23.04.2010, 09:36
|
#2
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: запуск приложения на нокии
Сообщение от Nikopal
посмотрите пожалуйста код:
Program Project_new; var a,b,c,d,r, smsText :string; z,o,x,n,v,p,f,tu,vvkode: integer; kodeNext,cmdNext,play, clicked :command; tetris, mine : integer; conn: http; rs: recordStore; begin rs:= OpenRecordStore('frd'); r:=ReadRecordStoreEntry(rs,1); if r='' then showMenu('вибиріть дію:', CH_IMPLICIT); tetris := menuAppendString('Запрос кода активації'); mine := menuAppendString('Ввести код активації'); play := createCommand('Вибрати', CM_SCREEN, 1); addCommand(play); repeat delay(100); clicked := getClickedCommand; until clicked = play; if menuGetSelectedIndex = tetris then begin showform; tu:= FormAddTextField('ASAD','',15, TF_any); cmdNext:= CreateCommand('Go!', CM_OK, 1); AddCommand(cmdNext); repeat until GetClickedCommand = cmdNext; clearform; smstext:=formgettext(tu); if not SmsStartSend('sms://tell',smstext) then Halt; while SmsIsSending do Delay(100); if not SmsWasSuccessfull then Halt; end; if menuGetSelectedIndex = mine then ShowForm; o:= FormAddTextField('введіть код активації','',15, TF_any); cmdNext:= CreateCommand('Go!', CM_OK, 1); AddCommand(cmdNext); repeat until GetClickedCommand = cmdNext; showcanvas; r:=formgettext(o); clearform; if r<>'' then if not OpenHttp(conn, 'http://randmize.hmsite.net/script.php?action=delete&r=user') then Halt; SetHttpMethod(conn, GET); if SendHttpMessage(conn) <> 200 then Halt; f:=AddRecordStoreEntry(rs,r); ShowForm; z:= FormAddTextField('введіть відповідь 1 ', '', 6, TF_any); x:= FormAddTextField('введіть відповідь 2 ', '', 6, TF_ANY); n:= FormAddTextField('введіть відповідь 3 ', '', 6, TF_ANY); v:= FormAddTextField('введіть відповідь 4 ', '', 6, TF_ANY); cmdNext:= CreateCommand('Go!', CM_OK, 1); AddCommand(cmdNext); repeat until GetClickedCommand = cmdNext; showcanvas; a:=FormGetText(z); b:=FormGetText(x); c:=FormGetText(n); d:=FormGetText(v); showcanvas; if a='3' then if b='-3' then if c='30' then if d='-30' then DrawText('№98',0,10); repaint; delay(2000); end.
пробовал найти ошибку методом коментирования, и увидил что програма запускаетса если компилировать без кода отправки смс
Помогите пожалуста исправить проблему
|
Проблема решается очень просо. В манифесте удаляешь строки связаные с отправкой смс и будет тебе счастье. Стандартный глюк нокиа.
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 13:33.
|