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

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 huyoo 的 blog

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


程序界面如下图:
user posted image


我在编程过程中遇到的问题:
在将a.dll复制到程序目录下之后(此时我没有将a.dll复制到windows/system/目录下面),运行程序,结果报错!如下图:
user posted image


后来我将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
==========================

本文关键:在VB中使用VC编译的dll
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top