Delphi

 //проверяем, какого оператора выбрал пользователь

 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.

Глава 18 FTP-клиент

Постановка задачи

Разработать FTP-клиент. Программа должна соединяться с FTP-cepвером, проходить аутентификацию и предоставлять пользователю возможность работать с файлами, которые находятся на сервере. У пользователя должна быть возможность передавать и получать файлы, создавать и удалять каталоги и т.п. Также пользователь может выполнять свои собственные команды на сервере.

Разработка формы

Создайте новый проект Delphi. Приготовьтесь к тому, что форма получится довольно большой (ширина — около 800 пикселей) и будет содержать большое количество разных кнопок и полей ввода. Присвойте ей заголовок FTP-client (свойство Caption) и разместите компоненты согласно табл. 18.1.

Таблица 18.1. Свойства формы FTP-клиента