Помогите отправить SMS с помощь программы

← →
Александр (2004-01-31 16:39) [0]

Помогите отправить 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");

← →
Дима (2004-02-01 11:00) [1]

Неправельный запрос

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

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=

← →
Александр (2004-02-01 13:01) [2]

Диман! Всё это конечно прикольно, но хотелось бы понять, как конкретно пользоваться всем этим. Я бы был !очень! признателен тебе, если бы ты это привёл к более конкретному виду, чтобы можно было этим использовать! Т.е. как отправить конкретное сообщение на конкретный номер. Спасибо заранее!!!!!!!

← →
WM.DIGGER © (2004-02-02 08:12) [3]

Александр, Дима имел ввиду сокетное соединение и отправка приведённого им запроса ...
Берёшь компонент 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; :))))

← →
SMILik © (2004-02-02 12:16) [4]

Думается мне, что simple_send_sms.sms содержит какую-то заморочку с картинками :) такую защиту от спама... отсюда вопрос - а не надо ли случайно ловить то, что от нас хочет услышать сервер ???

← →
Wm.DIGGER © (2004-02-03 08:17) [5]

to SMILik Так точно! Я уже проверил!
to Александр Не получится через них отправить у них "картинка" висит! Поэтому и не отправляется !

← →
Александр (2004-02-03 10:00) [6]

Вы уж простите меня за мои глупые вопросы, но я чёто не совсем всё понял. Ну вот я написал:
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 И ещё посмотри пожалуйста помоему я тут всякой фигни на делал. Напешите если не трудно как должно быть???? Ещё раз спосибо за ваш отзыв!!!!!!!!!!!!!!!!!!!!!!!!!!!

← →
Александр (2004-02-04 08:51) [7]

Удалено модератором
Примечание: Создание пустых сообщений ...

← →
Maksss (2004-02-04 17:12) [8]

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-05 10:50) [9]

А где? В каком месте писать само сообщение????????

← →
Александр (2004-02-05 13:04) [10]

Удалено модератором
Примечание: Создание пустых сообщений ...

← →
Woodpecker © (2004-02-05 15:21) [11]

Удалено модератором
Примечание: Разборки в чате устраиваем ...

← →
Александр (2004-02-05 18:06) [12]

Удалено модератором
Примечание: Разборки в чате устраиваем ...

← →
Александр (2004-02-06 08:00) [13]

Удалено модератором
Примечание: Создание пустых сообщений ...

← →
Александр (2004-02-06 21:35) [14]

SMS так и немогу отправить!

Удалено модератором
Примечание: Прикольная последовательность... :)

← →
Александр (2004-02-09 15:15) [16]

SMS так и немогу отправить!

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

← →
Александр (2004-02-12 11:45) [17]

Ну так чё sms никто не умеет отправлять?????????

← →
vrv (2004-03-14 15:30) [18]

Всем привет !
Мне тоже понадобилось отправить sms ни сотовый но у меня немного другая проблема ... Мне нужно отправить на МегаФон и к то же Кавказкий )))) и ни как не могу найти в инете тако сервис (без картинок) .... Если кто знает плиз подскажите )))
А на МТС и Билайн - я уже реализовал и при чем таким способом как и было описано выше ....

Могу подсказать, но отправка платная.
http://smst.smstechno.com

Помогите отправить SMS с помощь программы Найти похожие ветки