> sms: TMemo;
> Label1: TLabel;
> Label2: TLabel;
> tel: TEdit;
> Label3: TLabel;
> Button1: TButton;
> NMSMTP1: TNMSMTP;
> kolvo: TLabel;
> procedure Button1Click(Sender: TObject);
> procedure smsChange(Sender: TObject);
>private
> { Private declarations }
>public
> { Public declarations }
>end;
>var
> Form1: TForm1;
>implementation
>{$R *.dfm}
>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;
>procedure TForm1.smsChange(Sender: TObject);
>begin
> //количество введенных символов
> kolvo.Caption:= IntToStr(Length(sms.Text));
>end;
>end.
⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter 17.
