| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите, что я забыл задекларировать [Delphi, OLE, Windows]

Непоседа ©   (2005-06-14 14:51:00) 

Уважаемые гуру, подскажите. Уже написал одну программку формирующую форд-отчет. И вот понадобилось написать программку обрабатывающую Вордовский файл. Пошел по уже как казалось отработанной мною технологии OLE. Делаю все по аналогии с работающей у меня первой программой. Вот код новой програмки: unit LoadStr;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, StdCtrls, ToolWin, OleServer, Word97;

type
 TForm1 = class(TForm)
   OpenDialog1: TOpenDialog;
   Button1: TButton;
   StatusBar1: TStatusBar;
   WordAp: TWordApplication;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
   num: string;
 public
   { Public declarations }
   OLE: Variant;
   WP,n,u1,c1,e1: OleVariant;
   FileName1, sq, zap: String;
 end;

var
 Form1: TForm1;
 f1: TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenDialog1.Execute;
 StatusBar1.Panels[1].Text:=OpenDialog1.FileName;
 StatusBar1.Panels[0].Text:='Âûïîëíÿåòñÿ çàãðóçêà:';
 FileName1:=OpenDialog1.FileName;
 if VarType(OLE) varDispatch then
  begin
   OLE:=CreateOleObject('Word.Application');
   OLE.Documents.Open(FileName1);
   OLE.Visible:=True;
 end;
   OLE.Documents.Close;
   OLE:=0;
   Exit;
end;

end.

При компиляции Дельфи говорит : "[Error] LoadStr.pas(43): Undeclared identifier: 'CreateOleObject'" на строку "OLE:=CreateOleObject('Word.Application')".
Подскажите, что я нетак делаю. Заранее спасибо, Алексей.

---

Непоседа   (2005-06-14 15:42:00) [1]

Спасибо! Все заработало.

---

-=XP=-   (2005-06-14 15:15:00) [2]

Добавить в раздел uses: ComObj

---

Наверх