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

Тут можно читать онлайн Сергей Парижский - Delphi. Учимся на примерах - бесплатно полную версию книги (целиком) без сокращений. Жанр: comp-programming, издательство МК-Пресс, год 2005. Здесь Вы можете читать полную версию (весь текст) онлайн без регистрации и SMS на сайте лучшей интернет библиотеки ЛибКинг или прочесть краткое содержание (суть), предисловие и аннотацию. Так же сможете купить и скачать торрент в электронном формате fb2, найти и слушать аудиокнигу на русском языке или узнать сколько частей в серии и всего страниц в публикации. Читателям доступно смотреть обложку, картинки, описание и отзывы (комментарии) о произведении.
  • Название:
    Delphi. Учимся на примерах
  • Автор:
  • Жанр:
  • Издательство:
    МК-Пресс
  • Год:
    2005
  • Город:
    Киев
  • ISBN:
    ISBN 966-8806-02-6
  • Рейтинг:
    4/5. Голосов: 81
  • Избранное:
    Добавить в избранное
  • Отзывы:
  • Ваша оценка:
    • 80
    • 1
    • 2
    • 3
    • 4
    • 5

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

Delphi. Учимся на примерах - описание и краткое содержание, автор Сергей Парижский, читайте бесплатно онлайн на сайте электронной библиотеки LibKing.Ru

Данная книга — продолжение предыдущей книги автора, "Delphi. Только практика". Также как и в "Delphi. Только практика", в данном издании подробно рассмотрены программы для сетей, различные шуточные программы, простые игрушки, некоторые полезные приложения, разработка приложений в стиле Windows XP. В частности, здесь можно найти такие примеры как бесплатная отправка SMS, FTP-клиент, простое шифрование, CGI-сценарии и многое другое. Описаны методы работы с системным реестром Windows и INI-файлами, а также некоторые важные аспекты программирования на системном уровне с применением функций Windows API. Для облегчения понимания программ каждый пример содержит комментарии сложных строк кода.

Книга ориентирована как на тех, кто уже имеет опыт создания приложений в Delphi, так и на начинающих программистов. Для начинающих пользователей Delphi в конце книги добавлено приложение с описанием синтаксиса языка программирования Object Pascal.

Delphi. Учимся на примерах - читать онлайн бесплатно полную версию (весь текст целиком)

Delphi. Учимся на примерах - читать книгу онлайн бесплатно, автор Сергей Парижский
Тёмная тема
Сбросить

Интервал:

Закладка:

Сделать

begin

Form1.Hide;

end;

end.

Полный код модуля клиентской программы представлен в листинге 16.2.

Листинг 16.2. Модуль клиентской программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, StdCtrls, ExtCtrls;

type TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Client: TClientSocket;

Timer1: TTimer;

port: TEdit;

ip: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button2Click(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);

procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

Timer1.Enabled:= False;//выключаем таймер

Client.Close; //закрываем соединение

Client.Active:= False; //отключаемся от сервера

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

Client.Close; //закрываем соединение

Client.Active:=False; //отключаемся от сервера

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Client.Port:= StrToInt(port.Text); //считываем порт

Сlient.Address:= ip.text; //считываем ip-адрес сервера

Client.Active:= True; //соединяемся

Timer1.Enabled:= True; //включаем таймер

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

cur:TPoint; //хранит координаты указателя мыши

begin

GetCursorPos(cur); //узнаем координаты указателя мыши

//отправляем данные на сервер

Client.Socket.SendText(IntToStr(cur.X) +'_' + IntToStr(cur.Y));

end;

procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);

begin

ShowMessage('Connected!'); //показать сообщение

end;

procedure TForml.ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);

begin

ShowMessage('Disconnected!'); //сообщение при отсоединении

end;

end.

⊚ Все файлы проекта и исполняемый файл клиентской программы находятся на прилагаемом к книге компакт-диске в папке Chapter_16\Client, а файлы проекта и исполняемый файл серверной программы — в папке Chapter_16\Server.

Глава 17

