Отправка смс на теле2

[Coder12]

хочу сделать программу для отпраки смс на номера абонентов брянской обл.
вот что я написал:

var
  Form1: TForm1;
  params:TStringList;
  memo:TMemoryStream;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo := TMemoryStream.Create;
http1.Get('http://www.sms.tele2.ru/get_rni.php?public_key=c61d24d8bb81741c8328d4df3b49997f.jpg',Memo);
//http1.Disconnect;
Memo.SaveToFile('c:\image.png');
Memo.Free;
Image1.Picture.LoadFromFile('c:\image.png');
params:=TStringList.Create;
params.Add('phone_code=***');
params.Add('number=*******');
params.Add('sms_text=Работает');
params.Add('private_key='+edit1.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
http1.Post('http://www.bryansk.tele2.ru/send_sms.html',params);
params.Free;
http1.Free;
end;
end.

при проверке сообщение мне не приходит Исправте ошибки
вот адрес страницы http://www.bryansk.tele2.ru/send_sms.html

[Usov]

1. Сначало надо зайти просто на сайт для того чтоб кукименеджер получил кукисы
2. Значение параметра public_key необходимо парсить с запроса а не подставлять статиком
3. Отправка формы идет на адрес http://www.sms.tele2.ru/ а не на http://www.bryansk.tele2.ru/send_sms.html
4. Список парметров, которые передает броузер такой:

do=send&
smstext=ttt&
phone_code=902&
number=2345678&
sms_text=ttt&
private_key=313793&
public_key=b48262741862d91bcf6617489cd45ac4&
submit.x=54&
submit.y=12&
submit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C

сабмиты наверное можно упустить.

А теперь проанализируй свой код.
Рекомендую пользоваться сниферов в броузере чтоб видеть чего и куда реально передается.

[Coder12]

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

2. Значение параметра public_key необходимо парсить с запроса а не подставлять статиком

не совсем понял
Подскажите хороший снифер

[Coder12]

Исправил код, тк предыдущий отправлял значение private_key=edit1.text;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo := TMemoryStream.Create;
responseres:=TStringList.Create;
http1.Get('http://www.sms.tele2.ru/get_rni.php?public_key=c61d24d8bb81741c8328d4df3b49997f.jpg',Memo);
Memo.SaveToFile('c:\image.png');
Memo.Free;
Image1.Picture.LoadFromFile('c:\image.png');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
params:=TStringList.Create;
params.Add('phone_code=952');
params.Add('number=9671374');
params.Add('sms_text=Работает');
params.Add('private_key='+edit1.text);
responseres.Text:=http1.Post('http://www.sms.tele2.ru/',params);
params.Free;
http1.Free;
end;
end.

Теперь отправляет правильно значения, проверил снифером. Подскажите пожалуйста по поводу 1 и 2 пункта.

[Usov]

Положи на форму компонент TCookieManager и проставь соответствующее свойство в TIdHTTP. Потом в начале своей процедуры делаешь запрос к сайту http://www.sms.tele2.ru/, в результате получишь исходник страницы откуда надо выкусить (спарсить) то что находиться тут

<input type=hidden name='public_key' id='public_key' value='2ac519b1a49f8921fd2d68d1cb522cc5'>

, а точнее значение и подставить его в твой пост запрос отправки смс. И с этого же исходника парсишь ссылку на картинку.

[Coder12]

Usov спасибо большое, буду дальше разбираться

[Coder12]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo := TMemoryStream.Create;
responseres:=TStringList.Create;
Memo1.Lines.Add(HTTP1.Get('http://www.sms.tele2.ru/'));
s:=memo1.Lines.Text;
delete(s,1,100);
s2:=copy(s,pos('get_rni.php',s)+131,79);
label1.caption:=s2;
s2:=s2+'.jpg';
showmessage(s2);
http1.Get(s2,Memo);
Memo.SaveToFile('c:\image.png');
Memo.Free;
Image1.Picture.LoadFromFile('c:\image.png');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
HTTP1.Request.AcceptCharSet:='windows-1251';
s:=memo1.Lines.Text;
s1:=copy(s,pos('public_key',s)+35,32);
label2.caption:=s1;
params:=TStringList.Create;
params.Add('do=send');
params.Add('smstext=Работает1');
params.Add('phone_code=952');
params.Add('number=9671374');
params.Add('sms_text=Работает1');
params.Add('private_key='+edit1.text);
params.Add('public_key='+s1);
params.Add('submit=Отправить');
responseres.Text:=http1.Post('http://www.sms.tele2.ru/',params);
params.Free;
http1.Free;
end;
end.

подключил TCookieManager, добавил значения do, smstext ( как браузер посылает пост запрос). Так же заметил, что номер картинки в ссылке совпадает со значением value (в браузере). Сделал также у себя в программе. Но она как не отправляла смс так и не отправляет. Что можете подсказать? Вылаживаю исходник

[Usov]

Смотри что броузер отправляет:

do=send&smstext=test&phone_code=902&number=123467&sms_text=test&private_key=878429&public_key=5e7781438b17e32069792ff031822fd3&submit.x=20&submit.y=13

Попробуй текст вводить на латинице (при отладке).
С виду вроде все правильно у тебя.

[Coder12]

а за что отвечает submit.x=20&submit.y=13? может тоже передавать? только не пойму как определять

[Usov]

В большинстве случаев сабмиты не обязательно передавать, в данном случае если хочешь то просто константой забей.