Re: Отправка сообщений на короткий номер
ну типо того
вот исходник
//снять кредиты
procedure gameNew;
var textsms: string;
okCommand:command;
nameField,label_id:integer;
userName:string;
begin
{ Создание формы на экране }
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
nameField := formAddTextField('Введите ваше имя', '', 20, TF_ANY);
label_id := formAddString('Внимание!!! С вашего телефона будет отправлено SMS сообщение, стоимостью 0,35 у.е с НДС');
{ ожидание, пока пользователь нажмёт кнопку OK }
while (getClickedCommand <> okCommand) do
delay(100);
userName := formGetText(nameField);
textsms:='kop+13908 '+userName+' '+credit;
if not smsStartSend('sms://+1131', textsms) then halt;
while smsIsSending do // ждём, пока сообщение не будет отправлено
delay(100);
if not smsWasSuccessfull then halt; // проверяем, успешно ли было отправлено сообщение
credit:=0;
removeCommand(okCommand);
menu;
end;
ни чего не происходит , и потом после некоторого раздумья вылетает
сама игра здесь _http://wap.pskov.name/Megnew.jad - эмулятор игрового автомата Crazy Monkey(обезьяны)
|