Delphi. Учимся на примерах - [35]

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

Рис. 17.1. Форма программы для отправки SMS

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

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

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 в действии

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

Полный код модуля программы отправки 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