Книга: Delphi. Учимся на примерах

Разработка программного кода

Разработка программного кода

По нажатию кнопки Отправить будет выполняться следующий код:

procedure TForm1.Button1Click(sender: TObject);
var
 num: string; //адрес получателя
begin
 NMSMTP1.PostMessage.Body.Clear; //очищаем текст письма
 //помещаем SMS в текст письма
 NMSMTP1.PostMessage.Body.AddStrings(sms.Lines);
 //проверяем, какого оператора выбрал пользователь
 case oper.ItemIndex of
 0: num:= '38066'+tel.text+'@sms.jeans.com.ua'; //Джинc
 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;

Сначала мы проверяем: какого оператора выбрал пользователь. Если "Джинc", то добавляем перед номером телефона "38066", если "UMC", то добавляем "38050", для "Киевстар" — "38067".

После того как мы узнали номер оператора, добавляем его к введенному номеру телефона и затем добавляем все это к адресу сервера оператора. Например, для отправки на номер "Джинc" 1565394, делаем связку "38066"+"1565394"+"@sms.jeans.com.ua".

После того как получен электронный адрес для отправки SMS, мы соединяемся с сервером, отправляем письмо и отсоединяемся. Если никаких ошибок не произошло, то мы получим сообщение об успешной отправке.

Для того чтобы пользователь видел, сколько символов он ввел, и мог контролировать длину SMS, реализуем подсчет символов при вводе сообщение. Для этого следует обработать событие sms. OnChange:

procedure TForm1.smsChange(Sender: TObject);
begin
 //количество введенных символов
 kolvo.Caption:= IntToStr(Length(sms.Text));
end;

Количество введенных символов отображается в метке kolvo. Программа отправки сообщений SMS в действии представлена на рис. 17.2.


Рис. 17.2. Программа отправки SMS через Internet в действии

Оглавление книги


Генерация: 0.053. Запросов К БД/Cache: 0 / 0
поделиться
Вверх Вниз