| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

saasik ©   (2005-07-22 15:55:00) 

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

---

saasik   (2005-07-22 16:01:00) [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;

---

Наверх