作者：未知 来源：月光软件站 加入时间：2005-6-5　月光软件站

1、用vs.net2003新建vc++项目中的“WIN32 项目”，项目名称为wxjextend，应用程序类型选择dll

2、在主 DLL 源文件中输入

long WXJEXTEND_API __stdcall BitAnd(long bit1, long bit2)
{
 return bit1 & bit2;
}

long WXJEXTEND_API __stdcall BitOr(long bit1, long bit2)
{
 return bit1 | bit2;
}
long WXJEXTEND_API __stdcall BitNot(long bit)
{
 return ~bit;
}

3、创建head（wxjextend.h）文件，输入以下代码

#ifdef WXJEXTEND_EXPORTS
#define WXJEXTEND_API __declspec(dllexport)
#else
#define WXJEXTEND_API __declspec(dllimport)
#endif

long WXJEXTEND_API __stdcall BitAnd(long bit1, long bit2);
long WXJEXTEND_API __stdcall BitOr(long bit1, long bit2);
long WXJEXTEND_API __stdcall BitNot(long bit);

4、别忘了在主DLL源文件加入

#include "wxjextend.h"

5、创建wxjextend.def文件，输入：

LIBRARY wxjextend
EXPORTS BitAnd= ?BitAnd@@YGJJJ@Z
EXPORTS BitOr = ?BitOr@@YGJJJ@Z
EXPORTS BitNot   = ?BitNot@@YGJJ@Z

6、编译

7、将wxjextend.dll拷贝到PB的应用程序目录下，在PB中声明函数

Function long BitAnd(long op1,long op2) library "wxjextend.dll"
Function long BitOr(long op1,long op2) library "wxjextend.dll"
Function long BitNot(long op) library "wxjextend.dll"

接下来调用

完毕。

相关软件：