Не освобождаются OLE-объекты

alexgold

FastScript 1.8, Delphi 6.

Используется ActiveX библиотека, в которой есть объект. Для контроля
освобождения в деструкторе объекта выдается сообщение.

Запускаем процедуру в скрипте:

procedure TestOle(Sender: TButton);
var x: Variant;
begin
    x := CreateOleObject('TestLib.TestObject');
    x := 0;
end;

При выполнении процедуры объект освобождается нормально. Теперь добавим
обращение к любому методу:

procedure TestOle(Sender: TButton);
var x: Variant;
    s: string;
begin
    x := CreateOleObject('TestLib.TestObject');
    s := x.TestMethod('test');
    x := 0;
end;

При вызове этой процедуры объект не освобождается! Но при повторном
вызове идет освобождение объекта, созданного в предыдущем вызове.

Это нормально?

ladrus

Вот там описано, я на подобное нарывался.
Но там по всем OLE обьектам в скрипте.
http://www.fast-report.com/en/forum/?p=/discussion/2196