Бесплатная отправка SMS через Internet

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

Разработать программу для бесплатной отправки SMS через Internet. Осуществлять отправку через сайты популярных украинских операторов ("UMC", "Джинс", "Киевстар"…)

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

Для того чтобы отправить SMS, необходимо знать номер телефона, на который мы будем отправлять сообщение, оператора этого номера и, естественно, — само отправляемое сообщение.

Создайте новый проект Delphi и присвойте форме заголовок SMS-sender (свойство Caption). Разместите на форме компонент Label категории Standardи присвойте его свойству Caption значение Оператор:. Справа от него разместите компонент ComboBox (раскрывающийся список) категории Standardи измените его свойства согласно табл. 17.1.

Примечание

Свойство ComboBox.Items — это список строк, редактируемый в специальном окне, которое открывается по двойному щелчку мышью в соответствующем поле инспектора объектов.

Таблица 17.1. Свойства компонента ComboBox

Свойство Значение Пояснение
Name oper Новое имя компонента
Text <���Выберите оператора> Текст в поле
Items Джинс(066) UMC(050) Киевстар(067) Перечень операторов, на которых мы будем отправлять SMS

Примечание

В данном примере используется перечень мобильных операторов, действующих на территории Украины. Если вы живете в другой стране, используйте собственный список операторов.

Под первой меткой разместите еще один компонент label, присвоив его свойству caption значение Номер:. Справа от него разместите компонент Edit категории Standardи назовите его tel (свойство Name).

Ниже этих двух компонентов разместите компонент Label с текстом Сообщение: (свойство Caption). Под ним разместите компонент Memo категории Standard, присвоив ему имя sms. Для него можно поставить ограничение на ввод 160 символов, поскольку мобильные операторы обычно разрешают отправлять с Web-сайта сообщения длиной не больше 160 символов. Для того чтобы установить это ограничение, присвойте свойству sms.MaxLength значение 160.

Для отображения количества символов, введенных в поле sms, разместите под memo-полем компонент Label и измените его свойства согласно табл. 17.2.

Таблица 17.2. Свойства компонента Label для отображения длины сообщения

Свойство Значение Пояснение
Name kolvo Новое имя компонента
Caption 0 Надпись метки
Font.Color clRed Цвет надписи — красный
Font.Size 18 Размер шрифта

В правом нижнем углу формы разместите кнопку (компонент Button категории Standard), присвоив ее свойству Caption значение Отправить.

Для отправки SMS нам понадобится компонент для передачи электронной почты через SMTP. Такой компонент есть на вкладке FastNetи называется он NMSMTP. Для того чтобы установить некоторые настройки, у вас должен быть собственный адрес электронной почты. Бесплатных почтовых серверов в Internet предостаточно, так что с этим проблем возникнуть не должно.

В рассматриваемом примере будет фигурировать адрес электронной почты автора (heel-adm@yandex.ru). При желании, все перечисленные ниже настройки, конечно же, можно заменить собственными.

В свойстве NMSMTP1.Host следует указать smtp-сервер. Для yandex.ru это свойство должно принять значение smtp.yandex.ru. В свойстве UserID необходимо указать логин отправителя — указываем heel-adm. Теперь разверните свойство PostMessage и измените значение вложенного свойства FromAddress на heel-adm@yandex.ru, a FromName — на heel-adm. Значение свойства Port измените на 25.

Полученная в результате форма должна соответствовать рис. 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); //адрес получателя

Читать дальше
Тёмная тема
Сбросить

Интервал:

Закладка:

Сделать


Сергей Парижский читать все книги автора по порядку

Сергей Парижский - все книги автора в одном месте читать по порядку полные версии на сайте онлайн библиотеки LibKing.




Delphi. Учимся на примерах отзывы


Отзывы читателей о книге Delphi. Учимся на примерах, автор: Сергей Парижский. Читайте комментарии и мнения людей о произведении.


Понравилась книга? Поделитесь впечатлениями - оставьте Ваш отзыв или расскажите друзьям

Напишите свой комментарий
x