Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/36: Рейтинг темы: голосов - 36, средняя оценка - 4.86
 Аватар для Oro4imaru
0 / 0 / 0
Регистрация: 18.06.2010
Сообщений: 41

Отправка смс

15.08.2010, 02:44. Показов 7136. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток в очередной раз прошу вашей помощи:
код программы примерно такой (прошу прощения за синтаксис):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Psock, NMsmtp;
type
TForml = class(TForm)
oper: TComboBox;
sms: TMemo;
Labell: TLabel;
Label2: TLabel;
tel: TEdit;
Label3: TLabel;
Buttonl: TButton;
NMSMTP1: TNMSMTP;
kolvo: TLabel;
procedure ButtonlClick(Sender: TObject);
procedure smsChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Forml: TForml;
implementation
{$R *.dfm}
procedure TForml.ButtonlClick(Sender: TObject);
var
num: string; 
begin
NMSMTP1.PostMessage.Body.Clear; 
NMSMTP1.PostMessage.Body.AddStrings(sms.Lines);
//проверяем, какого оператора выбрал пользователь
case oper.Itemlndex of
0: num := '38066'+tel.Text+'@sms.jeans.com.ua'//Джине
1: num := '38050'+tel.Text+'@sms.umc.com.ua'; //UMC
2: num := '38067'+tel.Text+'@sms.kyivstar.net'; //Киевстар
end;
NMSMTP1.PostMessage.ToAddress.Add(num); //адрес получателя
NMSMTP1.Connect; //соединяемся с сервером
NMSMTP1.SendMail; //отправляем почту
NMSMTP1.Disconnect; //отсоединяемся от сервера
//выводим сообщение об успешной отправке
ShowMessage{'Сообщение отправлено! '+ num) ;
end;
procedure TForml.smsChange(Sender: TObject);
begin
//количество введенных символов
kolvo.Caption := IntToStr(Length(sms.Text));
end;
end.

подскажите как сделать отправку на список рассылки например из ста номеров разных операторов который лежит в документе.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.08.2010, 02:44
Ответы с готовыми решениями:

Отправка СМС с USB модема. Ограничение в 56 символов на смс. Что делать?
Доброго времени суток уважаемые форумчане. Недавно возникла задача написания программы для отправки смсок через модем. Так как сам в...

Отправка смс
кто нибуть делал программу для отправки бесплатных смс?? киньте исходник! или хотя бы post запрос

Отправка смс с компа
Здравствуйте. Заранее извиняюсь если тема не в нужном разделе. Пишу программу одна из функций которой, отправка смс. Отправляет через...

2
 Аватар для Romantik_FM
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
15.08.2010, 15:57
посмотри здесь. я подымал этот вопрос
Смс программа
0
 Аватар для Oro4imaru
0 / 0 / 0
Регистрация: 18.06.2010
Сообщений: 41
17.08.2010, 00:52  [ТС]
а если в тот код вписать сервер с аси там отправка идет без капчи в теории должно работать только вот на моей 7 версии нет компонента nmsmtp скачаю 10 и попробую. Ваши соображения на этот счет господа форумчане?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.08.2010, 00:52
Помогаю со студенческими работами здесь

Отправка смс в Delphi 6.0
Помогите написать такую прогу, а то что-то не получается!

Отправка смс через USB модем
Всем привет! Никак не могу найти материал, по вопросу - как отправить смс через USB модем(в моем случаем это мегафон 1550). Т.е. нужно из...

Отправка смс по расписанию для смартфона на Delphi
Здравствуйте, уважаемые форумчане! На этом форуме я пишу первый раз, т.к. только недавно стал изучать язык программирования Delphi. В...

Отправка СМС с подменой номера отправителя
Хочется написать программу для отправки смс с подменой номера отправителя, на данном этапе я сумел реализовать программы отправки e-mail с...

Набор смс
Добрый вечер! Дали задание на заочный тур сделать программу "мобильник". Задание: Разработать приложение, позволяющее формировать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru