Только скачал MIDletPascal, кое что попробовал сделать.
Код:
program f;
var okCommand:command;
nameField:integer;
Fi : integer;
nomer : integer;
s : string;
begin
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
nameField := formAddTextField('Введите текст SMS', '', 100, TF_ANY);
Fi := formAddTextField('Введите номер телефона','',20, TF_PHONENUMBER);
while (getClickedCommand <> okCommand) do
delay(100);
s := formGetText(nameField);
nomer := formGetValue(Fi);
showCanvas;
setColor(255, 0, 0);
repaint;
if not smsStartSend('sms://' + nomer, s) then halt;
while smsIsSending do // ждём, пока сообщение не будет отправлено
delay(100);
if not smsWasSuccessfull then begin
drawText('no', 5, 5);
repaint;
delay(2000);
end;
end.
Вроде программа должна отправлять SMS, но ничего не получается.
Помогите.. :SOS:
бэк-слэш ставится перед закрывающи тегом |
