Программирование в Delphi: создание приложений. Часть II

 

 

 

МИНИСТЕРСТВО  ПРОСВЕЩЕНИЯ РОССИЙСКОЙ 

ФЕДЕРАЦИИ 

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ 

ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО 

ОБРАЗОВАНИЯ 

«ЛИПЕЦКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ 

УНИВЕРСИТЕТ ИМЕНИ П.П. СЕМЕНОВА-ТЯН-ШАНСКОГО» 

ИНСТИТУТ ЕСТЕСТВЕННЫХ, МАТЕМАТИЧЕСКИХ И 

ТЕХНИЧЕСКИХ НАУК 

КАФЕДРА ИНФОРМАТИКИ, ИНФОРМАЦИОННЫХ 

ТЕХНОЛОГИЙ И ЗАЩИТЫ ИНФОРМАЦИИ 

 

 

З.А. КОНОНОВА, С.О. АЛТУХОВА 

 

 

ПРОГРАММИРОВАНИЕ В DELPHI: СОЗДАНИЕ ПРИЛОЖЕНИЙ 

 ЧАСТЬ II 

УЧЕБНОЕ ПОСОБИЕ 

 

 

 

ЛГПУ имени П.П. Семенова-Тян-Шанского 

Липецк - 2020 

 

 

 

УДК 681.142.4: 50 
Рекомендовано к печати  кафедрой 

ББК 20в 631  
информатики, информационных 

К 64  
 
технологий и защиты информации 

 
 
 
 ЛГПУ имени  П.П. Семенова-Тян-Шанского 

 
 
 
Протокол № 9 от 10.06.2020 г. 

Кононова, З.А. Программирование в Delphi: создание приложений: учебное 
пособие / З.А. Кононова, С.О. Алтухова – Липецк: ЛГПУ имени П.П. СеменоваТян-Шанского, 2020.− Ч. 2. – 87 с. 
ISBN 978-5-907168-97-8 (ч. 2) 
ISBN 978-5-88526-907-0 

Учебное пособие разработано в соответствии с требованиями 

ФГОС ВПО по направлению подготовки 44.03.05 «Педагогическое 
образование» 
(с 
двумя 
профилями 
подготовки) 
(профиль 

«Информатика 
и 
математика», 
«Математика 
и 
информатика», 

«Информатика и робототехника», «Информатика и ЦОР», «ИС», 
«ИВТ», 
«ПО(ИВТ)», 
«ПМИ»), 
формирует 
основы 
навыков 

программирования на языках высокого уровня. Предназначено для 
студентов вышеперечисленных направлений и профилей подготовки. 

УДК 681.142.4: 50      

 
ББК 20в 631 
К 64 

Рецензенты: 

С.В. Мицук, канд. ф.-м. наук, доцент ФГБОУ ВО «Липецкий 

государственный педагогический университет 

имени П.П. Семенова-Тян-Шанского 

Е.В. Клейменова,  канд. пед. наук, доцент кафедры гуманитарных и 

естественнонаучных дисциплин, Липецкий филиал РАНХиГС 

ISBN 978-5-907168-97-8 (ч. 2)    © ФГБОУ ВО «Липецкий  
ISBN 978-5-88526-907-0         государственный педагогический 

университет имени  П.П.Семенова-ТянШанского», 2020 

       © З.А. Кононова, 2020 
       © С.О. Алтухова, 2020 

ОГЛПАВЛЕНИЕ 

Оглавление.……………………………………..…...…….…4 

Предисловие………………………………………….………5 

1. Организация ссылки на ресурс Интернета и 

организация связи между компьютерами………….7 

2. Совместная работа среды Delphi и Microsoft 

Office…………………………………………………19 

2.1. Обработка документов MS Word в Delphi…..….20 

2.2. Разработка программы совместной работы среды   

Delphi и MS Word…………………………….….35 

3. Порядок 
выполнения 
лабораторной 
работы 

……………………….………….…….…...…...…….82 

Заключение……………………………………………….83 

Список рекомендуемой литературы……………..………...84 

Список использованной литературы………………………86 

 

 

 
 
 
 
 
 
 
 

 

ПРЕДИСЛОВИЕ 
 

Для 
создания 
современных 
сложных 

многофункциональных 
компьютерных 
приложений 

недостаточно использовать процедурные языки, более пригодны 
в 
этом 
случае 
объектно-ориентированные 
языки. 
Среда 

программирования Delphi (Embarcadero 2010) базируется на 
языке 
Object 
Pascal, 
который 
удобен 
не 
только 
для 

программирования, но и в качестве обучающего языка. Delphi – 
это среда разработки программ, ориентированных на работу в 
Windows. Система визуального объективно-ориентированного 
проектирования Delphi позволяет: 

  создавать законченные приложения для Windows, 

