Сообщение от Nikopal
(Сообщение 145276)
посмотрите пожалуйста код:
PHP код:
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.
пробовал найти ошибку методом коментирования, и увидил что програма запускаетса если компилировать без кода отправки смс
Помогите пожалуста исправить проблему
|
