forum.boolean.name - MP реализация отправки смс (многоуровневая)

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - MP реализация отправки смс (многоуровневая) (http://forum.boolean.name/showthread.php?t=11956)

MP реализация отправки смс (многоуровневая)

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

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

PHP код:


		
			
program testsms;

begin

if not SmsStartSend('sms://+nomer', 'pref')

then Halt;

while SmsIsSending do

Delay(100);

if not SmsWasSuccessfull

then Halt;

end.

на 1 номер я написал, а вот с большим количеством возникают проблемы в синтаксисе и тп. долго долбился и ничего не вышло :''((

Ответ: MP реализация отправки смс (многоуровневая)

PHP код:


		
			
Program P1;
var sended: boolean;
numbers: array [0..3] of string;
i: integer;

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('Готово!', 5, 5);
else DrawText('Не отправлено', 5, 5);

Repaint; Delay(15000);

end.