🚀 go-pugleaf

You can:
- wrap stream using TOleStream (ADODB.Stream implements IStream);
- wrap your memStream with TStreamAdapter and use it instead of ADODB.Stream 
(when you pass stream, pass Variant of type IUnknown and value should have 
interface that can be queried for IStream, IStream is implemented in 
TStreamAdapter).

//------------------------------------------
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)

"Russell Allen" <russell.allen@bt.com> �������/�������� � �������� 
���������: news:432aa5ea$1@newsgroups.borland.com...
>
> Hi all,
>
> I'm working on CBuilder 5 without ADO controls, so I'm currently using 
> Variants to access ADO.  How can I get the following code (or something 
> like it) to work?
>
> void putStream (TMemoryStream *memStream) {
>  Variant stream = CreateOleObject("ADODB.Stream");
>  stream.OleProcedure("Open");
>  stream.OleProcedure("Write", memStream);
> }
>
> I know the above code doesn't appear to do anything, but I've got code 
> I've left out which then goes on to do something with the stream Variant.
>
> Thanks all,
>
> Russ
> Russell Allen