如何把当前图上数据保存为一个二进流对象？

• 回答：

  主要用到函数说明：

  
  

  MxDrawXCustomFunction::WriteBinStreamEx

  
  

  把当前图上数据保存为一个二进流对象，详细说明如下：

  
  

  参数	说明
  LPCTSTR pszPassword = NULL	保存密码，默认为空
  LONG lVersion = McDb::vAC18	保存版本号

  
  

  代码实现如下：

  
  

          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