Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

Подскажите, что я забыл задекларировать   Найти похожие ветки 

← →
Непоседа   (2005-06-14 14:51) [0]

Уважаемые гуру, подскажите. Уже написал одну программку формирующую форд-отчет. И вот понадобилось написать программку обрабатывающую Вордовский файл. Пошел по уже как казалось отработанной мною технологии 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")".
Подскажите, что я нетак делаю. Заранее спасибо, Алексей.

---

← →
-=XP=- ©   (2005-06-14 15:15) [1]

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

---

← →
Непоседа   (2005-06-14 15:42) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.05.07;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.01 c