SMS своими руками ...

← →
Shluz (2003-06-27 20:41) [0]

Уважаемые мастера, может кто занет правильную технологию отсылки смс непосредственно на шлюз сервиса...или вообще как там все происходит :) ? а то вот это http.Get(""+msgSMS(Edit1.Text)); ушло как -то :)

← →
Delphin (2003-06-28 15:09) [1]

Я эту проблему решил с помощью номпанента NMPop31, делается всё просто: отсылаешь как Е-мыло, только через шлюз:
NMSMTP1.PostMessage.FromName:=Edit1.Text;
NMSMTP1.PostMessage.FromAddress:=Edit2.Text;
NMSMTP1.PostMessage.Subject:=Edit4.Text;
NMSMTP1.PostMessage.ToAddress.Add("Код республики"+"номер телефона"+"шлюз")
NMSMTP1.PostMessage.Body.Add(Memo1.Text);
NMSMTP1.SendMail;
NMSMTP1.PostMessage.Body.Clear;
end;
Инфо про шлюзы есть на этом сайте в разделе "Кладовка -> Хэлпы и утилиты" ( http://www.delphimaster.ru/download/other3.html )

← →
Delphin (2003-06-28 15:20) [2]

У себя эту проблему решил так: (Можно отсылать сообщения длиной до 1000 символов)
Memo1.HideSelection:=True;
Memo1.SelStart:=0; //начало выделения текста
Memo1.SelLength:=120; //конец выделения текста
A:=Memo1.SelText; //копирую выделеный текст в переменную типа String
I:=memo1.GetTextLen;// в переменную типа Integer записываю длинну текста в Memo

case I of 1..1000: begin //Если значение I от 1 до 1000 то
NMSMTP1.PostMessage.FromName:=Edit1.Text; // от кого
NMSMTP1.PostMessage.FromAddress:=Edit2.Text;// Обратный адрес (Мыло)
NMSMTP1.PostMessage.Subject:=Edit4.Text;// Субьект
Edit3.SelStart:=0; // тут просто "пошёл на хитрость", живу в латвии, и у нас два оператора, Tele2 и Lmt, у каждого оператора, номер начинаеться на разные цифры.
Edit3.SelLength:=2; AU:=Edit3.SelText; t:=Au; case StrToInt(T) of
59,60,67,95,96,97,98: // если номер начинаеться на 59,60,67,95,96,97,98, то это Tele2
NMSMTP1.PostMessage.ToAddress.Add("371"+Edit3.Text+"@sms.tele2.lv") else NMSMTP1.PostMessage.ToAddress.Add("371"+Edit3.Text+"@smsmail.lmt.lv"); // в противном случае это ЛМТ
end;
NMSMTP1.PostMessage.Body.Add(A); NMSMTP1.SendMail; NMSMTP1.PostMessage.Body.Clear; end; end; Memo1.SelStart:=120; Memo1.SelLength:=120; BB:=Memo1.SelText; case I of 120..1000: begin NMSMTP1.PostMessage.FromName:=Edit1.Text; NMSMTP1.PostMessage.FromAddress:=Edit2.Text; NMSMTP1.PostMessage.Subject:=Edit4.Text; Edit3.SelStart:=0; Edit3.SelLength:=2; AU:=Edit3.SelText; t:=Au; case StrToInt(T) of 59,60,67,95,96,97,98: NMSMTP1.PostMessage.ToAddress.Add("371"+Edit3.Text+"@sms.tele2.lv") else NMSMTP1.PostMessage.ToAddress.Add("371"+Edit3.Text+"@smsmail.lmt.lv"); end; NMSMTP1.PostMessage.Body.Add(BB); NMSMTP1.SendMail; NMSMTP1.PostMessage.Body.Clear; end; end;Дальше всё идёт по такому порядку.

← →
Shluz (2003-06-28 19:15) [3]

спасибо , все понял!! (даже про шлюзы инфу кинул :)) молодец!!

← →
Shluz (2003-06-28 19:19) [4]

вот еще бы статус отправки знать.. :)

← →
SemFLY (2003-06-28 22:37) [5]

да, все хорошо, но гейт для МТС не работает :(

Москва [SMS] МТС 7095xxxxxxx@sms.gate.ru
Москва (Федеральный) [SMS] МТС 7902xxxxxxx@sms.gate.ru

Не подскажите, где можной найти гейты ? :)

← →
Shluz (2003-06-28 23:01) [6]

могу подсказать где найти гейтСА (Билла) :j

← →
SemFLY (2003-06-28 23:50) [7]

Shluz, ооо выручай... :)) буду благодарен :))
А то почти все уже сделал.., а тут опс, а гейтСА (Билла) :))) нету ...

← →
Shluz (2003-06-29 13:50) [8]

:)))

← →
SemFLY (2003-06-29 14:16) [9]

А гейт ? ;))

← →
SemFLY (2003-06-29 21:13) [10]

Shluz, обещал вроде гейт сказать МТС"овский, а сам пропал... :(

← →
Shluz (2003-06-30 00:20) [11]

блин, сам ищу !! гейтС Билл щас, кстати, с голыми тетками, наверное, в бане :))

← →
Delphin (2003-06-30 00:23) [12]

Shluz, Для статуса отправки засунь какую-нить процедуру в NMSMTP1.OnSuccess
например:
CoolTrayIcon1.ShowBaloonHint("Success "+"Message Sended",BitInfo,10);

← →
Shluz (2003-06-30 00:51) [13]

Delphin © (30.06.03 00:23)
не ну это результат операции , а дальше?? вот бы как в Аське сделать, т.е. чтоб светилось "сообщение доставлено адресату"

← →
SemFLY (2003-06-30 01:37) [14]

Да, попробовал поискать... напряг что-то с гейтами для МТС да и д ругих не особо... может email написать в МТС ?

← →
Shluz (2003-06-30 12:32) [15]

ага еще в MicroSoft отпиши, мол, не нравится, блин, мне ваша система защиты , вышлите патч на ВСЕ!! Суки!!:)

← →
Карелин Артем (2003-06-30 13:54) [16]

Delphin © (28.06.03 15:20)
>>У себя эту проблему решил так: (Можно отсылать сообщения длиной до 1000 символов)
Что-то много. По стандарту телефон может принять 160 на латиннице или 70 символов в юникоде.

← →
Delphin (2003-06-30 14:44) [17]

>>Карелин Артем<<
Сообщение после отсылки разбиваеться на куски длиной по 120 символов и отходит адресату.
>>Shluz<<
Если смс до адресата по каким-то причинам не дошло, то тебе на обратный адрес, который ты указал (E-mail), придёт письмо от Mailer-Deamon, что сообщение не дошло до адресата

← →
Shluz (2003-06-30 14:50) [18]

← →
vidiv (2003-07-01 07:49) [19]

> http.Get(""+msgSMS(Edit1.Text));
> ушло как -то :)

Неужеле из моей проги взял:)))
там вместо "" был написан http адрес сервиса моего оператора!
http://www.stmobile.ru/sms/sms.php ....

← →
Shluz (2003-07-01 08:32) [20]

ага именно из твоей :)) и у меня тоже было www.mts.ru/sms/...

← →
SemFLY (2003-07-02 23:36) [21]

Какой шлюз то для МТС... а ? может все-таки кто-нить знает ?

SMS своими руками ... Найти похожие ветки