主要用到函数说明：
MxDrawXCustomFunction::ReadBinStreamEx
从二进流加载数据，详细说明如下：
| 参数 | 说明 |
|---|---|
| IMxDrawBinStream* pBinStream |
二进制流对象 |
代码实现如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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
|