/>/>/>/>/>/>Вступ
Темароботи: «Розробка програми для сумісної роботи з додатками Microsoft PowerPoint із використаннямтехнології OLE.»
Завдання: Розробитипрограму, що надає користувачу можливості керування додатками Microsoft PowerPoint: запусквказаного додатку, переключення слайдів (вперед, назад, перший, останній, повказаному номеру слайду), виведення інформації про слайд (його номер, версія PowerPoint тощо), коректнезавершення і вигруження з пам’яті презентації, що переглядається. Програмаповинна бути виконана з використанням технології OLE.
Мовапрограмування: Delphi в середовищі Borland Delphi 7
Операційнасистема: WINDOWS XP
/>/>/>/>/>1. Постановка задачі
При виконанніданого курсового проекту потрібно вирішити наступні задачі:
1. Запуск вказаногокористувачем додатку PowerPoint.
2. Переключення слайдів: вперед, назад, перший, останній, повказаному номеру слайду.
3. Виведення інформації про слайд, такої як його номер, версія PowerPoint тощо.
4. Коректне завершення і вигруження з пам’яті презентації, щопереглядається.
5. Програма повинна бути компактною та завжди бути поверх всіх вікон.
Вихіднимиданими є:
1. Шлях до файлу презентації St1;
2. Номер слайду, обраного користувачем Num. Цей параметр єопціональним, тобто таким, що не є обов’язковим. 2. Теоретичні відомості
MicrosoftPowerPoint
MicrosoftPowerPoint (повна назва – Microsoft Office PowerPoint) – програма для створенняі проведення презентацій, що є частиною Microsoft Office і доступна в редакціяхдля операційних систем Microsoft Windows і Mac OS.
PowerPointє частиною Microsoft Office. Це дозволило PowerPoint стати найбільшпоширеною у всьому світі програмою для створення презентацій. Файлипрезентацій PowerPoint часто пересилаються користувачами програми на іншікомп'ютери, що означає необхідну сумісність з ними програмконкурентів. Проте, оскільки PowerPoint має можливість підключення елементівінших застосувань через OLE, деякі презентації стають сильно прив'язаними доплатформи Windows, що робить неможливим відкриття даних файлів, наприклад, уверсії для Mac OS. Це призвело до переходу на відкриті стандарти, такі якPDF і OASIS OpenDocument.
ТехнологіяOLE
OLE(англ. Object Linking and Embedding) – технологія зв'язування та впровадженняоб'єктів в інші документи та об'єкти, розроблені корпорацією Майкрософт.
OLEдозволяє передавати частину роботи від однієї програми редагування до іншої іповертати результати тому. Наприклад, встановлена на персональномукомп'ютері видавнича система може послати якийсь текст на обробку в текстовийредактор, або деяке зображення в редактор зображень за допомогою OLE-технології.
Основнаперевага використання OLE (крім зменшення розміру файлу) в тому, що вонадозволяє створити головний файл, картотеку функцій, до якої звертаєтьсяпрограма. Цей файл може оперувати даними з вихідної програми, які післяобробки повертаються у вихідний документ.
OLEвикористовується при обробці складених документів (англ. compound documents),може бути використана при передачі даних між різними непов'язаними між собоюсистемами за допомогою інтерфейсу переносу (англ. drag-and-drop), а також привиконанні операцій з буфером обміну. Ідея запровадження широковикористовується при роботі з мультимедійним змістом на веб-сторінках (приклад –Веб-ТБ), де використовується передача зображення, звуку, відео, анімації всторінках HTML (мова гіпертекстової розмітки) або в інших файлах, такожвикористовують текстову розмітку (наприклад, XML та SGML). Однак,технологія OLE використовує архітектуру «товстого клієнта», тобто мережевий ПКіз надлишковими обчислювальними ресурсами. Це означає, що тип файлу абопрограма, яку намагаються впровадити, повинна бути присутнім на машиніклієнта. Наприклад, якщо OLE оперує таблицями Microsoft Excel, то програмаExcel повинна бути інстальована на машині користувача. 3. Технічне завдання Вступ
Найменування– це програма, що демонструє роботу з додатками Microsoft PowerPoint із використаннямтехнології OLE. Програмний продукт розробляється в навчальних цілях та має замету продемонструвати використання технології OLE для обміну даними міждодатками.Підстава длярозробки
Підставоюдля розробки програми є завдання на курсовий проект з дисципліни «(Вписать дисциплину)», видане викладачем.Найменування теми для курсового проекту «Розробка програми для сумісної роботиз додатками Microsoft PowerPoint із використанням технології OLE.».Призначенняпрограми
Функціональнепризначення даного програмного виробу полягає в демонстрації роботи з додаткамиMicrosoft PowerPoint із використаннямтехнології OLE.
Експлуатаційнепризначення – використання на платформі Microsoft Windows.Вимоги допрограми
Вимоги до функціональних характеристик
Програма,що розроблюється, повинна своїми характеристиками задовольняти сучасні вимогистосовно швидкості виконання процесів, зовнішнім вимогам та відповідатифункціональному та експлуатаційному призначенню. Необхідним є наступний набіроперацій (функцій) для виконання програмою:
· запуск вказаного користувачем додатку PowerPoint;
· можливість переключення слайдів: вперед, назад, перший, останній,по вказаному номеру слайду;
· виведення інформації про слайд, такої як його номер, версіяPowerPoint тощо.
· коректне завершення і вигруження з пам’яті презентації, щопереглядається;
· програма повинна бути компактною та завжди бути поверх всіх вікон.
Програмнийпродукт повинен мати зрозумілий, простий для користувача і чіткий інтерфейс,підтримуватися платформою Microsoft Windows.
Вимоги до надійності
Програмнийпродукт повинен вірно та стабільно працювати, якщо буде введено не правильне невведено взагалі ім’я файлу презентації (або файл матиме не підтримуванийпрограмою тип), а також якщо введено не допустимий номер слайду.
Умови експлуатації
Умовиексплуатації програмного продукту, що розробляється, полягають в тому, що достатньомати базовий набір знань роботи з прикладними програмами ОС Windows ХР.
/>Вимоги до складу тапараметрів технічних засобів
Написанняпрограмного продукту виконується за допомогою середовища Borland Delphi 7, мова програмування – Delphi.
Длянормальної та стабільної роботи програмного продукту повинні бути технічнізасоби з таким мінімальним набором характеристик:
· Операційна система Windows XP;
· Процесор фірми INTEL Pentium II (частота 600 MHz) або йомуеквівалентний фірми AMD;
· Оперативна пам'ять об’ємом 128 Мбайт;
· Вільне місце на жорсткому диску: 0,5 Мбайт.
/>Вимоги доінформаційної та програмної сумісності
Виконанняпрограмного продукту передбачає його подальше функціонування на платформіWindows 98/ME/2000/2003/XP.
Форматробочого модулю програми – EXE.
/>Спеціальні вимоги
Вимоги до програмноїдокументації
Розробкапрограмного продукту супроводжується низкою документів: пояснювальна записка,технічне завдання, інструкція програміста, інструкція користувача.
Усісупроводжувальні документи повинні відповідати вимогам, що сформульовані унаступних стандартах: ДСТУ 3008–95 – Документація. Звіти у сфері науки ітехніки, групі стандартів ГОСТ ЕСПД (Єдина система програмної документації) прозагальні положення, правила виконання схем алгоритмів, умовні графічніпозначення, вимоги складання технічного завдання та специфікацій, терміни тавизначення.
Стадії та етапи розробки
· Уточнення постановки задачі – 1 тиждень;
· Збір теоретичної інформації – 1 тиждень;
· Розробка технічного завдання та його затвердження – 1 тиждень;
· Розробка інтерфейсу користувача – 3 дні;
· Розробка алгоритму роботи програми – 4 дні;
· Розробка програми – 1 тиждень;
· Тестування програми та виправлення помилок – 2 дні;
· Оформлення пояснювальної записки та документації – 1 тиждень;
· Захист роботи. 4. Розробка алгоритму програми Структура програми
Програмамає графічний інтерфейс і розроблена об’єктно-орієнованою мовою Delphi. Тому її складвідрізняється від звичного складу програми, розробленої при процедурномупрограмуванні. Програма включає 8 процедур обробки натиснення кнопок(Button_RUNClick, Button_CLOSEClick, Button_NEXTClick, Button_PREVClick,Button_FIRSTClick, Button_LASTClick, Button_Way_to_FileClick,Button_NUMBERClick) на формі і 1 процедуру (Form_refresh1), що контролює їхнатискання для того, щоб програма не завершилася аварійно з помилкою.
Програмавключає бібліотеки, які приведені в таблиці 4.1.
Таблиця4.1. Бібліотеки, використані в програміНазва бібліотеки Призначення бібліотеки Windows Стандартна бібліотека операційної системи WINDOWS, в якій зберігаються основні функції Win32 АРІ Messages Стандартна бібліотека підпрограм роботи з повідомленнями SysUtils Стандартна бібліотека різних системних утиліт Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons Стандартні бібліотеки по роботі відповідно зі змінними, класами в ООП, графікою, клавішами, формами, діалогами, кнопками comobj Бібліотека по роботі з COM об’єктами OleServer, OleCtnrs Бібліотеки по роботі з OLE об’єктами PowerPointXP Додаткова бібліотека по роботі з презетаціями Опис змінних
Кожнапрограма має деякий набір змінних, що, зазвичай, підрозділяється на глобальніта локальні змінні. Локальних змінних в програмі немає, а всі глобальні змінніописані в таблиці 4.2, яка представлена нижче.
Таблиця4.2. Глобальні змінні
Назва змінної
Тип
Призначення PowerPointApp OLEVariant Змінна, що зберігає об’єкт при роботі з презентацією St1 string Змінна, що зберігає шлях до файлу презентації, вказаний користувачем Num integer Змінна, що зберігає номер слайду, що був обраний користувачем K integer Змінна, що зберігає номер поточного слайду презентації, що переглядається ALL integer Змінна, що зберігає загальну кількість слайдів в презентації Опис алгоритму програми
Програмавключає 8 процедур обробки натиснення кнопок (Button_RUNClick,Button_CLOSEClick, Button_NEXTClick, Button_PREVClick, Button_FIRSTClick,Button_LASTClick, Button_Way_to_FileClick, Button_NUMBERClick) на формі і 1процедуру (Form_refresh1), що контролює їх натискання для того, щоб програма незавершилася аварійно з помилкою.
Призапуску програми користувачу потрібно спочатку вказати шлях до файлупрезентації за допомогою клавіши «Открыть», натиснення якої обробляється процедуроюButton_Way_to_FileClick. Якщо вказаний шлях має правильний формат, то вінкопіюється текстове поле поряд з цією кнопкою і розблокується наступна кнопка«Запустить». Ця кнопка запускає вказану презентацію на перегляд. Натисненняцією кнопки обробляється процедурою Button_RUNClick. Після цього презентаціяпочинає своє виконання, а програма знаходиться поверх всіх вікон (в тому числіі презентації). Це дає можливість керувати виконанням презентації прямо зпрограми.
Керуванняпрезентацієї виконується за допомогою відповідних функціональних клавіш, щознаходяться поряд. Вони обробляються процедурами Button_NEXTClick,Button_PREVClick, Button_FIRSTClick, Button_LASTClick, Button_NUMBERClick ідають користувачу можливість переключати слайд відповідно вперед, назад,перший, останній, по номеру слайду (вказується користувачем).
Привиконанні програми можливі ситуації, коли користувачем введе номер неіснуючогослайду. Контроль вводу користувачем даних проводить процедура Button_NUMBERClick.Якщо поточний номер слайду дорівнює 1, то блокуються кнопки переключенняслайдів на 1 слайд назад та на перший слайд. Якщо поточний номер слайдудорівнює максимальній кількості слайдів, то блокуються кнопки переключенняслайдів на 1 слайд вперед та на останній слайд. За це відповідає процедураForm_refresh1. За коректне завершення перегляду слайду відповідає кнопка«Закрыть» (процедура Button_CLOSEClick).Блок-схемиалгоритмів програми
Нижчеприведені блок-схеми алгоритмів процедур програми.
/>
Рис. 4.1.Алгоритм Button_RUNClick
/> />
а) б)
Рис. 4.2.Алгоритм Button_NEXTClick (а) та Button_PREVClick (б)
/> />а) б)
Рис. 4.3.Алгоритм Button_FIRSTClick (а) та Button_LASTClick (б)
/>
Рис. 4.4.Алгоритм Button_CLOSEClick
/>
Рис. 4.5. Алгоритм Button_Way_to_FileClick
/>
Рис. 4.6. АлгоритмButton_NUMBERClick
/>
Рис. 4.7. Алгоритм Form_refresh15. Опис програми Загальні відомості
Програма,розроблена в даному курсовому проекті називається Панель управления PowerPoint. Для використанняданої програми не потрібно ніяке додаткове програмне забезпечення. Все що потрібноце вихідний файл програми (PowerPoint++.exe). Його потрібнопросто запустити на виконання. Ця програма написана на мові програмування Delphi. Середовищерозробки BorlandDelphi7.Функціональнепризначення
Основнепризначення програми – навчальне. Тобто, за допомогою цієї програми можнанавчитися правильно працювати з OLE та COM об’єктами в середовищі Windows./>Технічні засоби, що використовуються
Данийпрограмний продукт, працює на всіх ІВМ сумісних ЕОМ, не нижче Pentium II (частотою 600 MHz)./>Виклик та завантаження
Длявиклику програми потрібно запустити на виконання PowerPoint++.exe.
Програмаспоживає не більше 5% процесорного часу (AMD Athlon 3000+ CPU 1,6GHz) та 11,5 Мбайт оперативної пам’яті.Вхідні дані
Вхіднимиданими для програми є дані отримані від користувача. До цієї інформації входитьшлях до файлу презентації і номер слайду, обраного користувачем.Вихідні дані
Вихіднимиданими є двійкові слова, а також інформація, яка відображається на екранімонітора. До цієї інформації входить кількість слайдів, номер поточно слайду,версія Power Point./> 6. Посібник системного програмістаЗагальнівідомості про програму
Функціональнепризначення даного програмного виробу полягає в демонстрації роботи з додаткамиMicrosoft PowerPoint із використаннямтехнології OLE.
Експлуатаційнепризначення – використання на платформі Microsoft Windows.Структурапрограми
Програмавключає 8 процедур обробки натиснення кнопок (Button_RUNClick,Button_CLOSEClick, Button_NEXTClick, Button_PREVClick, Button_FIRSTClick,Button_LASTClick, Button_Way_to_FileClick, Button_NUMBERClick) на формі і 1процедуру (Form_refresh1), що контролює їх натискання для того, щоб програма незавершилася аварійно з помилкою.Налаштуванняпрограми
Данийпрограмний продукт у силу своїх функціональних можливостей, є налаштованим.Єдине, що може налаштувати користувач – це вибрати файл презентації для перегляду.Перевіркапрограми
Дляперевірки програми потрібно мати тільки комп’ютер. При цьому потрібно запуститипрограму PowerPoint++.EXE, вказати шлях дофайлу презентації, та натиснути кнопку перегляду. Ознакою того, що програмапрацює буде виведення презентації на екран та управління нею.Повідомленнясистемному програмісту
Програмаможе видати повідомлення про помилки 3 типів:
1)Помилка, пов’язана з неправильним вводом імені файлу, або взагалі не буловведено ім’я файлу (рис. 6.1). Для того, щоб помилка не виникала, потрібновибирати файли з розширеннями *.ppt, *pptx, *.pps.
/>
Рис. 6.1.Повідомлення про помилку 1
2) Помилка,пов’язана з не введенням номеру слайду (рис. 6.2). Для того, щоб помилкане виникала, потрібно вказати значення слайду у відповідному полі.
/>
Рис. 6.2.Повідомлення про помилку 2
3)Помилка, пов’язана з неправильним вводом номеру слайду (рис. 6.3). Длятого, щоб помилка не виникала, потрібно вказати значення слайду від 1 до максимальноїкількості слайдів, але не менші і не більше.
/>
Рис. 6.3.Повідомлення про помилку 3/>7.Посібник оператора Призначення програми
Данийпрограмний продукт призначений для демонстрації роботи з додатками Microsoft PowerPoint із використаннямтехнології OLE. В даному випадку це запуск вказаної користувачем презентації,переключення слайдів, коректне завершення презентації.Умовивиконання програми
Апаратнізасоби:
· Операційна система Windows XP;
· Процесор фірми INTEL Pentium II (частота 600 MHz) або йомуеквівалентний фірми AMD;
· ОЗУ об’ємом 128 Мбайт;
· Вільне місце на жорсткому диску: 0,5 Мбайт.
Програмнізасоби:
Windows98/ME/2000/2003/XP. Microsoft®.NET Framework 1.1 або вище.Виконанняпрограми
Роботакористувача з програмою починається з того, що потрібно вказати шлях до файлупрезентації, так як це показано на рис. 7.1.
/>
Рис. 7.1.Введення імені файлу
Даліпотрібно натиснути на клавішу «Запустить». Презентації запуститься і будевиведено повідомлення про версію Power Point, так як показано на рис. 7.2.
/>
Рис. 7.2.Запуск презентації
Післяуспішного запуску презентації розблокуються кнопки управління презентацією, атакож клавіша закриття перегляду «Закрыть».
Длятого, що управляти переглядом слайду потрібно натискати на відповідні клавішизі стрілками. Для того, щоб перейти на слайд з номером, потрібно ввести номер увідповідне поле поряд з кнопкою «№», та натиснути її, як показано на рис. 7.3.
/>
Рис. 7.3.Перехід на слайд з номером 3
Післязакінчення роботи з програмою для коректного вигруження презентації з пам’ятіпотрібно натиснути на клавішу «Закрыть». При цьому заблокуються кнопки управління презентацією(Рис. 7.4).
/>
Рис. 7.4.Закриття презентації
Висновки
Підчас виконання курсового проекту, було розроблено програмний продукт «Панельуправления PowerPoint» (PowerPoint++). Для розробки даного програмного продукту буливикористано технологію OLE.
Данийпрограмний продукт дозволяє:
1. Запускати вказанийкористувачем додаток PowerPoint.
2. Переключати слайди: вперед, назад, перший, останній, по вказаномуномеру слайду.
3. Коректне завершення і вигруження з пам’яті презентації, щопереглядається.
4. Програма має компактний графічний інтерфейс.
Вихіднимиданими є:
Середмінусів програми можна відмітити те, що програма хоча і має компактний вигляд,але все ж таки вона трохи затуляє презентацію, але це можна вирішитипереміщення програми до нижнього краю екрану, затуливши при цьому панельWindows.
Наоснові всього вище сказаного та основі плюсів і мінусів програми, можна зробитивисновок, що були виконані основні задачі поставленого завдання.
Переліквикористаних джерел
1. Фаронов В.В. Программированиебаз данных в Delphi 6: Учебный курс. – СПб: Питер, 2003. – 352 с.
2. Калиткин Н.Н. Численныеметоды. – М: Главная редакция физико-математической литературы изд-ва «Наука», 1978.– 512 с. (електронна версія)
3. Архангельский А.Я. Программированиев Delphi 6. – М.: БИНОМ, 2003. – 1120 с.
4. Фаронов В.В. Delphi6: Учеб. курс. – М.: Издатель Молгачева С.В., 2003. – 672 с.
Додаток
Лістингпрограми PowerPoint++:
unitUnit1;
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj, StdCtrls, OleServer, PowerPointXP, Buttons, OleCtnrs;
type
TForm1= class(TForm)
PowerPointApplication1:TPowerPointApplication;
PowerPointPresentation1:TPowerPointPresentation;
Button_EXIT:TButton;
Button_FIRST:TBitBtn;
Button_LAST:TBitBtn;
Button_NEXT:TBitBtn;
Button_PREV:TBitBtn;
Button_RUN:TBitBtn;
Button_CLOSE:TBitBtn;
Edit_Path:TEdit;
OpenDialog1:TOpenDialog;
Button_Way_to_File:TButton;
Button_NUMBER:TButton;
Edit_NUM:TEdit;
Label_NUM:TLabel;
procedureButton_RUNClick (Sender: TObject);
procedureButton_CLOSEClick (Sender: TObject);
procedureButton_EXITClick (Sender: TObject);
procedureButton_NEXTClick (Sender: TObject);
procedureButton_PREVClick (Sender: TObject);
procedureButton_FIRSTClick (Sender: TObject);
procedureButton_LASTClick (Sender: TObject);
procedureButton_Way_to_FileClick (Sender: TObject);
procedureButton_NUMBERClick (Sender: TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
PowerPointApp:OLEVariant; // объект самой презентации
St1: string; // строка пути кфайлу
Num, // Номер слайда,выбранного пользователем
K, // Номер текущегослайда
ALL:integer; // Общее количество слайдов
procedureForm_refresh1;
implementation
{$R*.dfm}
procedureForm_refresh1;
begin
// Еслислайд первый
If (K=1) then
begin
Form1.Button_FIRST. Enabled:=false;
Form1.Button_PREV. Enabled:=false;
Form1.Button_NEXT. Enabled:=true;
Form1.Button_LAST. Enabled:=true;
end;
// Еслислайд не первый и не последний (все остальные)
If((K>1) and (K
begin
Form1.Button_FIRST. Enabled:=true;
Form1.Button_PREV. Enabled:=true;
Form1.Button_NEXT. Enabled:=true;
Form1.Button_LAST. Enabled:=true;
end;
//Если слайд последний
If(K=ALL) then
begin
Form1.Button_FIRST. Enabled:=true;
Form1.Button_PREV. Enabled:=true;
Form1.Button_NEXT. Enabled:=false;
Form1.Button_LAST. Enabled:=false;
end;
end;
procedureTForm1. Button_RUNClick (Sender: TObject);
begin
try
PowerPointApp:=CreateOleObject ('PowerPoint. Application');
// Разблокированиеопределённых кнопок при успешном открытии презентации
Button_CLOSE.Enabled:=True;
Button_RUN.Enabled:=False;
Button_FIRST.Enabled:=false;
Button_PREV.Enabled:=false;
Button_NEXT.Enabled:=True;
Button_LAST.Enabled:=True;
Button_NUMBER.Enabled:=True;
Edit_NUM.Enabled:=true;
Label_NUM.Visible:=true;
K:=1; //Номер текущего слайда
except
ShowMessage('Ошибка! Проверьтеналичие PowerPoint.');
Exit;
end;
//Сделать PowerPoint видимым
PowerPointApp.Visible:= True;
//Открыть презентацию
PowerPointApp.Presentations. Open (St1, False, False, True);
//Запустить презентацию
PowerPointApp.ActivePresentation. SlideShowSettings. Run;
//Показать текущую версию презентации
ShowMessage(Format('Powerpoint version:%s', [PowerPointApp. Version]));
// Показать текущееколичество слайдов в презентации
ALL:=StrToInt(Format(' % s', [PowerPointApp. ActivePresentation. Slides. Count]));
Label_NUM.Caption:=InttoStr(K);
end;
procedureTForm1. Button_CLOSEClick (Sender: TObject);
begin
//Закрыть презентацию и выгрузить из памяти
PowerPointApp.Quit;
PowerPointApp:=UnAssigned;
//Заблокирование кнопок при успешном закрытии
Button_CLOSE.Enabled:=False;
Button_RUN.Enabled:=True;
Button_FIRST.Enabled:=False;
Button_PREV.Enabled:=False;
Button_NEXT.Enabled:=False;
Button_LAST.Enabled:=False;
Button_NUMBER.Enabled:=False;
Edit_NUM.Enabled:=false;
Label_NUM.Visible:=false;
end;
procedureTForm1. Button_EXITClick (Sender: TObject);
begin
Form1.Close;
end;
procedureTForm1. Button_NEXTClick (Sender: TObject);
begin
//Перейти к следующему слайду
PowerPointApp.ActivePresentation. SlideShowWindow. View. Next;
K:=K+1;
Label_NUM.Caption:=InttoStr(K);
Form_refresh1;
end;
procedureTForm1. Button_PREVClick (Sender: TObject);
begin
//Переход к предыдущему слайду
PowerPointApp.ActivePresentation. SlideShowWindow. View. Previous;
K:=K-1;
Label_NUM.Caption:=InttoStr(K);
Form_refresh1;
end;
procedureTForm1. Button_FIRSTClick (Sender: TObject);
begin
//Переход к первому слайду
PowerPointApp.ActivePresentation. SlideShowWindow. View. First;
K:=1;
Label_NUM.Caption:=InttoStr(K);
Form_refresh1;
end;
procedureTForm1. Button_LASTClick (Sender: TObject);
begin
//Переход к последнему слайду
PowerPointApp.ActivePresentation. SlideShowWindow. View. Last;
K:=ALL;
Label_NUM.Caption:=InttoStr(K);
Form_refresh1;
end;
procedureTForm1. Button_Way_to_FileClick (Sender: TObject);
begin
OpenDialog1.Execute;
St1:=OpenDialog1.FileName;
ifSt1'' then
begin
Edit_Path.text:=St1;
Button_RUN.Enabled:=true;
end
else
withApplication do
begin
NormalizeTopMosts;
MessageBox('Ошибка! Файл не выбран или имеет не правильный формат!', 'Ошибка ввода',MB_ICONERROR);
RestoreTopMosts;
end;
end;
procedureTForm1. Button_NUMBERClick (Sender: TObject);
begin
//Перейти к сладу с номером, указанным пользователем
if(Edit_NUM. Text'') then
begin
Num:=StrtoInt(Edit_NUM. Text);
if((Num>=1) and (Num
begin
PowerPointApp.ActivePresentation. SlideShowWindow. View. GoToSlide(Num);
K:=Num;
Label_NUM.Caption:=InttoStr(K);
Form_refresh1;
end
else
withApplication do
begin
NormalizeTopMosts;
MessageBox('Ошибка! Введите правильное число!', 'Ошибка ввода', MB_ICONERROR);
RestoreTopMosts;
end;
end
else
withApplication do
begin
NormalizeTopMosts;
MessageBox('Ошибка! Введите номер слайда!', 'Ошибка ввода', MB_ICONERROR);
RestoreTopMosts;
end;
end;
end.