Delphhi 7 Открытие документа ms Word

[Aleks1988]

вот код

var w: variant;
dir_string;

procedure TForm1.Button2Click(Sender: TObject);
begin
W:=CreateOLEObject('Word.Applicatio n');
w.visible:=true;

GetDir(0,dir_);

if not OpenDialog1.Execute then begin chdir(dir_); exit; end;
chdir(dir_);
W.Documents.Add(OpenDialog1.FileNam e);

все нормально компилируется и запускается потом когда в программе жму на button2 открывается word и вылазит ошибка



подскажите пожалуйста в чем проблема буду признателен за любую информацию

[ex.cluz]

У вас в коде слово "Application" с пробелом написано, не в этом все дело?

И еще - что за процедура "GetDir" ?

Так же не видно, где переменной "dir_" присваивается значение.

И последнее, почему процедура "chdir" выполняется в любом случае, невзирая на условие, какой в этом смысл?

[ex.cluz]

Может, так:

var 
  w: variant;
  dir_: string;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then Exit;  
  dir_:=OpenDialog1.FileName;
  W:=CreateOLEObject('Word.Application');
  W.visible:=true;
//GetDir(0,dir_); //Зачем эта процедура нужна? 
//  chdir(dir_); //А это зачем?
  W.Documents.Open(dir_);
end;

[Aleks1988]

Нет дело не в "Application"

что за функция "GetDir" я не знаю, так делаю по примерам из книги там она ни как не описана

насчет chdir аналогично я просто взял пример из книги

я решил пойти более простым путем :
dir:='....';
W.Documents.Open(FileName:=dir_);
в общем спасибо за то, что что подсказали dir значение присвоить.

Я просто думал то что откроется диалоговое окно и я там сам выберу какой файл открыть(собственно как и было обещано в книге которую читаю)

[Aleks1988]

вылетает та же ошибка

[ex.cluz]

А вам, собственно, что нужно?

Просто открыть Word?

Вот минимальный для этого код с пояснениями:

var 
  w: variant;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then Exit;  //тут открывается диалог выбора файла, и если пользователь нажал "Cancel", то выходим
  W:=CreateOLEObject('Word.Application');  //запускается сервер автоматизации
  W.visible:=true;  //делаем Ворд видимым
  W.Documents.Open(OpenDialog1.FileName);  //Открываем документ, выбранный в диалоге
end;

[Aleks1988]

да мне нужно просто открыть word и документ в нем
но вот только есть одна проблема, как только где либо я начинаю вызывать
OpenDialog у меня вылетает ошибка когда жму на button2 (компилируется нормально) хотя в uses dialogs написано
и переменную я создал openDialog1 : TOpenDialog;

[Aleks1988]

спасибо большое разобрался

[ex.cluz]

Код целиком можно? А то непонятно (у меня все работает как надо).

Если бы в uses dialogs не было - не компилировался бы код.

А вот это не совсем понятно:

переменную я создал openDialog1 : TOpenDialog;

Эта переменная сама создается, когда на форму соответствующий компонент перетаскиваешь и она является его именем.

[Grag]

Это не переменная, а экземпляр класса!