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

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

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

Как из своей программы послать SMS. [D6]

atmospheric © (2002-06-15 00:01:00)
может кто делал ? :)

Ghost. (2002-06-17 09:10:00) [1]
Кстати на билайн-то проще простого..вообще я раньше и на МТС и на Билайн делал..и уже не раз обьяснял, лови тол что сайт посылает и делай тоже самое

Егоров Николай (2002-06-15 20:44:00) [2]
Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
Source: TStringList;
ResponseContent: TStringStream;
begin
Source := TStringList.Create;
ResponseContent := TStringStream.Create("");
try
HTTP.Request.ProxyServer := "прокси";
HTTP.Request.ProxyPort := "прокси порт";
HTTP.Request.ProxyUsername := "юзернаме";
HTTP.Request.ProxyPassword := "пассворд";
HTTP.Post(" УРЛ ", Source, ResponseContent);
finally
ResponseContent.Free;
Source.Free;
end
end;

//HTTP: TIdHTTP;

BVM (2002-06-15 11:18:00) [3]
На новосибирский номер можно кинуть СМС отправив письмо на 79029xxxxxxx@scs-900.ru (SCS-900 - это местный филиал МТС).
У других операторов сети наверняка что-то подобное.

Ну а как оиправлять е-мейлы из Delphi - вопрос отдельный(ключевые слова MAPI,Indy)

Иван (2002-06-15 01:41:00) [4]
Project/ImportTypeLibrary/Microsoft WinHttp Service

atmospheric (2002-06-15 01:29:00) [5]
2 ga3
а ты не знаешь как на БиЛайн отправлять ? и что там за кука ?

ga3 (2002-06-15 01:27:00) [6]
а как с етим winhttp из дельфи работать-то? я скачал себе этот сдк, поставил, а импортировать нечего-((

Иван (2002-06-15 01:10:00) [7]
Лови я тут на JavaScript это быстренько наваял, в аську щас попробую выйти, аська 83782707
Посылает сообщения на MTS телефоны, я проверил, у меня МТС, по поводу почему не на делфи - ломает, но код переносится легко :-)
обрати внимание на след строчку в коде
To=ТУТ НОМЕР МОБИЛЫ&Msg=ТУТ СООБЩЕНИЕ&count=ТУТ КОЛВО СИМВОЛОВ

strUrl=" http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send";

var WinHttpReq = new ActiveXObject("WinHttp.WinHttpRequest.5");
WinHttpReq.Option(0)="internet explorer";
WinHttpReq.Open("POST", strUrl, false);
WinHttpReq.setRequestHeader("Referer"," http://iburo.ru");
WinHttpReq.Send("MMObjectType=0&MMObjectID=&To=ТУТ НОМЕР МОБИЛЫ&Msg=ТУТ СООБЩЕНИЕ&count=ТУТ КОЛВО СИМВОЛОВ&Hour=03&Min=19&Day=15&Mon=06&Year=2002&Lang=2");
//WScript.Echo(WinHttpReq.GetAllResponseHeaders());
str=String(WinHttpReq.ResponseText);
//Cookie

var stream=fileObj.OpenTextFile("log2.html",2,true);
stream.write(str);
stream.close();

WScript.Echo(str);

atmospheric (2002-06-15 00:51:00) [8]
У тебя аська есть ?

Иван (2002-06-15 00:31:00) [9]
WinHttp и с куками пашет :-)
С билайном не знаю точно, но может в два приема,
что то типа логинишся, WinHttp берет куки,
за второй раз посылаеш, кстати возможно там еще проверка на
поле Referer стоит, тоже надо не забыть поставить.

Вот я в принципе наваял, чтобы смотреть какие параметры передает броузер
http://iburo.ru/test3.asp

atmospheric (2002-06-15 00:25:00) [10]
а если на билайн отправлять, там при обрашение к странице надо данные передать, я передаю, а оно говорит, что доступ закрыт...там куки надо какие то передовать, а вот как это...

Иван (2002-06-15 00:21:00) [11]
вот эта пага
http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send

Иван (2002-06-15 00:17:00) [12]
Вобщем на MTS.ru есть страничка для отправления SMS сообщений,
далее берется компонент WinHttp5.0 (msdn.microsoft.com) очень удобный компонент (главное достоинство позволяет работать с прокси серверами), далее постиш на web страницу данные с полями формы, при помощи WinHttp, теперь для чего нужны прокси - на той странице с одного IP можно отправить не более 10 сообщений поэтому работаем с ней через прокси, вот и все, HELP по компоненте как всегда водится у MS очень хороший.

Наверх

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