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

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

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

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 09.01.2011, 20:28   #1
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
отправка смс, проблема с указанием номера

всем привет,вот пытаюсь написать прогу типа как стандартная для отправки смс с возможностью указать номер и текс смс
program NewProject00;
var 
okCommand:command; 
sms:string;
number:string;
begin
showTextBox('Кому','',12, TF_PHONENUMBER );
  okCommand := createCommand('OK', CM_OK, 1); 
  addCommand(okCommand); 
  repaint;
  while (getClickedCommand <> okCommand) do 
 delay(100); 
 number := getTextBoxString;
 showTextBox('SMS','', 300, TF_ANY);
 addCommand(okCommand);
 while (getClickedCommand <> okCommand) do 
 delay(100); 
 sms := getTextBoxString;
repaint;

if not smsStartSend('sms://number', sms) then halt; 
delay(2000);   
    while smsIsSending do 
      delay(10000); 
 if not smsWasSuccessfull then  
    end.
вот что у меня получилось,но при этом смс не отправляется,чтоб работало мне приходиться указывать номер еще при разрабтке
if not smsStartSend('sms://89281111111', sms) then halt;
тогда все работает,но мне нужно чтоб пользователь сам мог указывать кому отправлять,я в этом новичок и это мой первый проект в MidletPascal,подскажите как надо сделать правильно?
(Offline)
 
Ответить с цитированием
Старый 09.01.2011, 21:06   #2
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: отправка смс, проблема с указанием номера

А теперь скажи честно: зачем это тебе надо?
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Старый 09.01.2011, 21:07   #3
baton4ik
Дэвелопер
 
Аватар для baton4ik
 
Регистрация: 21.11.2009
Адрес: Киев
Сообщений: 1,699
Написано 657 полезных сообщений
(для 1,962 пользователей)
Ответ: отправка смс, проблема с указанием номера

Функция принимает строку как аргумент. Ты задал строку: 'sms://number'
Тут "number" - не название переменной, а просто строка. Сделай так:
'sms://'+number

Правда не уверен, с паскалем давно не общался

Igor, не перегибай палку. Или все, кому нужна отправка смс, злодеи? Я в скором времени буду делать одному человеку приложение - телефонный справочник, там нужна отправка смс.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
betirsolt (09.01.2011)
Старый 09.01.2011, 21:48   #4
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

Сообщение от Igor Посмотреть сообщение
А теперь скажи честно: зачем это тебе надо?
просто чтоб уметь,это моя первая прога для смарта
(Offline)
 
Ответить с цитированием
Старый 09.01.2011, 21:54   #5
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

Сообщение от baton4ik Посмотреть сообщение
Функция принимает строку как аргумент. Ты задал строку: 'sms://number'
Тут "number" - не название переменной, а просто строка. Сделай так:
'sms://'+number
.
большое спасибо все заработало,как же я сам не догадался)))
(Offline)
 
Ответить с цитированием
Старый 10.01.2011, 03:49   #6
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

ребята а как мне все это красиво оформить?ну что открлась прога и сразу как в стандартном отправителе смс было все.т.е строка для ввода номера и внизу поле для ввода текста смс,а то у меня сначала появляется поле для ввода номера на весь экран а мне нужна просто строка,ну думаю понятно че я хочу сделать, и еще у меня не видны заголовки из процедур
showTextBox('Кому','',12, TF_PHONENUMBER );
и
showTextBox('SMS','', 300, TF_ANY);
и в поле Кому,не смотря на TF_PHONENUMBER можно вводить все что угодно
(Offline)
 
Ответить с цитированием
Старый 10.01.2011, 16:22   #7
FighteR
Оператор ЭВМ
 
Аватар для FighteR
 
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

поставь параметр не фоненабер а параметр нумерик.
(Offline)
 
Ответить с цитированием
Старый 10.01.2011, 19:48   #8
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

Сообщение от FighteR Посмотреть сообщение
поставь параметр не фоненабер а параметр нумерик.
тогда нельзя выбирать номер из контактов,и поле все равно на весь экран
(Offline)
 
Ответить с цитированием
Старый 10.01.2011, 23:42   #9
12121
Нуждающийся
 
Регистрация: 26.12.2008
Сообщений: 57
Написано 22 полезных сообщений
(для 28 пользователей)
Ответ: отправка смс, проблема с указанием номера

showTextBox - конечно на весь экран. Надо - FormAddTextField.
Очень трудно пролистать весь раздел "формы"
(Offline)
 
Ответить с цитированием
Старый 11.01.2011, 20:46   #10
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

вот переделал
program NewProject00;
var 
okCommand:command; 
sms:string;
number:integer;
begin
showform;

  number:=FormAddTextField('Кому','',12, TF_PHONENUMBER );
  okCommand := createCommand('OK', CM_OK, 1); 
  addCommand(okCommand); 
  
 repaint;
  while (getClickedCommand <> okCommand) do 
 delay(100); 

 
 showTextBox('SMS','', 300, TF_ANY);
 addCommand(okCommand);
 while (getClickedCommand <> okCommand) do 
 delay(100); 
 sms := getTextBoxString;
repaint;

if not smsStartSend('sms://'+number, sms) then halt; 
drawText('отправка смс', 0, 0); 
 delay(2000);   
    while smsIsSending do // ждём, пока сообщение не будет отправлено 
      delay(3000); 

    if not smsWasSuccessfull then halt;  // проверяем, успешно ли было отправлено сообщение 
  
end.
но он теперь не отправляет смс,я нажимаю разрешить а он не отправляет
(Offline)
 
Ответить с цитированием
Старый 13.01.2011, 19:43   #11
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

ну кто нибудь скажет мне в чем дело?
(Offline)
 
Ответить с цитированием
Старый 14.01.2011, 01:15   #12
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: отправка смс, проблема с указанием номера

Проблема в том, что у тебя нет поля для ввода текста SMS. В итоге телефон пытается передать пустую строку, что и приводит к нулевому результату.
(Offline)
 
Ответить с цитированием
Старый 14.01.2011, 19:35   #13
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

Сообщение от odd Посмотреть сообщение
Проблема в том, что у тебя нет поля для ввода текста SMS. В итоге телефон пытается передать пустую строку, что и приводит к нулевому результату.
как нет? а это что?
showTextBox('SMS','', 300, TF_ANY);
 addCommand(okCommand);
 while (getClickedCommand <> okCommand) do 
 delay(100); 
 sms := getTextBoxString;
repaint;

if not smsStartSend('sms://'+number, sms) then halt;
он отображает поле для ввода смс и я ввожу его нажимаю ОК он запрашивает разрешение на отправку я разрешаю но он не отправляет
(Offline)
 
Ответить с цитированием
Старый 14.01.2011, 19:53   #14
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: отправка смс, проблема с указанием номера

number:=FormAddTextField('Кому','',12, TF_PHONENUMBER );
только добавляет текстовое поле на форму, возвращая в number его идентификатор, а не введенное значение. Для получения значения нужно использовать примерно такой код:
var
 
nID:integer;
 
number:String;
 
ok:Command;

begin
 ShowForm
;
 
nID:=FormAddTextField('Кому','',12TF_PHONENUMBER );
 
ok:=CreateCommand('OK',CM_OK,1);
 
AddCommand(ok);
 
repeat
  Delay
(100);
 
until GetClickedCommand=ok;
 
number:=FormGetText(nID); 
Только после этого при нажатии OK получим введенный номер в переменной number.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
betirsolt (15.01.2011)
Старый 15.01.2011, 02:46   #15
betirsolt
AnyKey`щик
 
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: отправка смс, проблема с указанием номера

спасибо помогло
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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