Delphi - сбориник статей


Открытие Word через OLE Automation


В библиотеке типов определен касс «CoApplication», который реализует интерфейс с Word-ом. Для создания из своей программы экземпляра Word необходимо вызвать метод «CoApplication.Create». Этот метод возвращает ссылку на интерфейс типа «_Application». Интерфейс «_Application» предоставляет интерфейс «Documents», в котором определены два метода доступа к документам: «Add» и «Open».

Оба эти метода возвращают указатель на интерфейс «_Document». При вызове методам можно передавать параметры «OLEVariant». Многие параметры, передаваемые методам Word, являются необязательными (optional). Необязательные параметры, тем не менее, должны быть включены в обращения к методам, но могут быть определены как неинициализированные (Unassigned), чтобы указать, что они не используются. Для неиспользуемых параметров можно использовать переменную Delphi 4 называемую EmptyParam.

uses Word_TLB;

procedure StartWord(var WordApp: _Application; var WordDoc: _Document);

var
SaveChanges: OleVariant;
begin
try
WordApp := CoApplication.Create;
WordDoc := WordApp.Documents.Add(EmptyParam, EmptyParam);
WordApp.Visible := True;
except
if (Assigned(WordApp)) then begin
SaveChanges := wdDoNotSaveChanges;
WordApp.Quit(SaveChanges, EmptyParam, EmptyParam);
end;
end;




Начало  Назад  Вперед