начиная 
от 
вычислительных 
и 
логических, 
заканчивая 

использующих графику и мультимедиа;  

 создавать профессиональный оконный интерфейс для 

любых приложений, который удовлетворяет всем требованиям 
Windows и использует функции, процедуры и библиотеки 
Windows; 

  создавать 
свои 
динамически 
присоединяемые 

библиотеки (Dll) компонентов, форм, функций, которые затем 
можно использовать из других языков программирования;  

 создавать мощные системы работы с локальными и 

удаленными базами данных любых типов;  

 формировать и печатать сложные отчеты, включающие 

таблицы, графики, рисунки;       создавать справочные системы 
(файлы.hlp);  базы данных;  

 создавать приложения для работы с пакетом Microsoft 

Office;  

 разрабатывать приложения для совместной работы с 

платформой 1С: Предприятие;  

 разрабатывать серверные приложения и приложения 

для работы с Internet.  

В процессе проектирования формы редактор кода Delphi 

автоматически генерирует код программы, включая в нее 
соответствующие 
фрагменты, 
описывающие 
каждый 

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

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

выполняющими 
некоторые 
служебные 
функции. 
Они 

отображаются в виде значка в процессе проектирования и не 
видны при работе приложения. 

В 
данном 
учебном 
пособии 
рассматриваются 

возможности совместной работы среды программирования 
Delphi Microsoft Office – WORD. Учебных и методических 
изданий как в печатном, так и в электронном виде по этой 
тематике недостаточно. Поэтому возникла необходимость в 
разработке данного учебного пособия.  Мы постараемся 
показать несколько приемов программирования, используемых 
для решения прикладных задач. 

 

 

 

 

 

 
 

 

1. Организация 
ссылки 
на 
ресурс 
Интернета 
и 

организация связи между компьютерами 

Среда Delphi позволяет составлять программы для работы с 
Интернетом. Рассмотрим  сначала саму простую программу 
перехода на любой сайт, адрес которого вводится с формы. Для 
этого требуется лишь прописать в тексте программы процедуру 
ShellExecute(0,'open',PChar(s),nil,nil,1), 
предварительно 

добавив в список используемых модулей модуль ShellApi. 
Адрес сайта можно вводить в любом тестовом компоненте: 
edit, label, labelededit. Параметр s представляет собой 
следующее значение: s:='http://www.'+edit1.Text; Внешний 
вид спроектированной формы представлен на рис. 1. Начав 
программу и щелкнув по кнопке «ОК», запустим интернетбраузер, используемый на компьютере по умолчанию.   
Откроется искомый сайт. Пример выполнения программы 
представлен на рис. 3-6. Аналогичным образом можно 
зайти  на почтовые сервисы и работать с личной почтой. 
Ниже приведен код программы. 
 

 

Рис. 1.  Внешний вид спроектированной формы 

 

Рис. 2. Окно проекта программы 

 

var 
  Form1: TForm1; 
  s:string; 
   isOK:boolean=false; 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
s:='http://www.'+edit1.Text; 
ShellExecute(0,'open',PChar(s),nil,nil,1); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  {Присваиваем свойствам Host и Port нужные значения} 
  ClientSocket1.Address:=Edit2.Text;                                                
ClientSocket1.Host:=(memo1.Text); 
  {Пытаемся открыть сокет и установить соединение} 
  ClientSocket1.Open; 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin      {Как только произошло соединение - закрываем сокет и 
прерываем связь} 
 
  ClientSocket1.Close; 
serversocket1.Active:=true; 
form1.caption:='жду'; 
memo1.Text:=''; 
 memo2.Lines.Add( ClientSocket1.Host) ; 
edit2.ReadOnly:=true; 

end; 
 
procedure TForm1.ClientSocket1Connect(Sender: TObject; 
  Socket: TCustomWinSocket); 
begin 
   caption:='содинение прошло успешно'; 
end; 
 
procedure TForm1.ClientSocket1Disconnect(Sender: TObject; 
  Socket: TCustomWinSocket); 
begin 
 caption:='содинение разорвано'; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
memo1.Clear; 
memo2.Clear; 
end; 
 
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: 
Word; 
  Shift: TShiftState); 
begin 
if (key=vk_return) and (memo1.Text<>'') then 
begin 
  memo2.Lines.Add(memo1.Text); 
  if 
isok 
then 

serversocket1.Socket.Connections[0].SendText(memo1.Text);// else 
 // clientsocket1.Socket.SendText(memo1.Text); 
  memo1.Text:=''; 
 
end; 
end; 
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; 
  Socket: TCustomWinSocket);