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

Вниз

Интернет шлюз   Найти похожие ветки 

 
sms   (2008-04-10 15:06) [0]

Есть ли Internet шлюз для отправки sms который не требует ввода кода на картинке ?

Хочу чтобы уведомление приходило о включении моего ПК.


 
знаток   (2008-04-10 15:19) [1]

Есть платные сервисы, которые предоставляют API для отправки SMS.


 
tesseract ©   (2008-04-10 15:35) [2]


> Хочу чтобы уведомление приходило о включении моего ПК.


А по аське, чем не равиться ? Поставь Jimm и будь доволен.


 
Anatoly Podgoretsky ©   (2008-04-10 15:53) [3]

> sms  (10.04.2008 15:06:00)  [0]

Почему бы не посылать email


 
Рамиль ©   (2008-04-10 16:04) [4]

ИМХО, можно так (если протокол полностью описан)
http://agent.mail.ru/developers/licence.html


 
AIK ©   (2008-04-10 16:06) [5]

что-то не пойму:

> Есть ли Internet шлюз для отправки sms который не требует
> ввода кода на картинке ?

Вроде майл агент позволяет отправлять смс


> Хочу чтобы уведомление приходило о включении моего ПК.

Эт куда оно должно приходить в виде смс на телефон? Извините если неправильно понял.


 
korneley ©   (2008-04-10 16:19) [6]


> Хочу чтобы уведомление приходило о включении моего ПК.
Какая-то слабая отмазка... Правильно надо говорить: "Спам хочу рассылать."


 
sms   (2008-04-10 16:42) [7]

Вот пытался выполняется без ошибок но сообщение так и не приходит в чем ошибка ?
program Send;

{$APPTYPE CONSOLE}

uses
 SysUtils, IdSMTP, IdMessage;

var
 SMTP: TIdSMTP;
 Mail: TIdMessage;

begin
 try
   { TODO -oUser -cConsole Main : Insert code here }
   SMTP := TIdSMTP.Create(nil);
   Mail := TIdMessage.Create(nil);
   SMTP.Host := "smtp.mail.ru";
   SMTP.Port := 25;
   SMTP.AuthType := atSASL;
   SMTP.Username := "usernam";
   SMTP.Password := "030121164901";
   Mail.From.Name := "usernam@mail.ru";
   Mail.Subject := "Run";
   Mail.From.Address := "79182654134@sms.kuban.mts.ru";
   Mail.Recipients.EMailAddresses := "usernam@mail.ru";
   Mail.Body.Text := "Run - " + DateToStr(Now);
   SMTP.Connect;
   SMTP.Send(Mail);
   SMTP.Disconnect;
   Mail.Free;
   SMTP.Free;
 except
   on E:Exception do
     Writeln(E.Classname, ": ", E.Message);
 end;
end.


 
Dennis I. Komarov ©   (2008-04-10 16:43) [8]

Send mail to
+7xxxyyyyyyyyy@operator.ru(com...)
P.S.
 If your operator renders such services


 
sms   (2008-04-10 16:49) [9]

да забыл D2007


 
tesseract ©   (2008-04-10 17:15) [10]

Timeout сколько ? И EHLO попробуй включить.


 
Dennis I. Komarov ©   (2008-04-10 17:59) [11]

>Mail.From.Address := "79182654134@sms.kuban.mts.ru";

Mail.From.Address := "usernam@mail.ru";

>Mail.Recipients.EMailAddresses := "usernam@mail.ru";

Mail.Recipients.Add.Address := "79182654134@sms.kuban.mts.ru";


 
sms   (2008-04-11 08:54) [12]

Чегото нехотит, блин...
Что может за ошибка быть ?

program Send;

{$APPTYPE CONSOLE}

uses
 SysUtils, IdSMTP, IdMessage;

var
 Mail: TIdMessage;

begin
 try
   { TODO -oUser -cConsole Main : Insert code here }
   with TIdSMTP.Create(nil) do
     begin
       try
         Host := "smtp.mail.ru";
         Port := 25;
         AuthType := atDefault;
         Username := "username";
         Password := "password";
         ConnectTimeout := 60;
         Mail := TIdMessage.Create(nil);
         with Mail do
           begin
             try
               From.Name := "username@mail.ru";
               From.Address := "username@mail.ru";
               Subject := "Time run machine";
               Recipients.Add.Address := "79182604430@sms.kuban.mts.ru";
               Body.Text := "Time run: " + DateToStr(Now);
               Connect;
               Send(Mail);
               if Connected then
                 Disconnect;
             finally
               Free;
             end;
           end;
       finally
         Free;
       end;
     end;
 except
   on E:Exception do
     Writeln(E.Classname, ": ", E.Message);
 end;
end.


Текст компиляции:


