VPF::Работа с Word через OLE - Форум программистов

Pakshin A. S.

Дата 10.11.2004, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

Код


unit Unit1;  
interface 
uses Windows, Messages, SysUtils, Classes, Graphics,      Controls, Forms,      Dialogs, Buttons,ComCtrls, ExtCtrls, OleCtnrs; 

type TForm1 = class(TForm) 
    OleContainer1: TOleContainer; 
    Panel1: TPanel; 
    StatusBar1: TStatusBar; 
    mbLoad: TSpeedButton; 
    mbPrint: TSpeedButton; 
    OpenDialog1: TOpenDialog; 
    procedure mbLoadClick(Sender: TObject); 
    procedure mbPrintClick(Sender: TObject); 
  private 
 { Private declarations } 
  public 
{ Public declarations } 
  end; 
var Form1: TForm1; i 
  mplementation{$R *.DFM} 

procedure TForm1.mbLoadClick(Sender: TObject); 
begin 
  // Покажем диалог, и если он отработал, то загрузим в контейнер 
  if OpenDialog1.Execute and (OpenDialog1.FileName <> '') then 
    OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, false); 
  / Если загрузилось что - нибудь, то покажем 
    if OleContainer1.State <> osEmpty then OleContainer1.DoVerb(ovShow); 
end; 

procedure TForm1.mbPrintClick(Sender: TObject); 
var V: Variant; 
begin 
  if OleContainer1.State = osEmpty then 
    begin 
      MessageDlg('OLE не загружен !!', mtError, [mbOk], 0); 
      exit; 
    end; 
// Получаем объект, который воплощает в себе WordBasic интерфейс 
  V := OleContainer1.OleObject.Application.WordBasic; 
// Командуем до одурения .... 
  V.FilePrint; end; end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »