Function GetStream( _
   ByVal StreamType As Integer, _
   ByRef ReadOnly As Boolean _
) As Object

Dim instance As IModelDocExtension
Dim StreamType As Integer
Dim ReadOnly As Boolean
Dim value As Object
 
value = instance.GetStream(StreamType, ReadOnly)

object GetStream( 
   int StreamType,
   out bool ReadOnly
)

Object^ GetStream( 
&   int StreamType,
&   [Out] bool ReadOnly
) 

Parameters

StreamType

1 = material stream

ReadOnly

True if the stream is read-only, false if not

Return Value

To release the stream, call IModelDocExtension::ReleaseStream.

VB Example

This example illustrates attaching an XML document to a stream, and then releasing the stream.

Dim swApp As Object

Sub main()

Set swApp = Application.SldWorks

Dim docext As SldWorks.ModelDocExtension

Set docext = swApp.ActiveDoc.Extension

Dim xmldoc As MSXML2.DOMDocument

Set xmldoc = CreateObject("MSXML2.DOMDocument")

Dim stat As Boolean

Dim stream

Set stream = docext.GetStream(1, stat)

xmldoc.Load (stream)

docext.ReleaseStream (1)

xmldoc.Save ("C:\temp\xmlmat.xml")

End Sub

C++ Example

//--------

  CComPtr<IModelDocExtension> ext;

  m_iModelDoc2->get_Extension(&ext);

  LPSTREAM stream = NULL;

  VARIANT_BOOL access = 0;

  ext->IGetStream(1, &access, &stream);

  // Your code

  if (stream)

  {

  VARIANT_BOOL status;

  ext->IReleaseStream(1, &status);

  stream->Release();

  }

  //--------