主要用到函数说明: MxDrawXCustomFunction::WriteBinStreamEx 把当前图上数据保存为一个二进流对象,详细说明如下: 参数 说明 LPCTSTR pszPassword = NULL 保存密码,默认为空 LONG lVersion = McDb::vAC18
主要用到函数说明:
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