Программирование в 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; 
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; 
  Socket: TCustomWinSocket);