| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Отправка SMS на Биллайн [D7, XP]

Страницы:   < 1 2 >

Viktop ©   (2006-09-02 08:02:00) 

Пытаюсь отправить SMS на Биллайн с помощью компонентов Indy.
Небольшое отступление. Для Firefox есть расширение xSMS. Оно позволяет отправлять SMS. Если отправлять на биллайн через их сайт, то надо вводить код, указанный на картинке. Если через xSMS (или их программу [официальная программа для отправки SMS от Биллайна]), то ничего вводить не надо. С помощью сниффера узнал заголовки отправляемого запроса.
http://www.beeonline.ru/servlet/send/sms/

POST /servlet/send/sms/ HTTP/1.1
Host: www.beeonline.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 87
Pragma: no-cache
Cache-Control: no-cache
number_sms=number_sms_send&termtype=G&x=5&y=4&prf=7909&phone=номер_телефона&mess age=Krosavcheg
HTTP/1.x 200 OK
Date: Sat, 02 Sep 2006 03:38:54 GMT
Server: Apache/2.0.49 (Linux/SuSE)
Cache-Control: private
Vary: Accept-Encoding
Content-Length: 25
Set-Cookie: JSESSIONID=axxl6HTg3QQg; path=/
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: text/plain;charset=windows-1251
В Delphi прописал такой код:
var
 aStream: TMemoryStream;
 Params: TStringStream;
 LongStr: string;
begin
 with IdHTTP1 do
 begin

   aStream := TMemoryStream.Create;
   Params := TStringStream.Create('');

   HandleRedirects := True;

   Host := 'beonline.ru';
   Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.0.6)';
   Request.Accept := 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
   Request.AcceptLanguage := 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
   Request.AcceptEncoding := 'gzip,deflate';
   Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';
   Request.Connection := 'keep-alive';
   Request.CacheControl:='no-cache';

   Request.ContentType := 'application/x-www-form-urlencoded';
   Request.Connection := 'Close';
   Request.Pragma := 'no-cache';

   LongStr := 'number_sms=number_sms_send&termtype=G&x=5&y=4&prf=7909&phone=Номер_телефона&mes sage=Krosavcheg';
   Params.WriteString((LongStr));
   IdHTTP.Post(' http://www.beeonline.ru/servlet/send/sms/', Params, Stream);
   aStream.SaveToFile('C:\BOL.html');
   aStream.Free;
   Params.Free;
 end;
end;
В результате на диске C: создаётся файл BOL.html с текстом Ошибка при отправке сообщения.

---

Tisso   (2006-09-03 22:00:00) [21]

Я сейчас тоже занялся этим вопросом. Полагаю, без кода подтверждения не обойтись.
Странно, но честно сказать, даже при отправке формы со всеми кодами и со значениями скрытых полей, сообщение не отправляется.
И еще, скорее всего сервис http://www.beeonline.ru/servlet/send/sms/не поможет. Я думаю BeLine прикрыли его, поэтому я пытаюсь сделать отправку через http://www.beonline.ru/portal/comm/send_sms/simple_send_sms.sms.

---

Viktop   (2006-09-03 21:18:00) [22]

никто не знает?

---

Страницы:   < 1 2 >

Наверх