🚀 go-pugleaf

You can use

TVariant v = iunk;

instead of pStream and pass it to ADO. This will remove a need to have 
second stream.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 + 
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Mark Guerrieri" <mguerrieri@nospam_cmsgrp.com> �������/�������� � �������� 
���������: news:432b48dd$1@newsgroups.borland.com...
> 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
>
>