🚀 go-pugleaf

Import the ADO type library and include the resulting import file, i.e.

#include "AdoDb_TLB.H"

Then you can do this:

void putStream (TMemoryStream *memStream)
{
  StreamPtr pStream = CoStream::Create();
  OLECHECK(pStream->Open( {appropriate open parameters} ));

  memStream->Seek(0, soFromBeginning);
  bool FReleaseStream = true;
  TStreamAdapter *sa = new TStreamAdapter(memStream, soReference);
  if(!sa)
    throw Exception("Could not create Stream interface");
  try
  {
    IUnknown* iunk = NULL;
    try
    {
      OLECHECK(sa->QueryInterface(IID_IUnknown, (LPVOID*)&iunk));
      if(iunk == NULL)
        throw Exception("Stream interface does not implement the IUnknown
interface");

      TVariant v = iunk;

      OLECHECK2(pStream->Write(v));
    }
    __finally
    {
      if(iunk)
      {
        FReleaseStream = false;
        iunk->Release();
      }
    }
  }
  __finally
  {
    if(FReleaseStream && sa)
      delete sa;
  }
}


Mark