UpdateFrom Method

Description:

Updates specified SAFEARRAY memory buffer.

Syntax:

      UpdateFrom( MemBuffer As Variant )

Parameters:

Name	Description
MemBuffer	SAFEARRAY buffer from which to update.

Return Value:

N/A

Bits Per Pixel:

N/A

Example:

	Copy Code
Private m_igFileDialog As IGFileDlg Private m_iBuffer() As Byte Private m_igIOMem As IGIOMemory Set m_igFileDialog = IGDlgsCtl1.CreateFileDlg Set m_igIOMem = IGFormatsCtl1.CreateObject(IG_FORMATS_OBJ_IOMEMORY) If m_igFileDialog.Show(dialogLoadOptions) Then file_name = dialogLoadOptions.FileName file_length = FileLen(file_name) fnum = FreeFile ReDim m_iBuffer(1 To file_length) Open file_name For Binary As #fnum Get #fnum, 1, m_iBuffer Close fnum End If m_igIOMem.Buffer.UpdateFrom m_iBuffer Dim Buffer As Variant Buffer = m_igIOMem.Buffer.GetSafeArray

Copy Code

Private m_igFileDialog As IGFileDlg
Private m_iBuffer() As Byte
Private m_igIOMem As IGIOMemory
Set m_igFileDialog = IGDlgsCtl1.CreateFileDlg
Set m_igIOMem =
IGFormatsCtl1.CreateObject(IG_FORMATS_OBJ_IOMEMORY)
If m_igFileDialog.Show(dialogLoadOptions) Then
file_name = dialogLoadOptions.FileName
file_length = FileLen(file_name)
fnum = FreeFile
ReDim m_iBuffer(1 To file_length)
Open file_name For Binary As #fnum
Get #fnum, 1, m_iBuffer
Close fnum
End If
m_igIOMem.Buffer.UpdateFrom m_iBuffer
Dim Buffer As Variant
Buffer = m_igIOMem.Buffer.GetSafeArray