通过VB结构数组输入数据VC编写DLL实现图形文件

核心提示：3.实现结构数组:如果此时用上述方法在VB中来这样写:Private Type LPDATARow as LongCol as LongTips as StringData as doubleEnd TypePrivate Declare Function FuncFoo Lib "MyStDll.DLL&q

3.实现结构数组:

如果此时用上述方法

在VB中来这样写:

Private Type LPDATA
　　　　Row as Long
　　　　Col as Long
　　　　Tips as String
　　　　Data as double
　　　　End Type
Private Declare Function FuncFoo Lib "MyStDll.DLL" _
　　　　(lParam1 As LPDATA, ByVal lParam2 As Long) As Long

在VC中这样写:

typedef struct tagData {
　　　　UINT Row;
　　　　UINT Col;
　　　　BSTR Tips; //注意一般关于字符串最好用 BSTR ,后面解释为什么
　　　　double Data;
　　　　} * LPDATA;
UINT WINAPI FuncFoo(LPDATA lParam1[DATASIZE] ,UINT lParam2);或
UINT WINAPI FuncFoo(LPDATA *lParam1 ,UINT lParam2);

这样的结果大家不妨试一试,数据乱的毫无规律,我也很不解,搞不懂,网上SOS,HELP me,目前最流行的方式,我也用上了,国内外知名的,被遗忘的角落,等等,大家没人理我,可能看到了不解,个中高手过着深入简出的生活,没有回答,没人解答,我从MSDN终于搞到一个东西他就是SAFEARRARY

typedef struct FARSTRUCT tagSAFEARRAY {
　　　　unsigned short cDims;
　　　　unsigned short fFeatures;
　　　　unsigned short cbElements;
　　　　unsigned short cLocks;
　　　　unsigned long handle;
　　　　void HUGEP *pvData ;
　　　　SAFEARRAYBOUND rgsabound[1];
　　　　} SAFEARRAY;

下次我再单独写篇稿子讨论这个东西,解决问题先. 应该这么做

在VB中来这样写:

Private Type LPDATA
　　　　Row as Long
　　　　Col as Long
　　　　Tips as String
　　　　Data as double
　　　　End Type
　　　Private Declare Function FuncFoo Lib "MyStDll.DLL" _
　　　　(lParam1() As LPDATA, ByVal lParam2 As Long) As Long

用法如下:

...
　　　　Dim oData(1 to 3) as Long
　　　　oData(1) = 100
　　　　oData(2) = 200
　　　　oData(3) = 300
　　　　Call FuncFoo(oData(),3)
...

在VC中这样写:

typedef struct tagData {
　　　　UINT Row;
　　　　UINT Col;
　　　　BSTR Tips; //注意一般关于字符串最好用 BSTR ,后面解释为什么
　　　　double Data;
　　　　} * LPDATA;
UINT WINAPI FuncFoo(LPSAFEARRAY FAR * Param1,UINT lParam2);

在VC中访问VB传入的结构数据:

LPDATA lparDataSet;
lparDataSet = (LPDATA)((*Param1)->pvData);
for (UINT u=0;u<((*Param1)->rgsabound->cElements);u++,lparDataSet++)
{
　　　　UINT aa = lparDataSet->Row;
　　　　CString bb = lparDataSet->Tips;
　　　　double cc = lparDataSet->Data;
}

注意:为什么用BSTR不用什么LPCTSTR xxx,TCHAR xxx[mmm],char xxx[mmm],我举个例子大家试一试就知道了

1. VB送入字符 "个大12"

2. 正常VC显示数据为 B8 F6 B4 F3 31 32

3. VC结构传入显示为 2A 4E 27 59 31 00 32 00 (unicode?)

第一部分写到这里吧，剩下的东西还是等各位朋友自己慢慢去摸索,仓促难免有疏漏之处，请各位谅解。

本文配套源码