Разработчики Delphi позаботились о том, чтобы сделать удобной работу по СОМ-технологии с наиболее часто встречающимися программами, и Word, разумеется, входит в это число. При установке Delphi 6 инсталлятор задает вопрос, для какой версии Word (97 или 2000) устанавливать компоненты связи с СОМ-сервером. Принципиальной разницы между версиями Word с точки зрения СОМ-технологии нет: все, что работает в 97-й версии, будет работать и в 2000, и в XP (Delphi 7 имеет специальные компоненты для Word XP).
Рис. 26.4 Зависший Word в списке процессов.
Для подключения к основным СОМ-серверам на закладке "Servers" палитры компонентов имеются компоненты для Word, Excel, PowerPoint, Access, Outlook, и т.д. (Рис. 22.5).
Рис. 26.5 Страница Servers палитры компонентов в Delphi.
Следует отметить, что для подключения к СОМ-серверу вовсе необязательно использовать предлагаемые компоненты. Скажем, для работы с AutoCAD в Delphi нет соответствующего компонента, но это нисколько не помешает нам подключиться к нему (см. п. 7).
Поместим на форму невизуальные компоненты WordApplication, WordDocument, WordFont и WordParagraphFormat. Их функции представлены на Рис. 22.6. Компонент WordApplication обеспечивает собственно подключение к Word, открытие и сохранение документов. Компонентов типа WordDocument может быть несколько, каждый из них соответствует одному документу, открытому в Word. Компоненты WordFont и WordParagraphFormat отвечают за форматирование текущего абзаца и текущего шрифта в документе.
Для задания параметров, передаваемых непосредственно методам СОМ-сервера, используется специальный тип данных OLEVariant. Если мы работаем только с компонентами вроде WordFont и WordParagraphFormat, тип данных OLEVariant не нужен. Но при прямом вызове методов объектов Word без него не обойтись.
Рис. 26.6 Функции компонентов управления Word'ом.
Поэтому заведем в нашей процедуре переменную par типа OLEVariant. Далее подключаем компонент WordApplication1 к серверу вызовом его метода Connect, создаем новый пустой документ, добавив элемент список документов (WordApplication1.Documents.Add) и присвоив ссылку на новый документ компоненту WordDocument1. Встроенные константы EmptyPar используются для обозначения пустого параметра – в рядке случаев метод объекта COM-сервера требует указания множества параметров, которые нам не нужны, и вместо них можно просто написать EmptyPar.
Добавление текста, таблиц, графики в документ выполняется не совсем обычным образом. В Word применено понятие выделенного фрагмента (selection), сокращенно ВФ. ВФ – это или выделенная блоком часть документа, если такое выделение присутствует, или положение текстового курсора в документе (так называемая точка вставки). В нашем случае ВФ – это положение курсора. Объект Selection относится к компоненту WordApplication, а не WordDocument, так как вводить текст можно только в один активный документ.
Простейший способ добавить текст – использовать метод WordApplication1.selection.InsertAfter(текст). Переход на новую строчку выражается символом с кодом 13. Далее документ сохраняется в файл с указанным именем, Word закрывается и наша программа отключается от СОМ-сервера.
Следует иметь в виду, что работа с СОМ-сервером – дело небыстрое. Вывод даже простого отчета может занять несколько десятков секунд. Поэтому желательно информировать пользователя о ходе процесса и о его завершении.
procedure TForm1.Button1Click(Sender: TObject);
var par:OLEVariant;
begin
// подключение к Word
WordApplication1.Connect;
// Создание нового документа и подключение к нему WordDocument1 WordDocument1.ConnectTo(WordApplication1.Documents.Add
(EmptyParam,EmptyParam,EmptyParam,EmptyParam));
// Добавление текста в Word
WordApplication1.selection.InsertAfter('Результаты работы гениальной программы студента Б. Гейтса'+#13);
par:=ExtractFilePath(Application.ExeName)+'out.doc';
// Сохранение документа
WordDocument1.SaveAs(par);
// Закрытие документа в Word
WordDocument1.Close;
// Завершение работы с документом
WordDocument1.Disconnect;
// Закрытие Word
WordApplication1.Quit;
// Завершение сеанса работы с Word
WordApplication1.Disconnect;
MessageDlg('Вывод отчета завершен',
mtInformation,[mbOK],0)
end;
