|
Основной форум Сюда все проблемы связанные с программированием. |
09.01.2011, 20:28
|
#1
|
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
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
А теперь скажи честно: зачем это тебе надо?
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
09.01.2011, 21:07
|
#3
|
Дэвелопер
Регистрация: 21.11.2009
Адрес: Афула
Сообщений: 1,700
Написано 658 полезных сообщений (для 1,963 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
Функция принимает строку как аргумент. Ты задал строку: 'sms://number'
Тут "number" - не название переменной, а просто строка. Сделай так:
'sms://'+number
Правда не уверен, с паскалем давно не общался
Igor, не перегибай палку. Или все, кому нужна отправка смс, злодеи? Я в скором времени буду делать одному человеку приложение - телефонный справочник, там нужна отправка смс.
__________________
kali surgeon
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
09.01.2011, 21:48
|
#4
|
AnyKey`щик
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
Сообщение от Igor
А теперь скажи честно: зачем это тебе надо?
|
просто чтоб уметь,это моя первая прога для смарта
|
(Offline)
|
|
09.01.2011, 21:54
|
#5
|
AnyKey`щик
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
Сообщение от baton4ik
Функция принимает строку как аргумент. Ты задал строку: 'sms://number'
Тут "number" - не название переменной, а просто строка. Сделай так:
'sms://'+number
.
|
большое спасибо все заработало,как же я сам не догадался)))
|
(Offline)
|
|
10.01.2011, 03:49
|
#6
|
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
|
Оператор ЭВМ
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
поставь параметр не фоненабер а параметр нумерик.
|
(Offline)
|
|
10.01.2011, 19:48
|
#8
|
AnyKey`щик
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
Сообщение от FighteR
поставь параметр не фоненабер а параметр нумерик.
|
тогда нельзя выбирать номер из контактов,и поле все равно на весь экран
|
(Offline)
|
|
10.01.2011, 23:42
|
#9
|
Нуждающийся
Регистрация: 26.12.2008
Сообщений: 57
Написано 22 полезных сообщений (для 28 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
showTextBox - конечно на весь экран. Надо - FormAddTextField.
Очень трудно пролистать весь раздел "формы"
|
(Offline)
|
|
11.01.2011, 20:46
|
#10
|
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
|
AnyKey`щик
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
ну кто нибудь скажет мне в чем дело?
|
(Offline)
|
|
14.01.2011, 01:15
|
#12
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
Проблема в том, что у тебя нет поля для ввода текста SMS. В итоге телефон пытается передать пустую строку, что и приводит к нулевому результату.
|
(Offline)
|
|
14.01.2011, 19:35
|
#13
|
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
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
number:=FormAddTextField('Кому','',12, TF_PHONENUMBER );
только добавляет текстовое поле на форму, возвращая в number его идентификатор, а не введенное значение. Для получения значения нужно использовать примерно такой код:
var nID:integer; number:String; ok:Command; begin ShowForm; nID:=FormAddTextField('Кому','',12, TF_PHONENUMBER ); ok:=CreateCommand('OK',CM_OK,1); AddCommand(ok); repeat Delay(100); until GetClickedCommand=ok; number:=FormGetText(nID);
Только после этого при нажатии OK получим введенный номер в переменной number.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
15.01.2011, 02:46
|
#15
|
AnyKey`щик
Регистрация: 09.01.2011
Сообщений: 9
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: отправка смс, проблема с указанием номера
спасибо помогло
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 11:17.
|