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

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

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

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

Оглавление книги