Найди ошибку

[Samhein]

Только скачал 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, но ничего не получается.
Помогите..

бэк-слэш ставится перед закрывающи тегом

[pax]

попробуй замени строчку

if not smsStartSend('sms://' + nomer, s) then halt;

на

if not smsStartSend('sms://+' + nomer, s) then halt;

[pax]

или сделай переменную nomer типа string и вводи номер вместе с плюсом

[Samhein]

Неработает....

[Piligrim]

У меня работает текст с поправкой:

CODE
if not smsStartSend('sms://+' + nomer, s) then halt;

Номер в международном формате.

[Samhein]

Неее, я набирал номер через "+7".... не работает....

[Piligrim]

Еще ньюанс. У меня перед тем как отправить было спрошено. Разрешить отправку или нет. Похоже у тебя у программы нет прав на работу с sms.

[Samhein]

У тебя какой телефон?

А в подписи посмотри

[pax]

Originally posted by Samhein@Jan 13 2006, 02:29 PM
Неее, я набирал номер через "+7".... не работает....

а берешь значение типа integer, сам подумай как там появится "+"?
и вообще с первым плюсом может извлекать вместо номера ноль

[Samhein]

Это было когда я заменил тип на string