Помогите с отправкой sms

← →
mm0 (2007-04-11 17:12) [0]

Написал код, который должен отправлять SMS сообщения на мтс(http://sms.mts.ru/),
Данные на сервер мтс уходят,а мтс отправлять не хочет.
Он должен писать - "ваше сообщение успешно отправлено",а он присылает опять страницу с отправкой.
Эксперементирова,в параметрах отправки разное время задавал,даже брал с самой страницы отправи sms - нехочет.

может как-то параметр p(POSTDATA) задал не верно????

Код:

IdHTTPCORE: TIdHTTP; - компонент Indy в Delphi

var p,url_:string
__PostData:TStringList;
__ResData:string;
dt:TDateTime;
xt:TSystemTime;
F:Text;
begin
....

получение картинки http://sms.mts.ru/pic.aspx
можно для теста открыть ее в InternetExplorer и
в delphi,через поле ввода,задать code.
....

dt:=Now;
dt:=IncHour(dt,1);
DateTimeToSystemTime(dt,xt);
sMin:=IntToStr(xt.wMinute); //sMin:=Format("%.2d",[xt.wMinute]);
sHour:=IntToStr(xt.wHour);// sHour:=Format("%.2d",[xt.wHour]);
sd:=IntToStr(xt.wDay); //sd:=Format("%.2d",[xt.wDay]);
sm:=IntToStr(xt.wMonth);// sm:=Format("%.2d",[xt.wMonth]);
sy:=IntToStr(xt.wYear);// sy:=Format("%d",[xt.wYear]);

p:="ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$ddPrefix="+Prefix+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$txtMsisdn="+num+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$tbMessage="+msg+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$ddHour="+sHour+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$ddMinutes="+sMin+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$dpDate_day="+sd+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$dpDate_month="+sm+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$dpDate_year="+sy+
"&ctl00$ctl08$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$qmSmsSend1$tbCode="+code;
url_:="http://sms.mts.ru/live/smsSending.aspx?sms=1&page.id=22847";
__PostData.Clear;
__PostData.Add(p);
__ResData:=FrmMain.IdHTTPCORE.Post(url_,__POSTDATA);
AssignFile(F,"out.htm");
ReWrite(F);
Write(f,__ResData);
CloseFile(F);
...
-----------

← →
проходивший мимо (2007-04-15 16:04) [1]

а как ты распознаёшь, что написано на картинке?

← →
mm0 (2007-04-16 15:43) [2]

проходивший мимо: а я не распознаю,а ввожу что нарисовано на картинке

← →
Keni © (2007-04-19 22:20) [3]

вот что отправляется с этой страницы
при телефоне +79121234567,
сообщением
hello!
kak dela?
Привет!
Как дела?
дата:0:4 27.12.07
code:kartinka

POST / HTTP/1.1 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-gsarcade-launch, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-icq, */* Accept-Language: ru Content-Type: application/x-www-form-urlencoded Accept-Encoding: gzip, deflate User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Host: 192.168.4.63 Content-Length: 2060 Connection: Keep-Alive Cache-Control: no-cache __EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUENTM4MWRknE91anYnp%2BiiPGa8ARdhmx2q3T8%3D&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24ddPrefix=7912&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24txtMsisdn=1234567&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24tbMessage=hello%21%0D%0Akak+dela%3F%0D%0A%D0%9F%D1%80%D0%B8%D0%B2%D0%B5%D1%82%21%0D%0A%D0%9A%D0%B0%D0%BA+%D0%B4%D0%B5%D0%BB%D0%B0%3F&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24tbLen=37&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24ddHour=0&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24ddMinutes=4&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24dpDate=20071227&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24dpDate_string=12%2F27%2F2007&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24tbCode=kartinka&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24qmSmsSend1%24btnSend=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C&__EVENTVALIDATION=%2FwEWbQKJr6SyAwK71tDRAwLA5L%2BbDwK71rSqAQK71sD2CgK71uzRAwK71vi8CwK71oSHDAK71pDiBQK71rzNDgK71sipBgK71pTBBAK71 qCsDALjjLucBgLOpaWhCAKm76qsBgKm7%2FLmBQKm77rWDgLOpamADwLOpd3oCgK5ldafCwLctcyhAQKgpqB%2FAsaY3PUBAtmY3PUBAtiY3PUBAtuY3PUBAtqY3PUBAt2Y3PUBAtyY3PUBAt%2BY3PUBAs6Y3PUBAsGY3PUBAtmYnPYBAtmYkPYBAtmYlPYBAtmYqPYBAtmYrPYBAtmYoPYBAtmYpPYBA tmYuPYBAtmY%2FPUBAtmY8PUBAtiYnPYBAtiYkPYBAtiYlPYBAtiYqPYBArK3o20CrbejbQKst6NtAq%2B3o20CrrejbQKpt6NtAqi3o20Cq7ejbQK6t6NtArW3o20CrbfjbgKtt%2B9uAq23624CrbfXbgKtt9NuAq23324CrbfbbgKtt8duAq23g20CrbePbQKst%2BNuAqy3724CrLfrbgKst9duAqy3024CrLffbgKst9tuAqy3x24CrLeDbQKst49tAq%2B3424Cr7fvbgKvt%2BtuAq%2B3124Cr7fTbgKvt99uAq%2B3224Cr7fHbgKvt4NtAq%2B3j20CrrfjbgKut%2B9uAq63624CrrfXbgKut9NuAq63324CrrfbbgKut8duAq63g20CrrePbQKpt%2BNuAqm3724CqbfrbgKpt9duAqm3024CqbffbgKpt9tuAqm3x24CqbeDbQKpt49tAqf55p0JAvbOj6cM gq2cbipldHRNTRUHLFWFEHhuea4%3D

а у тебя что-то в POST как-то слишком мало инфы отправляется.
надо сгенерировать вот такой же текст, вылеленный жирным

← →
mm0 (2007-04-25 15:34) [4]

Да,действительно надо бы так сделать.....
а вот,к примеру сам текст сообщения:

tbMessage=hello%21%0D%0Akak+dela%3F%0D%0A%D0%9F%D1%80%D0%B8%D0%B2%D0%B5%D1%82%21%0D%0A%D0%9A%D0%B0%D0%BA+%D0%B4%D0%B5%D0%BB%D0%B0%3F&ctl00%24ctl08%24ctl00%24ctl00%24ctl00%24ctl04%24ctl00%24ctl00%24

а чем можно такую перекодировку делать .Есть уже какие нибудь средства в Delphi.Полагаю, это какая-то интернетовская кодировка(типа KOI-8R).

← →
Raptoridze (2007-05-22 10:47) [5]

function kodir(s:string):string;
var ss:string;
i:integer;
begin
ss:="";
for i:=1 to length(s) do
ss:=ss+"%"+ansiuppercase(inttohex(ord(s[i]),2));
result:=ss;
end;

передаешь в функцию строку, которую надо перекодировать, фун-ция вовращает тебе строку

> передаешь в функцию строку, которую надо перекодировать,
> фун-ция вовращает тебе строку

Исчо адин велосипед изобретен... Подключаем модуль IdURI и пишем:

params := TidURI.ParamsEncode("Маи параметры");

> mm0 (11.04.07 17:12)
> Написал код, который должен отправлять SMS сообщения на
> мтс

Я для отправки на МТС граббер на РНР писал. Путь, который ты выбрал для отсылки - тупиковый, т.к. ты не сможешь в полной мере воспроизвести работу скриптов на клиенской части и набор параметров, передаваемый сервером. Тебе нужно:

1) загрузить оригинал формы отправки
2) выделить поля/картинку/кукисы
3) симулировать работу скриптов, заполняющих некоторые параметры

На МТС не .... сидят, через них даже с ручным вводом картинки не так-то просто отправить СМС.

ЗЫ: ты еще попробуй на Мегафон Северо-Запад отправить ;))))

Помогите с отправкой sms Найти похожие ветки