| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
SMS своими руками ...
Shluz © (2003-06-27 20:41:00)
Уважаемые мастера, может кто занет правильную технологию отсылки смс непосредственно на шлюз сервиса...или вообще как там все происходит :) ? а то вот это
http.Get(""+msgSMS(Edit1.Text));ушло как -то :)
SemFLY (2003-07-02 23:36:00) [1]
Какой шлюз то для МТС... а ? может все-таки кто-нить знает ?
Shluz (2003-07-01 08:32:00) [2]
ага именно из твоей :)) и у меня тоже было www.mts.ru/sms/...
vidiv (2003-07-01 07:49:00) [3]
> http.Get(""+msgSMS(Edit1.Text));
> ушло как -то :)
Неужеле из моей проги взял:)))
там вместо "" был написан http адрес сервиса моего оператора!
http://www.stmobile.ru/sms/sms.php....
Shluz (2003-06-30 14:50:00) [4]
> Delphin © вариант :)
Delphin (2003-06-30 14:44:00) [5]
>>Карелин Артем<<
Сообщение после отсылки разбиваеться на куски длиной по 120 символов и отходит адресату.
>>Shluz<<
Если смс до адресата по каким-то причинам не дошло, то тебе на обратный адрес, который ты указал (E-mail), придёт письмо от Mailer-Deamon, что сообщение не дошло до адресата
Карелин Артем (2003-06-30 13:54:00) [6]
Delphin © (28.06.03 15:20)
>>У себя эту проблему решил так: (Можно отсылать сообщения длиной до 1000 символов)
Что-то много. По стандарту телефон может принять 160 на латиннице или 70 символов в юникоде.
Shluz (2003-06-30 12:32:00) [7]
ага еще в MicroSoft отпиши, мол, не нравится, блин, мне ваша система защиты , вышлите патч на ВСЕ!! Суки!!:)
SemFLY (2003-06-30 01:37:00) [8]
Да, попробовал поискать... напряг что-то с гейтами для МТС да и д ругих не особо... может email написать в МТС ?
Shluz (2003-06-30 00:51:00) [9]
Delphin © (30.06.03 00:23)
не ну это результат операции , а дальше?? вот бы как в Аське сделать, т.е. чтоб светилось "сообщение доставлено адресату"
Delphin (2003-06-30 00:23:00) [10]
Shluz, Для статуса отправки засунь какую-нить процедуру в NMSMTP1.OnSuccess
например:
CoolTrayIcon1.ShowBaloonHint("Success "+"Message Sended",BitInfo,10);
Shluz (2003-06-30 00:20:00) [11]
блин, сам ищу !! гейтС Билл щас, кстати, с голыми тетками, наверное, в бане :))
SemFLY (2003-06-29 21:13:00) [12]
Shluz, обещал вроде гейт сказать МТС"овский, а сам пропал... :(
SemFLY (2003-06-29 14:16:00) [13]
А гейт ? ;))
Shluz (2003-06-29 13:50:00) [14]
:)))
SemFLY (2003-06-28 23:50:00) [15]
Shluz, ооо выручай... :)) буду благодарен :))
А то почти все уже сделал.., а тут опс, а гейтСА (Билла) :))) нету ...
Shluz (2003-06-28 23:01:00) [16]
могу подсказать где найти гейтСА (Билла) :j
SemFLY (2003-06-28 22:37:00) [17]
да, все хорошо, но гейт для МТС не работает :(
Москва [SMS] МТС 7095xxxxxxx@sms.gate.ru
Москва (Федеральный) [SMS] МТС 7902xxxxxxx@sms.gate.ru
Не подскажите, где можной найти гейты ? :)
Shluz (2003-06-28 19:19:00) [18]
вот еще бы статус отправки знать.. :)
Shluz (2003-06-28 19:15:00) [19]
спасибо , все понял!! (даже про шлюзы инфу кинул :)) молодец!!
Delphin (2003-06-28 15:20:00) [20]
У себя эту проблему решил так: (Можно отсылать сообщения длиной до 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;
| |
Страницы: 