Указания к выполнению работы

 

Этап 1. На этом этапе требуется создать новое приложение, расположить на форме компонент для выбора графических файлов TOpenPictureDialog, кнопку любого типа и добавить в текст программы, в раздел uses, модуль с названием ComObj.

Первым делом в обработчике события OnClick для кнопки объявите переменную для создания сервисного процесса OLE (предварительно проверьте, установлен ли на вашем ПК текстовый процессор Microsoft Word, если нет, то выполнение и демонстрация создаваемого приложения невозможны):

 

Word : OleVariant;

 

Проинициализируйте её:

 

Word := CreateOleObject ('Word.Basic'); // Создать процесс-сервер "Word Basic"

 

Этап 2. После операторов инициализации, пользуясь связью с сервером через переменную Word, внесите в текст программы алгоритм формирования и сохранения документов (применяйте при этом операторы языка Word Basic, описание которых имеется в справочной системе по Microsoft Office), например:

 

        MessageBox(0, 'Укажите графический файл для комплектации документа',

'Внимание!', mb_OK);

if OpenPictureDialog1.Execute then begin

// Создать новый документ по шаблону "Normal"

Word.FileNew ('Normal');

// добавить в него три строки текста:

Word.Insert ('Документ test.doc создан по технологии OLE'#13#13);

Word.Insert ('Это вторая линия документа'#13);

Word.Insert ('А это третья'#13);

// добавить рисунок

Word.InsertPicture (OpenPictureDialog1.FileName);

Word.Insert (#13); // перевести строку

Word.InsertDateTime; // указать время

// сохранить документ

Word.FileSaveAs (директория:\[каталог\]имя файла.doc, 0);

Word.FileNew ('Normal'); // создать ещё один документ

Word.Insert ('Новый документ'#13); // добавить в него одну строку

Word.AppShow; // показать редактор с открытыми файлами

end;

 

Соответственно вместо выражения "директория:\[каталог\]имя файла.doc" требуется указать имя файла с полным путём к нему (в одиночных апострофах) для сохранения документа.

Выполнение операторов, начиная с

 

Word := CreateOleObject ('Word.Basic');

 

по

 

Word.AppShow;

 

требуется защитить при помощи конструкции:

 

try // выполнить следующее

…

except // в случае ошибки:

…

end;

 

Для корректного завершения программы при условии отсутствия установленного текстового процессора (в случае возникновения исключительной ситуации) нужно задать выполнение следующих действий:

 

MessageBox (0, 'Ошибка при создании документа',

'Внимание!', mb_OK); // выдать сообщение

Close; // и закрыть окно программы

 

Этап 3. Откомпилируйте проект.

Запустите на выполнение EXE - файл.

При запросе на указание графического файла выберите любой (например, в формате BMP из директории Windows).

После просмотра созданных doc-файлов (в запущенном из проекта редакторе Microsoft Word) закройте окно текстового процессора и окно Вашего приложения.

Запустите отдельно программу Microsoft Word, откройте созданный (и сохранённый из Вашего проекта) документ, продемонстрируйте его содержимое преподавателю.

 

Контрольные вопросы и задания

 

1. Что такое OLE-клиент?

2. Что такое OLE-сервер?

3. Можно ли сформировать и сохранить файл документа MSWord, не запуская оболочки редактора этого приложения? Как это сделать?

4. Как запустить процесс-сервер Word Basic?

5. Будет ли работать программа, написанная Вами, на ПК, где не установлен MSOffice? Почему?

6. Ваша программа является OLE-клиентом или OLE-сервером? Объясните.