主要用到函数说明：
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 MxDrawResbufSet param = New MxDrawResbufDim ret As MxDrawBinStreamSet ret = MxDrawX1.CallEx("WriteBinStreamEx", param)
If ret.GetCount() > 0 Then MsgBox "保存成功执行"
End If' 读取Dim retRead As MxDrawResbufSet retRead = MxDrawX1.CallEx("ReadBinStreamEx", ret)
If retRead.AtString(0) = "Ok" Then
MsgBox "读取成功执行"
End If |