Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите отправить SMS с помощь программы [D5, D7, Win95/98, WinXP]

Александр © (2004-01-31 16:39:00)
Помогите отправить SMS с помощь программы. Я пытаюсь, но не получается что-то?????
nmhttp1.HeaderInfo.Referer:='www.beeonline.ru';
nmHTTP1.Get(' http://www.beeonline.ru/sms/sent.html?Posted=1&To=+79059134911&Msg=СООБЩЕНИЕ&count=9&SMSHour=1&SMSMinute=16&SMSDay=12&SMSMonth=11&SMSYear=2003');

S@shka (2004-03-15 12:10:00) [1]
Могу подсказать, но отправка платная.
http://smst.smstechno.com

vrv (2004-03-14 15:30:00) [2]
Всем привет !
Мне тоже понадобилось отправить sms ни сотовый но у меня немного другая проблема ... Мне нужно отправить на МегаФон и к то же Кавказкий )))) и ни как не могу найти в инете тако сервис (без картинок) .... Если кто знает плиз подскажите )))
А на МТС и Билайн - я уже реализовал и при чем таким способом как и было описано выше ....

Александр (2004-02-12 11:45:00) [3]
Ну так чё sms никто не умеет отправлять?????????

Александр (2004-02-09 15:15:00) [4]
SMS так и немогу отправить!

Чё-то не выходит????

DeadMeat (2004-02-07 01:31:00) [5]
Удалено модератором
Примечание: Прикольная последовательность... :)

Александр (2004-02-06 21:35:00) [6]
SMS так и немогу отправить!

Александр (2004-02-06 08:00:00) [7]
Удалено модератором
Примечание: Создание пустых сообщений ...

Александр (2004-02-05 18:06:00) [8]
Удалено модератором
Примечание: Разборки в чате устраиваем ...

Woodpecker (2004-02-05 15:21:00) [9]
Удалено модератором
Примечание: Разборки в чате устраиваем ...

Александр (2004-02-05 13:04:00) [10]
Удалено модератором
Примечание: Создание пустых сообщений ...

Александр (2004-02-05 10:50:00) [11]
А где? В каком месте писать само сообщение????????

Maksss (2004-02-04 17:12:00) [12]
var
i:integer;
s:string;
begin
ClientSocket1.host := 'www.beeonline.ru';
ClientSocket1.port := 80;
ClientSocket1.Active := true;

//это должно быть в событии когда приконнектиться сокет
s1:='deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code =6&ph one=5811808&message=body&mlength=152&phone_answer_number=';
S := 'POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1'+#13#10+
'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*'+#13#10+
'Accept-Language: ru'+#13#10+
'Content-Type: application/x-www-form-urlencoded'+#13#10+
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'+#13#10+
'Content-Length: '+length(s1)+#13#10+
'Connection: Keep-Alive'+#13#10+
'Cache-Control: no-cache' + #13#10#13#10';
ClientSocket1.Socket.SendText(S);

а при cl.read нуна дисконнектить
ClientSocket1.Active := false;

Александр (2004-02-04 08:51:00) [13]
Удалено модератором
Примечание: Создание пустых сообщений ...

Александр (2004-02-03 10:00:00) [14]
Вы уж простите меня за мои глупые вопросы, но я чёто не совсем всё понял. Ну вот я написал:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
ClientSocket1.host := 'www.beeonline.ru';
ClientSocket1.port := 80;
ClientSocket1.Active := true; // óñòàíîâèëè ñîåäèíåíèå ñ ñåðâåðîì

// îòïðàâêà
for i := 0 to 1 do
begin
S := 'POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Áèëë ÃÅÉö - ËÎÕ; MyIE2)
Host: 127.0.0.1
Content-Length: 177
Connection: Keep-Alive
Cache-Control: no-cache' + #13 + #10'

deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph one=5811808&message=body&mlength=152&phone_answer_number=
';

ClientSocket1.Socket.SendText(S);
ClientSocket1.Active := false;

end;

end;

Но чёто я непонимаю: 1. Какого типа должна быть S?
2. В данном примере Димы "Билл ГЕЙц - ЛОХ" - это я так потял сама SMS
3. Номер телефона я так понял надо вводить в самом конце после строчки deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph one=5811808&message=body&mlength=152&phone_answer_number= № телефона ?????? или нет?????
4. Несовсем понял выражение: "длинна самой длинно нижней строки с запросом"??? -это в смысле ДЛИННА СООБШЕНИЯ, т.е. количество символов сообщения или нет???????
5 И ещё посмотри пожалуйста помоему я тут всякой фигни на делал. Напешите если не трудно как должно быть???? Ещё раз спосибо за ваш отзыв!!!!!!!!!!!!!!!!!!!!!!!!!!!

Wm.DIGGER (2004-02-03 08:17:00) [15]
to SMILik Так точно! Я уже проверил!
to Александр Не получится через них отправить у них "картинка" висит! Поэтому и не отправляется !

SMILik (2004-02-02 12:16:00) [16]
Думается мне, что simple_send_sms.sms содержит какую-то заморочку с картинками :) такую защиту от спама... отсюда вопрос - а не надо ли случайно ловить то, что от нас хочет услышать сервер ???

WM.DIGGER (2004-02-02 08:12:00) [17]
Александр, Дима имел ввиду сокетное соединение и отправка приведённого им запроса ...
Берёшь компонент ClientSocket (далее CL) и пишешь ...

CL.host := 'www.beeonline.ru';
CL.port := 80;
CL.Active := true; // установили соединение с сервером

// отправка
for i := 0 to количество строк do
begin
S := ' здесь по очереди строки, которые указал Дима ' + #13 + #10;
Cl.Socket.SendText(S);
end;

! После строки Cache-Control: no-cache идёт отправка строки s := '.' + #13 + #10; В строке Content-Length: указывается размер данных (длинна самой длинно нижней строки с запросом) ...

Ну,а в конец CL.Active := false; :))))

Александр (2004-02-01 13:01:00) [18]
Диман! Всё это конечно прикольно, но хотелось бы понять, как конкретно пользоваться всем этим. Я бы был !очень! признателен тебе, если бы ты это привёл к более конкретному виду, чтобы можно было этим использовать! Т.е. как отправить конкретное сообщение на конкретный номер. Спасибо заранее!!!!!!!

Дима (2004-02-01 11:00:00) [19]
Неправельный запрос

Надо мутить чтото вроде этого :

POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Билл ГЕЙц - ЛОХ; MyIE2)
Host: 127.0.0.1
Content-Length: 177
Connection: Keep-Alive
Cache-Control: no-cache

deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph one=5811808&message=body&mlength=152&phone_answer_number=

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »