CreateOleObject('Word.Application');

[cepreu]

Привет всем!
Такая проблема
Код:

Код: Выделить всё

uses
   activex, comobj
  { add your units here };

Var
  W : Variant;
  V : String;

begin
  W:=CreateOleObject('Word.Application');
  W.Application.Visible := True;
  Writeln('Installed version of MS Word is : ',V);
end.


Компиляция нормално но на строге
Но на запуске выдает: Project raised exception class 'RunError103'

Word в памяти появляется но какие нибудь команды ему слать не получается???

Заранее спасибо!

[Иван Шихалев]

Где присваивается значение V? На данный момент через автоматизацию не работают свойства, работают методы.

[cepreu]

Немного изменненный текс
место
W.Application.Visible := True;
в примере было
v := w.application.version;
или подобная строка;

но и сней таже беда

[cepreu]

а поповоду методов, пример кода можно гдето просмотреть??
Спасибо

[SAK]

Но на запуске выдает: Project raised exception class 'RunError103'

Это где? Lazarus или Delphi?
Я тут заглянул в comobj.pp на реализацию CreateOleObject в Lazarus 0.9.22:

Код: Выделить всё

   function CreateOleObject(const ClassName : string) : IDispatch;
     begin
       {!!!!!!!}
       runerror(211);
     end;


Если это Delphi,то примерно так:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
  W, S: Variant;
begin
  W:=CreateOleObject('Word.Application');
  W.Documents.Add;
  W.Visible:=True;
  S:=W.Selection;
  S.InsertAfter('Учиться, учиться и учиться!');
end;


А в Лазаре этот пример даже не компилится.
Подробное описание всех классов можно найти в справке по Visual Basic из комплекта MS Office. Для Office XP файл WDMAIN10.CHM.

[Иван Шихалев]

В последних версиях FPC кое-что работает. Не знаю, какая уж версия идет с Лазарем…

PS. Тема не имеет отношения к Lazarus — переношу в FPC.

[SAK]

С упомятой версией Lazarus используется FPC 2.0.4. Даже если в более поздних начали реализовывать возможность работы с OLE, то я не представляю как это использовать пока не поддерживаются свойства. А хотелось бы.

[Иван Шихалев]

В 2.0.х никакого ОЛЕ нет. А свойства, думается, скоро будут поддерживаться… Если очень горит, можно и самому реализовать и патч разработчикам выслать.

[v-t-l]

А как же MgOle2FOrFPC.
http://www.geocities.com/michailgm/MgOle2ForFPC.zip
Не совсем как в Delphi, но все же.

[cepreu]

А как же MgOle2FOrFPC.
http://www.geocities.com/michailgm/MgOle2ForFPC.zip
Не совсем как в Delphi, но все же.

Есть ети модули
немогу понять конец строки: 'visible', [true]);
точнее как передать строковые параметры и параметры для процедур и функций??


Заранее спасибо!!1

[v-t-l]

Строковые параметры передавать в виде WideString, вроде.
В квадратных скобках, как массив параметров.

[cepreu]

Строковые параметры передавать в виде WideString, вроде.
В квадратных скобках, как массив параметров.

Можеж привисти небольной пример!!
Заранее Спасибо!!

[v-t-l]

Я вообще-то не возился с этим, но наверно что-то вроде

Код: Выделить всё

var
  S: WideString;

...

S := 'My text';
OC.SetProperty('Caption',[S]);


Если параметров несколько, то [var1, var2, var3].

[cepreu]

Я вообще-то не возился с этим, но наверно что-то вроде

Код: Выделить всё

var
  S: WideString;

...

S := 'My text';
OC.SetProperty('Caption',[S]);


Если параметров несколько, то [var1, var2, var3].

Спасибо попробую!!

[cepreu]

В 2.0.х никакого ОЛЕ нет

Как можно закрыть данную тему форума чтоб не болталась???

попросить модератора =) Attid.