🚀 go-pugleaf

Hi,

I want to pass from my COM-server to my client a Recordsetptr in my type library i define it and the implementation look something like this.

STDMETHODIMP TCustomerImpl::GetData(_RecordsetPtr* Dataset)
{
  m_DataModule->adsCustomer->Active = TRUE;
  _di__Recordset  lTest;
  lTest = m_DataModule->adsCustomer->Recordset;
  lTest->QueryInterface(__uuidof(_di__Recordset), (void**) &Dataset);
  return S_OK;
}

It compiles but there is no data in the RecordsetPtr when i do the queryinterface.
On the client i wrote something like that : 

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TCOMICustomer lCustomer;
  OleCheck(CoCustomer::Create(lCustomer));
  _RecordsetPtr*  test;
  OleCheck(lCustomer.GetData(test));
  ShowMessage(IntToStr((*test)->RecordCount));
}

On the showmessage it gives me an access violation.


Can somebody help me with that problem?

TIA

Geert Van Laethem