ActiveDocument вылетает с ошибкой

[Fabeldyr]

собственно задача следующая: есть база данных, их нужно разместить в нужную форматку, ясное дело, что на один лист данные не влезут, поэтому по заполнению листа нужно добавить ещё один, для этого нужно использовать LayoutSheets->Add

среда разработки: C++ Builder 6

по аналогии с этим примером: http://forum.ascon.ru/index.php/topic,14291.0.html написал следующее:

Код Выделить Развернуть

KompasObjectPtr kompas;
ksDocument2DPtr doc;
IApplication *test;

...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (!kompas)
  {
    kompas = (IDispatch*)CreateOleObject("KOMPAS.Application.5");
    if (kompas)
    {
      kompas -> Visible = true; // Показать Компас
      kompas -> ActivateControllerAPI();
    }
  }
}

...

void TForm1::create_doc(void)
{
  if (kompas)
  {
    doc = kompas -> Document2D();
    if (doc)
    {
      test = (IApplication*)kompas -> ksGetApplication7();
      ksDocumentParam* docPar = (ksDocumentParam*)kompas -> GetParamStruct(Kompas6constants_tlb::ko_DocumentParam);
      задаём параметры штампа
      doc -> ksCreateDocument((LPDISPATCH)docPar);
    }
  }
}

...

if (лист закончился)
test -> get_ActiveDocument();
на этой строке компилятор вылетает с ошибкой "Access violation at address 7E3787AA"

если быть совсем точным, то вылет происходит в файле utilcls.h

Код Выделить Развернуть

// Implementation of OLECHECK - Throw an exception if !SUCCEEDED(hr)
template <class T>
HRESULT DebugHlpr_HRCHECK(HRESULT hr, T* expr, T* file, int line)
{
  if (!SUCCEEDED(hr))
  {
    TCHAR szMsg[_MAX_PATH*2];
    TCHAR lfile[_MAX_PATH*2];

    if (file)
      ::wsprintf(lfile, _T("%s"), file);на этой строке
при наведении на файл подсвечивается file = ""
я так понимаю указатель на документ не передаётся

в чём ошибка?

[Sabahs]

Так собственно, где Вы заполнили параметры структуры интерфейса документа ksDocumentParam? Вы получили только указатель на интерфейс, который даже не инициализировали и сразу пытаетесь создать документ doc -> ksCreateDocument((LPDISPATCH)docPar);

Используйте API7, там можно создать документ с параметрами по умолчанию и получить указатель на интерфейс IKompasDocument, от которого получите коллекцию листов оформления  ILayoutSheets.

Documents:IDocuments
DocPar:IKompasDocument
DocPar:=Documents.Add(ksDocumentFragment,True);

[Fabeldyr]

там где написано " задаём параметры штампа"
я просто не стал писать это сюда
вообще с одним листом всё прекрасно работает
а с апи7 никак не могу разабраться - как его подключить

[Sabahs]

//-------------------------------------------------------------------------------
// Получить доступ к новому API
// ---
procedure GetNewKompasAPI;
var
  disp : IDispatch;
begin
   if newKompasAPI = nil then
  begin
    disp := IDispatch(CreateKompasApplication);
    newKompasAPI := disp As IApplication;
  end;
end;

P.S. Я делаю иначе, что доставляет свои нюансы.