Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 19.02.2010, 07:35   #1
Mysterious
AnyKey`щик
 
Регистрация: 19.02.2010
Сообщений: 1
Написано 0 полезных сообщений
(для 0 пользователей)
Смущение MP реализация отправки смс (многоуровневая)

В общем начал разбираться в данноя языке.

Собственно никак не получается сделать отправку смс несколько раз.
Ниже реализация отправки смс на 1 номер, нужно чтобы отправляло на 3-4 разных номера То есть если на 1ый номер отправить не удалось, то идет попытка отправить на 2ой, если на 2ой не удалось то на 3й и так далее до успешной отправки смс. Хотя нужен еще вариант что независимо от того отправлено или нет он по очереди отправляет смс по списку номеров.

program testsms;
begin
if not SmsStartSend('sms://+nomer''pref')
then Halt;
while 
SmsIsSending do
Delay(100);
if 
not SmsWasSuccessfull
then Halt
;
end
на 1 номер я написал, а вот с большим количеством возникают проблемы в синтаксисе и тп. долго долбился и ничего не вышло
(Offline)
 
Ответить с цитированием
Старый 19.02.2010, 16:45   #2
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: MP реализация отправки смс (многоуровневая)

Program P1;
var 
sendedboolean;
numbers: array [0..3of string;
iinteger;

begin

numbers
[0]:='123'numbers[1]:='777';
numbers[2]:='222'numbers[3]:='666';
sended:=false;

for 
i:=0 to 3 do
begin
    
if SmsStartSend('sms://+' numbers[i], 'Increase your penis! Tel.: 911'then
    begin
        
while SmsIsSending do Delay(100);
        if 
SmsWasSuccessfull then sended:=true;
    
end;
    if 
sended then break;
end;

if 
sended then DrawText('Готово!'55);
else 
DrawText('Не отправлено'55);

RepaintDelay(15000);

end
(Offline)
 
Ответить с цитированием
Эти 3 пользователя(ей) сказали Спасибо odd за это полезное сообщение:
im_zorg (13.05.2010), Mysterious (19.02.2010), sk129 (03.10.2010)
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 18:45.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com