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

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

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

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

Полный исходный код модуля

Полный код модуля программы отправки SMS через Internet представлен в листинге 17.1.

Листинг 17.1. Модуль программы отправки SMS через Internet

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Psock, NMsmtp;

type TForm1 = class(TForm)
 oper: TComboBox;
 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.

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

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

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

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

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

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

Компонент	Свойство	Значение	Пояснение
Label1 (категория Standard)	Caption	FTP-сервер	Надпись метки
Left	56	Отступ слева
Top	16	Отступ сверху
Label2	Caption	Имя пользователя	Надпись метки
Left	16	Отступ слева
Top	48	Отступ сверху
Label3	Caption	Пароль	Надпись метки
Left	72	Отступ слева
Top	80	Отступ сверху
Edit1 (категория Standard)	Name	ftpserver	Новое имя компонента
Text	ftp.narod.ru	Адрес FTP-сервера
Left	120	Отступ слева
Top	8	Отступ сверху
Edit2	Name	name	Новое имя компонента
Text	test6001	Имя пользователя
Left	120	Отступ слева
Top	40	Отступ сверху
Edit3	Name	pass	Новое имя компонента
Left	120	Отступ слева
Top	72	Отступ сверху
Edit4	Name	port	Новое имя компонента
Text	21	Имя пользователя
Left	120	Отступ слева
Top	104	Отступ сверху
Edit5	Name	del	Новое имя компонента
Left	512	Отступ слева
Top	8	Отступ сверху
Edit6	Name	cd	Новое имя компонента
Left	512	Отступ слева
Top	40	Отступ сверху
Edit7	Name	cmd	Новое имя компонента
Left	512	Отступ слева
Top	72	Отступ сверху
Edit8	Name	md	Новое имя компонента
Left	512	Отступ слева
Top	104	Отступ сверху
Edit9	Name	rd	Новое имя компонента
Left	512	Отступ слева
Top	136	Отступ сверху
Edit10	Name	download	Новое имя компонента
Left	512	Отступ слева
Top	168	Отступ сверху
Button1 (категория Standard)	Caption	Подключиться	Надпись на кнопке
Left	8	Отступ слева
Top	144	Отступ сверху
Button2	Caption	Отключиться	Надпись на кнопке
Left	123	Отступ слева
Top	144	Отступ сверху
Button3	Caption	Загрузить файл на сервер	Надпись на кнопке
Left	512	Отступ слева
Top	200	Отступ сверху
Button4	Caption	Удалить	Надпись на кнопке
Left	672	Отступ слева
Top	8	Отступ сверху
Button5	Caption	Изменить каталог	Надпись на кнопке
Left	672	Отступ слева
Top	40	Отступ сверху
Button6	Caption	Выполнить команду	Надпись на кнопке
Left	672	Отступ слева
Top	72	Отступ сверху
Button7	Caption	Создать каталог	Надпись на кнопке
Left	672	Отступ слева
Top	104	Отступ сверху
Button8	Caption	Удалить каталог	Надпись на кнопке
Left	672	Отступ слева
Top	136	Отступ сверху
Button9	Caption	Скачать файл	Надпись на кнопке
Left	672	Отступ слева
Top	168	Отступ сверху
Memo (категория Standard)	Name	status1	Новое имя компонента, предназначенного для отображения состояния соединения
Lines	Статус:	Текст в поле
Left	264	Отступ слева
Top	8	Отступ сверху
Height	217	Высота
Width	233	Ширина
OpenDialog (категория Dialogs)	Name	Open1	Новое имя компонента, который будет использоваться для открытия файлов
SaveDialog (категория Dialogs)	Name	Save1	Новое имя компонента, который будет использоваться для сохранения файлов
NMFTP (категория FastNet)	Name	ftp	Новое имя главного компонента программы

Полученная форма должна соответствовать рис. 18.1.

Рис. 18.1. Форма FTP-клиента

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

Обработаем нажатия кнопок соединения и отключения от сервера. Обработчик события OnClick для кнопки Подключиться:

procedure TForm1.Button1Click(sender: TObject);
begin
 ftp.Host:= ftpserver.Text; //ftp-сервер
 ftp.UserID:= name.Text;//логин
 ftp.Password:= pass.Text;// пароль
 ftp.Port:= StrToInt(port.Text); //порт для подключения
 //соединяемся с сервером
 if not ftp.Connected then ftp.Connect;
end;

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

Обработаем нажатие кнопки Отключиться:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if ftp.Connected then//если соединен
 ftp.Disconnect;//отключиться от сервера
end;

Если при нажатии кнопки Отключиться установлено соединение с сервером, то мы разрываем его.

Теперь обработаем нажатие кнопок, которые служат для работы с сервером. Обработчик события OnClick для кнопки Удалить: