компонент из vb в delphi

[Janger]

В общем, пытаюсь перенести код...

VB:
ObjDoc.GetObject("ObjBar").Text = str

Я попробовал перенести, данным образом:

Opp := createoleobject('bpac.document');
If opp(put_file) then
Begin
  Str := Oop.getobject('objbar').text;
  ShowMessage(str);
End;

Программа выдаёт ошибку:
(Access violation at address 00456860 in module 'Project.exe'. Read of address 00000000)
Подскажите, как быть.....

[Stilet]

If opp(put_file) then

А проверка где? Вдруг в оор не пришел интерфейс?
используй VarIsclear() чтоб узнать нормально ли createoleobject отработал.

[Janger]

Сообщение от Stilet

А проверка где? Вдруг в оор не пришел интерфейс?
используй VarIsclear() чтоб узнать нормально ли createoleobject отработал.

Да нет. С (оор) все нормально, т.к. код по поиску и замене текста он мне выдаёт отлично, вот:

i := oop.GetTextIndex('text');
Oop.SetText(i, 'ling');

Но вот, найти элемент по "имени объекта"... У меня не получается....
Я в принципе по этому и обратился сюда.
А в VB как раз обращаются к имени объекта....

[Аватар]

А метод Open перед этим не надо выполнять разве?

[Janger]

Сообщение от Аватар

А метод Open перед этим не надо выполнять разве?

Да. Вы правы, но я его использую когда пишу:
If opp.open(put_file) then
Я извиняюсь, просто код пишу с телефона.. Недолгядел