使用DLL進行不同語言之間的呼叫

__declspec(dllexport) int __stdcall min(int x,int y)

/*這和前面的例子重複了,主要用於呼叫的例子

*/dllexport double __stdcall max_d(double x,double y)

struct teststruct

;dllexport int __stdcall usestruct(teststruct* p)

/*這是修改了記憶體對齊的結構體使用,主要在呼叫的時候有區別*/

#pragma pack(push)

#pragma pack( 1 )

struct teststruct2

;#pragma pack(pop)

dllexport int __stdcall usestruct2(teststruct2* p)

extern "c" __declspec(dllimport) int  max(int x,int y);

int __stdcall min(int x,int y);

double min(double x,double y);

#else

__declspec(dllimport) int max(int x,int y);

#endif

#ifdef __cplusplus

#    define dllimport extern "c" __declspec(dllimport)

#else

#    define dllimport __declspec(dllimport)

#endif

dllimport int swap(int* x,int* y);

dllimport double __stdcall max_d(double x,double y);

#include

typedef struct __teststruct

teststruct;

dllimport int __stdcall usestruct(teststruct* p);

#pragma pack(push)

#pragma pack( 1 )

typedef struct __teststruct2

teststruct2;

#pragma pack(pop)

dllimport int __stdcall usestruct2(teststruct2* p);

dllimport int __stdcall usercallbackfunc( const char* lp, int (__stdcall *p)(const char*) );

#include

#pragma comment(lib,"dlltest.lib")

#include

int __stdcall callbackfunc(const char*lp)

int main()

public declare function lstrlen lib "kernel32" alias "lstrlena" (byval lpstring as long) as long

public type teststruct

a as byte

b as long

c as double

sz as string * 5

end type

public type temp

sz as string * 5

end type

public declare function max_d lib "dlltest" (byval a as double, byval b as double) as double

public declare function min lib "dlltest" alias "?min@@yghhh@z" (byval a as long, byval b as long) as long

public declare function usestruct lib "dlltest" (byref a as teststruct) as long

public declare function usestruct2 lib "dlltest" (byref a as any) as long

public declare function usercallbackfunc lib "dlltest" (byval s as string, byval f as long) as long

function callback(byval lp as long) as long

dim l as long

l = lstrlen(lp)

dim s as string

s = string$(l + 1, vbnullchar)

copymemory s, lp, l

msgbox s & " , " & str$(l)

debug.print "callback", s

callback = 3

end function

sub main()

debug.print max_d(4, 5), min(4, 6)

dim a as teststruct

debug.print usestruct(a)

debug.print chr(a.a), a.b, a.c, a.sz

dim buf(18) as byte

debug.print "----------------"

debug.print usestruct2(buf(0))

dim t as byte

copymemory t, buf(0), 1

dim l as long

copymemory l, buf(1), 4

dim d as double

copymemory d, buf(5), 8

dim s as temp

copymemory s, buf(13), 5

debug.print chr(t), l, d, s.sz

debug.print usercallbackfunc("_測試asdasd中文sdfasdf", addressof callback)