作者iverchen (成长的泪 留给时间蒸发)
看板Visual_Basic
标题[问题] 一各在VB引进DLL所遇到的问题
时间Fri Jan 6 16:39:58 2006
※ [本文转录自 Programming 看板]
作者: iverchen (成长的泪 留给时间蒸发) 看板: Programming
标题: [问题] 一各在VB引进DLL所遇到的问题
时间: Fri Jan 6 16:36:53 2006
专案在
http://w3.nctu.edu.tw/~u9211596/
大致情形如下
在VC中:
/*--- [DLL] MyLoadTimeDLL.C ---*/
#include <windows.h>
#include "MyLoadTimeDLL.h"
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
switch(fdwReason)
{
case DLL_PROCESS_ATTACH:
return (TRUE);
case DLL_THREAD_ATTACH:
break;
case DLL_THREAD_DETACH:
break;
case DLL_PROCESS_DETACH:
break;
}
return (TRUE);
}
extern int UrAddInt(int firstnum, int secondnum)
{
return (firstnum+secondnum);
}
/*--- [DLL] MyLoadTimeDLL.H ---*/
extern "C" __declspec(dllexport) int UrAddInt(int, int);
在VB中:
/*--- VB: test.bas ---*/
Declare Function UrAddInt Lib "D:\tmp\MyLoadTimeDLL\Debug\MyLoadTimeDLL"
(ByVal firstnum As Integer, ByVal secondnum As Integer) As Integer
/*---VB:----*/
Dim sum As Integer
sum = UrAddInt(5, 3)
Print sum
结果:
DLL呼叫规格错误
请问是哪里错了 ???
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.228.136
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.228.136