Отправка сообщение на моб тел

@Timxa · Регистрация: 23.09.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте всем,

Очень прошу помочь с одним задачей....
Я отправляю смс сообщение на мобильный телефон.
-----У меня имеется компоненты: Memo1,DbGrid,WebBrowser,edit и button.
--*------Вопрос-------*---
Мне с сотовой компании предоставили url ссылку в виде:
'http://212.6.12.135:1010/s.asp?n='+номер телефона+'&m='+текст сообщения+''
Я шас написал прогу в виде:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
S=('http://212.6.12.135:1010/s.asp?n='+edit1.text+'&m='+memo1.text+'');
WebBrowser1.Navigate(s);
end;
end.

В этом случаи у меня сообщения отправляется на мобильный....
------------ВОПРОС--------------------------
Когда я делаю в цикле у меня не отправляется а отправляет сообщение только на один номер...
Например:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
        while not ADOQuery1.Eof do
        begin
                s:=('http://212.6.12.135:1010/s.asp?n='+adoquery1.field.fiels[1].asstring+'&m='+memo1.text+'');
                WebBrowser1.Navigate(s);
                ADOQuery1.Next;
        end;
end;
end.

По окончанию сообщение в WebBrowser-e выводиться только один MsgId=...........
_____Как сделать чтоб после отправки одной сообщения я взял ответ от webBrowser a, а после как получил ответ чтоб оно шло дальше по циклу.....

Подскажите как быть............

@doni1 · 01.04.2010, 14:26

Сообщение от Timxa

Здравствуйте всем,
Мне с сотовой компании предоставили url ссылку в виде:
'http://212.6.12.135:1010/s.asp?n='+номер телефона+'&m='+текст сообщения+''

Как понять предоставили это в открытом доступе все могут пользоваться?

@Timxa · 01.04.2010, 14:34 **[ТС]**

Нет это не все могут пользоваться ....
Как будет бесплатный я напишу ..

)

@Frederikos · 01.04.2010, 14:35

сделай ожидание загрузки страницы через свойство ReadyState или IsBusy...

C#
1
2
3
4
5
do
{
Application.DoEvents();
}
while (webbrouser1.IsBusy == true)

@doni1 · 01.04.2010, 14:36

Я бы тоже хотел себе добавить отправку смс через какой серв они отправляются?

@Timxa · 01.04.2010, 14:37 **[ТС]**

А как это написать в моем коже, а где написать???

@doni1 · 01.04.2010, 14:45

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

Добавлено через 1 минуту
кинь сюда то что тебе сказали в сот компани

@Frederikos · 01.04.2010, 14:52

пиши после метода navigate.
ну поставь вместо {} begin end, вместо do while , кажется в паскале repeat untill, только условие тогда подкорректируй на "!=true"
и кажется вроде в делфи Application.ProcessMessages что то вроде того, тебе sdk само подскажет

@Timxa · 01.04.2010, 15:45 **[ТС]**

А как в делфи можно обработать ??? я делаю то что вы мне написали но все равно как то у меня выводит ошибку

Добавлено через 28 минут
Frederikos

А как можно реализовать тот ваш код внутри этого???

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
        while not ADOQuery1.Eof do
        begin
                s:=('http://212.6.12.135:1010/s.asp?n='+adoquery1.field.fiels[1].asstring+'&m='+memo1.text+'');
                WebBrowser1.Navigate(s);
                ADOQuery1.Next;
        end;
end;
end.

Очень прошу помочь...

@Frederikos · 01.04.2010, 15:53

на делфе давно не писал...
как то так вроде webbrouser похож на .net

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
while not ADOQuery1.Eof do
begin
s:=('http://212.6.12.135:1010/s.asp?n='+adoquery1.field.fiels[1].asstring+'&m='+memo1.text+'');
WebBrowser1.Navigate(s);
while (WebBrowser1.IsBusy = true)
Application.ProcessMessages;
ADOQuery1.Next;
end;
end;
end.

@Timxa · 01.04.2010, 15:59 **[ТС]**

Frederikos, А у меня IsBusy нету а что еще можно поставить? ?

@Frederikos · 01.04.2010, 16:05

или используй банальный sleep(милисекунды)

Добавлено через 1 минуту
Посмотри какие свойства есть у webbrouser. Может там ReadyState,Complete или что то вроде того...

@Timxa · 01.04.2010, 16:21 **[ТС]**

Frederikos, у меня тут свойство AddressBar, MenuBar, Silent, StatusBar,TabStop,TheaterMode Вот такие есть только свойствы

Добавлено через 26 секунд
а те которые вы написали нету

Добавлено через 8 минут
Frederikos, Еще есть свойство Offline

@Frederikos · 01.04.2010, 16:26

какой то грусный набор свойств.
тут либо добавить sleep(10000) в цикле. либо если по уму - поищи события браузера , должно быть что-то по типу DocumentComplete. Поставь обработчик события - метод в котором переменной присваевается значение true и в цикле сделай так

