Текущий архив: 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.018 c
