Сначала мы проверяем: какого оператора выбрал пользователь. Если "Джин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 в действии
Полный исходный код модуля
Полный код модуля программы отправки SMS через Internet представлен в листинге 17.1.
Листинг 17.1. Модуль программы отправки SMS через Internet