Delphi
1
2
3
f := false;
while (f=false) do
Application.ProcessMessages;

@Timxa · 02.04.2010, 09:31 **[ТС]**

У меня есть событие OnDocumentComplate, может тут нужно написать и передать, как быть????

Добавлено через 14 часов 29 минут
У меня есть ReadyState, while (WebBrowser1.ReadyState=True) then ???
у меня ReadyState =?

@Frederikos · 02.04.2010, 10:25

должны быть определенные для этого свойства константы...

попробуй так

Delphi
1
2
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;

или так

Delphi
1
2
while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
   Application.ProcessMessages;

@Timxa · 02.04.2010, 10:28 **[ТС]**

Frederikos,

Delphi
1
2
3
4
5
6
7
8
        while not ADOQuery1.Eof do
        begin
              r= 'http://212.6.12.135:1010/s.asp?n='+adoquery1.field.fiels[1].asstring+'&m='+memo1.text+'');
                WebBrowser1.Navigate(r);
                while(WebBrowser1.busy=true) do
                Application.ProcessMessages;
                ADOQuery1.Next;
        end;

У меня получилась но отправляет сообщение на 1 номер и последний номер....??? как быть?

@Frederikos · 02.04.2010, 10:32

это зависит от версии IE. А вот событие OnDocumentComplete по идее катит везде.

Добавлено через 3 минуты
в этом плане надо добавить ещё наверно задержку... может оператор не успевает отправить...
с программами на мобильный как правило интервал между смс 5-10секунд...

попробуй добавить ещё sleep(10000) или если через таймер то примерно так

Delphi
1
2
3
t:=Gettickcount;
while (Gettickcount-t<5000)
Application.ProcessMessages;

@NeonSimfi · 02.04.2010, 17:49

Используйте Embedded WebBrowser - бесплатный набор компонентов, у EmbeddedWB есть свойства/события которых Вам не хватает...

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Timxa 1 / 1 / 0 Регистрация: 23.09.2009 Сообщений: 84
	01.04.2010, 14:34 [ТС]
	Нет это не все могут пользоваться .... Как будет бесплатный я напишу ..) 0

@doni1 4 / 3 / 0 Регистрация: 30.01.2010 Сообщений: 52
	01.04.2010, 14:36
	Я бы тоже хотел себе добавить отправку смс через какой серв они отправляются? 0

@Timxa 1 / 1 / 0 Регистрация: 23.09.2009 Сообщений: 84
	01.04.2010, 14:37 [ТС]
	А как это написать в моем коже, а где написать??? 0

@doni1 4 / 3 / 0 Регистрация: 30.01.2010 Сообщений: 52
	01.04.2010, 14:45
	это твой ипи? он нерабочий я слышал что у телефона есть почтовый ящик на него и отправляется через скрипт но сервер должен быть от компании через них все идет Добавлено через 1 минуту кинь сюда то что тебе сказали в сот компани 0

@Frederikos 13 / 10 / 2 Регистрация: 30.07.2009 Сообщений: 42
	01.04.2010, 14:52
	пиши после метода navigate. ну поставь вместо {} begin end, вместо do while , кажется в паскале repeat untill, только условие тогда подкорректируй на "!=true" и кажется вроде в делфи Application.ProcessMessages что то вроде того, тебе sdk само подскажет 0

@Timxa 1 / 1 / 0 Регистрация: 23.09.2009 Сообщений: 84
	01.04.2010, 15:59 [ТС]
	Frederikos, А у меня IsBusy нету а что еще можно поставить? ? 0

@Frederikos 13 / 10 / 2 Регистрация: 30.07.2009 Сообщений: 42
	01.04.2010, 16:05
	или используй банальный sleep(милисекунды) Добавлено через 1 минуту Посмотри какие свойства есть у webbrouser. Может там ReadyState,Complete или что то вроде того... 0

@Timxa 1 / 1 / 0 Регистрация: 23.09.2009 Сообщений: 84
	01.04.2010, 16:21 [ТС]
	Frederikos, у меня тут свойство AddressBar, MenuBar, Silent, StatusBar,TabStop,TheaterMode Вот такие есть только свойствы Добавлено через 26 секунд а те которые вы написали нету Добавлено через 8 минут Frederikos, Еще есть свойство Offline 0

@Timxa 1 / 1 / 0 Регистрация: 23.09.2009 Сообщений: 84
	02.04.2010, 09:31 [ТС]
	У меня есть событие OnDocumentComplate, может тут нужно написать и передать, как быть???? Добавлено через 14 часов 29 минут У меня есть ReadyState, while (WebBrowser1.ReadyState=True) then ??? у меня ReadyState =? 0

@NeonSimfi 37 / 36 / 11 Регистрация: 30.04.2009 Сообщений: 90
	02.04.2010, 17:49
	Используйте Embedded WebBrowser - бесплатный набор компонентов, у EmbeddedWB есть свойства/события которых Вам не хватает... 0