关于调用动态连接库的问题

[huang765181881]

有现成的函数,VC源代码,把他改成VB?

#define MOTION_DETECT_RECT_NUM_WIDTH (16)
#define MOTION_DETECT_RECT_NUM_HEIGHT (12)
typedef void (WINAPI * MotionDetectCallback) (DWORD dwCardID, BYTE * pucIsChange, PVOID pContext);
typedef struct tagMOTIONPARAM
{
DWORD dwAlarmMode; //当检测到变化时，以何种方式通知用户。0:回调函数, 1:投递消息
MotionDetectCallback pAlarmCallbackFunc; //回调函数的函数指针
PVOID pAlarmCallbackContext; //等于回调函数的pContext参数
HWND hAlarmWnd; //接受消息的窗口的句柄
DWORD dwAlarmMessageID; //当检测到变化时，投递消息dwAlarmMessageID到窗口hAlarmWnd。WPARAM:卡号, LPARAM:pucIsChange[16][12]

BYTE ucThreshold_Y; //亮度阈值，一般设为25，范围0-64
BYTE ucThreshold_UV; //色度阈值，一般设为25，范围0-64

//0:该区域不检测, 1:灵敏度最高, 12:灵敏度最低, >12:不检测
BYTE ucPrecision[MOTION_DETECT_RECT_NUM_HEIGHT][MOTION_DETECT_RECT_NUM_WIDTH];
} MOTIONPARAM;

[jamsband]

为啥要改呢,你就用vc编译成dll,然后在vb中调用好了呀

[huang765181881]

我就是在VB中调用dll,上面是VC调用dll的程序,vb也要实现上面的功能

[load]

typedef void (WINAPI * MotionDetectCallback,DWORD dwCardID, BYTE * pucIsChange, PVOID pContext);
在VB里此句一般可以不管，要看后面的程序怎么样

剩下的：
const MOTION_DETECT_RECT_NUM_WIDTH =16
const MOTION_DETECT_RECT_NUM_HEIGHT=12

type tagMOTIONPARAM
dim dwAlarmMode as long
dim pAlarmCallbackFunc as long
dim pAlarmCallbackContext as long
dim hAlarmWnd as long
dim dwAlarmMessageID as long
dim ucThreshold_Y as byte
dim ucThreshold_UV as byte
dim ucPrecision(MOTION_DETECT_RECT_NUM_HEIGHT)(MOTION_DETECT_RECT_NUM_WIDTH) as byte

end type

dim MOTIONPARAM as tagMOTIONPARAM