Function ReleaseStream( _
   ByVal StreamType As Integer _
) As Boolean

Dim instance As IModelDocExtension
Dim StreamType As Integer
Dim value As Boolean
 
value = instance.ReleaseStream(StreamType)

bool ReleaseStream( 
   int StreamType
)

bool ReleaseStream( 
&   int StreamType
) 

Parameters

StreamType

1 = material stream

Return Value

To obtain the stream, call IModelDocExtension::GetStream.

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();

  }

  //--------