🚀 go-pugleaf

Thanks guys,

This looks like exactly what I was after!  Very much appreciated.  :)

Russ

"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote:
>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
>>
>> 
>
>