[今天的编程日记, 在vb中使用vc编译的dll实例]

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

18:07 2003-12-3

今天,仿照着书,我使用vc编了一个动态链接库(dll)--a.dll,然后将它复制到windows/system/目录下面,之后建立了一个vb程序,并在程序中声明了a.dll中的函数add(),实现两个整形数的加法运算。

实现过程如下:

一、建立dll

打开vc,创建一个基于API的DLL.

---- 1.在FILE- >NEW- >PROJECTS中选择"WIN32 Dynamic-Link Library"在Project Name中输入 "a"按OK

---- 2.在FILE- >NEW- >FILES中选择C++ SOURCE FILE,在FILE中输入a.cpp,按OK

---- 3.在FILE- >NEW- >FILES中选择TEXT文件,在FILE中输入a.h,按OK

---- 4.在FILE- >NEW- >FILES中选择TEXT文件,在FILE中输入a.def,按OK

---- 5.源文件:

代码

//---------------------------

//a.cpp

#include < windows >

WINAPI int add(int a,int b)

{ return (a+b);

}

//---------------------------

//a.h

WINAPI int add(int a,int b);

//---------------------------

//a.def

LIBRARY "a";指出DLL的名字

DESCRIPTION 'a Windows Dynamic Link Library'

;描述DLL的用途(此句可选)

EXPORTS add;导出函数的名字

------6.编译成a.dll

------7.将a.dll复制到windows/system/目录下面

二、建立vb程序

在form1中输入

代码

Option Explicit

Private Declare Function add Lib "a.dll" (ByVal a As Integer, ByVal b As Integer) As Integer

Private Sub Command1_Click()

Text3.Text = Str(add(Val(Text1.Text), Val(Text2.Text)))

End Sub

程序界面如下图:

我在编程过程中遇到的问题:

在将a.dll复制到程序目录下之后(此时我没有将a.dll复制到windows/system/目录下面),运行程序,结果报错!如下图:

后来我将a.dll复制到E:盘,将

代码

Private Declare Function add Lib "a.dll" (ByVal a As Integer, ByVal b As Integer) As Integer改为Private Declare Function add Lib "E:/a.dll" (ByVal a As Integer, ByVal b As Integer) As Integer

,再次运行程序,也成功了!

不知道这是什么原因,书上说通常调用DLL时所需的DLL文件必须位于以下三个目录之一:

(1)Windows的系统目录:\windows\system;

(2)DOS中path所指出的任何目录;

(3)程序所在的目录。

不知道我在满足第三个条件的情况下,为什么会出错?

=================================================

21:36 2003-12-3

今天晚上,我到图书馆去看书,终于明白了为什么下午的程序会出错了.

最主要的原因是因为按F5执行程序时,程序还是处于调试阶段,所以它找不

到a.dll,想到这里,我把程序MAKE为应用程序,终于一切正常了。真是感到很欣

慰~

==========================

此文最早发在刺客之光网站http://www.thugx.com/main/index.php?showtopic=3250

==========================

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航