Сергей Парижский - Delphi. Учимся на примерах

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.

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.

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

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

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

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