Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как послать sms

Orcy © (2003-03-23 00:29:00)
Подскажите пожалуста как програмно послать sms на сотовый телефон МТС

velsi (2003-03-24 10:40:00) [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 и начинаешь слушать запросы при отправлении смс с сайта.

Удачи

Наверх

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