如何从二进流加载数据？

• 回答：

  主要用到函数说明：

  
  

  MxDrawXCustomFunction::ReadBinStreamEx

  
  

  从二进流加载数据，详细说明如下：

  
  

  参数	说明
  IMxDrawBinStream* pBinStream	二进制流对象

  
  

  代码实现如下：

  
  

          Dim param As MxDrawResbuf
          Set param = New MxDrawResbuf
  
          Dim ret As MxDrawBinStream
  
          Set ret = MxDrawX1.CallEx("WriteBinStreamEx", param)
  
          If ret.GetCount() > 0 Then
  
              MsgBox "保存成功执行"
  
          End If
  
          ' 读取
          Dim retRead As MxDrawResbuf
          Set retRead = MxDrawX1.CallEx("ReadBinStreamEx", ret)
          If retRead.AtString(0) = "Ok" Then
              MsgBox "读取成功执行"
          End If