 |
| Основной форум Сюда все проблемы связанные с программированием. |
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, время: 18:48.
|
