|
Основной форум Сюда все проблемы связанные с программированием. |
10.01.2006, 20:02
|
#1
|
Оператор ЭВМ
Регистрация: 10.01.2006
Сообщений: 28
Написано 0 полезных сообщений (для 0 пользователей)
|
Только скачал 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, но ничего не получается.
Помогите..
бэк-слэш ставится перед закрывающи тегом
|
(Offline)
|
|
10.01.2006, 22:56
|
#2
|
Unity/C# кодер
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,568
Написано 3,006 полезных сообщений (для 5,323 пользователей)
|
попробуй замени строчку
if not smsStartSend('sms://' + nomer, s) then halt;
на
if not smsStartSend('sms://+' + nomer, s) then halt;
|
(Offline)
|
|
10.01.2006, 23:04
|
#3
|
Unity/C# кодер
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,568
Написано 3,006 полезных сообщений (для 5,323 пользователей)
|
или сделай переменную nomer типа string и вводи номер вместе с плюсом
|
(Offline)
|
|
12.01.2006, 19:40
|
#4
|
Оператор ЭВМ
Регистрация: 10.01.2006
Сообщений: 28
Написано 0 полезных сообщений (для 0 пользователей)
|
Неработает....
|
(Offline)
|
|
13.01.2006, 01:20
|
#5
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
У меня работает текст с поправкой:
CODE
if not smsStartSend('sms://+' + nomer, s) then halt;
|
Номер в международном формате.
|
(Offline)
|
|
13.01.2006, 14:29
|
#6
|
Оператор ЭВМ
Регистрация: 10.01.2006
Сообщений: 28
Написано 0 полезных сообщений (для 0 пользователей)
|
Неее, я набирал номер через "+7".... не работает....
|
(Offline)
|
|
13.01.2006, 21:52
|
#7
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
Еще ньюанс. У меня перед тем как отправить было спрошено. Разрешить отправку или нет. Похоже у тебя у программы нет прав на работу с sms.
|
(Offline)
|
|
13.01.2006, 23:50
|
#8
|
Оператор ЭВМ
Регистрация: 10.01.2006
Сообщений: 28
Написано 0 полезных сообщений (для 0 пользователей)
|
У тебя какой телефон?
|
(Offline)
|
|
14.01.2006, 19:29
|
#10
|
Unity/C# кодер
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,568
Написано 3,006 полезных сообщений (для 5,323 пользователей)
|
Originally posted by Samhein@Jan 13 2006, 02:29 PM
Неее, я набирал номер через "+7".... не работает....
|
а берешь значение типа integer, сам подумай как там появится "+"?
и вообще с первым плюсом может извлекать вместо номера ноль
|
(Offline)
|
|
14.01.2006, 21:26
|
#11
|
Оператор ЭВМ
Регистрация: 10.01.2006
Сообщений: 28
Написано 0 полезных сообщений (для 0 пользователей)
|
Это было когда я заменил тип на string
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
Не вижу ошибку |
Smarik |
Основной форум |
4 |
21.08.2008 15:06 |
Помогите найти ошибку! |
archerix |
Основной форум |
3 |
08.09.2006 02:51 |
Часовой пояс GMT +4, время: 22:18.
|