Использование PivotTable

← →
saasik (2005-07-22 15:55) [0]

Программа использует MS PivotTable для построения OLAP отчетов.
Все работет прекрасно. При закрытии приложения возникает ошибка
Access violation.
PivotTable создается в OleContainer.
В начале выполняется:
OleContainer1.CreateObject("OWC10.PivotTable",False);
В конце:
OleContainer1.DestroyObject;
Все эти строчки выполняются корректно.
Ошибка уже возникает после строчки
Application.Run
Что делать?

← →
saasik (2005-07-22 16:01) [1]

Все, проблему решил.
Оказалось, банально надо было в конце присвоить null
переменной, содержащей объект Pivot Table.
Всем, кто будет читать, на будущее:

var PT : Variantl
OleContainer1.CreateObject("OWC10.PivotTable",False);
PT := OleContainer1.OleObject;
With OleContainer1 do Begin
AutoActivate := aaManual;
DoVerb(ovShow);
End;
...
With OleContainer1 do
Begin
DoVerb(ovHide);
End;
OleContainer1.DestroyObject;
PT := null;

Использование PivotTable - Access Violation Найти похожие ветки