Главная страница
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.013 c
1-70295
User
2003-05-11 16:23
2003.05.22
Сортировка


6-70417
BGV
2003-03-25 11:24
2003.05.22
NMFTP.FTPDirectoryList


1-70307
Dennis S
2003-05-06 17:31
2003.05.22
Точный Timer нужен...


14-70495
Doom
2003-05-01 10:55
2003.05.22
Помогите разобраться с ошибкой в Windows 2000 !!!


1-70278
wwwasya
2003-05-12 17:35
2003.05.22
Application.CreateForm vs TForm.Create