Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Как послать sms   Найти похожие ветки 

 
Orcy   (2003-03-23 00:29) [0]

Подскажите пожалуста как програмно послать sms на сотовый телефон МТС


 
velsi   (2003-03-24 10:40) [1]

var
HSession:HINTERNET; //- открывает сессию
HConnect:HINTERNET; //- устанавливает соединение
HInetFile:HINTERNET;//- указывает на фаил в интернете
.....

HSession:=InternetOpen(
"Mozilla/4.0 (compatible; MSIE 5.01; Windows NT)", // agent
INTERNET_OPEN_TYPE_PRECONFIG{INTERNET_OPEN_TYPE_PROXY}, // доступ через прокси
//см. help
nil,
nil,
0); // defaults
HConnect:=InternetConnect(
HSession,
"www.spb.mts.ru",
INTERNET_DEFAULT_HTTP_PORT ,
nil,
nil,
INTERNET_SERVICE_HTTP,
0,
0);
if hconnect=nil then ShowMessage("Error");
HInetFile:=HttpOpenRequest(HConnect,
"POST",
" http://www.spb.mts.ru/sms/sent.html",
"HTTP/1.0",
" http://www.spb.mts.ru/sms/sent.html",
nil,
INTERNET_FLAG_KEEP_CONNECTION,
0);
if hInetFile=nil then ShowMessage("Error");
buffer:=PChar("To="+MOBILE_NUMBER(79xxxxxxxxx)+"&Msg="+MYMSG+"&count=DLINNA MSG BEZ BROBELOV&SMSHour=3&SMSMinute=23&SMSDay=25&SMSMonth=2&SMSYear=2003");
size:=StrLen(buffer);
Head:="Content-Type: application/x-www-form-urlencoded";
HeadLength:=StrLen(Head);
if HttpSendRequest(HInetFile,
Head,
HeadLength,
buffer,
size) then SendSms.Caption:="OK";
end;
InternetCloseHandle(HInetFile);
InternetCloseHandle(HConnect);
InternetCloseHandle(HSession);

Пользуйтесь на здоровье.....=)
Когда я был погружен в этот же вопрос, то мне помогли добрые люди

Если нужет московский МТС, то идешь на сайт, включаешь какой-нить IRIS и начинаешь слушать запросы при отправлении смс с сайта.

Удачи



Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-70223
4you
2003-05-11 14:10
2003.05.22
Оптимизация программы


14-70518
Dimka Maslov
2003-05-04 19:44
2003.05.22
Занимательная арифметика


4-70566
Вадим
2003-03-23 23:37
2003.05.22
unicode & clipboard


1-70208
MAX22
2003-05-10 21:53
2003.05.22
Как досрочно завершить процедуру?


1-70256
Delpher
2003-05-11 16:23
2003.05.22
Сортировка