Thread Start: Thread ID: 1836. Process Send.exe (1380)
Process Start: C:\Documents and Settings\user\Мои документы\RAD Studio\Projects\Send\Send.exe. Base Address: $00400000. Process Send.exe (1380)
Module Load: Send.exe. Has Debug Info. Base Address: $00400000. Process Send.exe (1380)
Module Load: ntdll.dll. No Debug Info. Base Address: $7C900000. Process Send.exe (1380)
Module Load: KERNEL32.dll. No Debug Info. Base Address: $7C800000. Process Send.exe (1380)
Module Load: OLEAUT32.dll. No Debug Info. Base Address: $77110000. Process Send.exe (1380)
Module Load: msvcrt.dll. No Debug Info. Base Address: $77C00000. Process Send.exe (1380)
Module Load: USER32.dll. No Debug Info. Base Address: $77D30000. Process Send.exe (1380)
Module Load: GDI32.dll. No Debug Info. Base Address: $77F10000. Process Send.exe (1380)
Module Load: ADVAPI32.dll. No Debug Info. Base Address: $77DC0000. Process Send.exe (1380)
Module Load: RPCRT4.dll. No Debug Info. Base Address: $77E70000. Process Send.exe (1380)
Module Load: ole32.dll. No Debug Info. Base Address: $774D0000. Process Send.exe (1380)
Module Load: IMM32.dll. No Debug Info. Base Address: $76360000. Process Send.exe (1380)
Module Load: WSHIP6.dll. No Debug Info. Base Address: $58F10000. Process Send.exe (1380)
Module Load: WS2_32.dll. No Debug Info. Base Address: $71A90000. Process Send.exe (1380)
Module Load: WS2HELP.dll. No Debug Info. Base Address: $71A80000. Process Send.exe (1380)
Module Load: MSWSOCK.dll. No Debug Info. Base Address: $71A30000. Process Send.exe (1380)
Module Load: DNSAPI.dll. No Debug Info. Base Address: $76F10000. Process Send.exe (1380)
Module Load: WINRNR.dll. No Debug Info. Base Address: $76FA0000. Process Send.exe (1380)
Module Load: WLDAP32.dll. No Debug Info. Base Address: $76F50000. Process Send.exe (1380)
Module Load: HNetCfg.dll. No Debug Info. Base Address: $698B0000. Process Send.exe (1380)
Module Load: WSHTCPIP.dll. No Debug Info. Base Address: $71A70000. Process Send.exe (1380)
Module Load: rasadhlp.dll. No Debug Info. Base Address: $76FB0000. Process Send.exe (1380)
Thread Start: Thread ID: 2372. Process Send.exe (1380)
Thread Exit: Thread ID: 2372. Process Send.exe (1380)



Вроде описанные выше ошибки исправил.

P/S

Инет на машине не прямой а через прокси, это может влиять ?

Спасибо !


 
Dennis I. Komarov ©   (2008-04-11 09:19) [13]

Отправь почту на др. адрес и увидишь где проблема.

ЗЫ
 У меня работает. (правда долго SMS-ка ползет)


 
sms   (2008-04-11 09:24) [14]


> Dennis I. Komarov ©   (11.04.08 09:19) [13]

Так выходит код доведен до рабочего состояния :o)

Дело в том что при отправке с почтового ящика письма на "7918ХХХХХХХ@sms.kuban.mts.ru".

sms приходит. А при работе данного кода, них не приходит.

Может всеже из-за прокси ?


 
Dennis I. Komarov ©   (2008-04-11 09:29) [15]

> Дело в том что при отправке с почтового ящика

Это что значит?


 
sms   (2008-04-11 09:33) [16]


> Dennis I. Komarov ©   (11.04.08 09:29) [15]

Когда я вгожу на почту через Web - интерфейс, и отудова отправляю письмо на 7918ХХХХХХХ@sms.kuban.mts.ru, sms доставляется. Т.е. я хотел сказать что отправка sms таким способом работает.


 
Dennis I. Komarov ©   (2008-04-11 09:49) [17]

Ну тогда следующий шаг: заведи учетку в оутглюк и отправь с нее :)

ЗЫ telnet спасет отца русской демократии :)


 
Simpson ©   (2008-04-11 10:37) [18]

smpp v3.4 стандарт передачи SMS(сейчас наиболее распостранен)
smtp стандарт передачи почты

Попробуй этим кодом вообще письмо послать, здесь трабла не с SMS, а с самой почтой она у тебя либо не соединяется(проверки что соединилось в коде не вижу, как и обработки исключительных ситуаций с выводом сообщений), либо ты не правильно письмо состовляещ. Отправь с почтовика письмо и посмотри заголовок.


 
sms   (2008-04-11 13:54) [19]

Да из-за прокси проблемы я уверен, только вот как к прокси подключится...


 
Dennis I. Komarov ©   (2008-04-11 14:10) [20]

> Да из-за прокси проблемы я уверен

Ну тогда с ней и ковыряйся...



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

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

Наверх




Память: 0.52 MB
Время: 0.017 c
2-1209820053
Константин
2008-05-03 17:07
2008.05.25
Пару вопросов по Webbrowser


2-1209008700
Foo Fighters
2008-04-24 07:45
2008.05.25
как в Adoquery сделать подстановку?


2-1209753467
Rabbit
2008-05-02 22:37
2008.05.25
На помощь!!!!!!!!!!!!!


3-1197498119
Wolf
2007-12-13 01:21
2008.05.25
Вопрос по SQLite базу данных


15-1207762983
@!!ex
2008-04-09 21:43
2008.05.25
У кого под рукой есть дельфи