Как послать 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 и начинаешь слушать запросы при отправлении смс с сайта.

Удачи

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