本人想把一个已经做好的工程做成DLL,请问如何修改? 多谢!!!
解决方案 »
- 100分,线程中的定时器如何正常工作?
- 菜鸟问题:用delphi将表A 复制到 表B 怎么搞啊?各位帮帮忙啊~~谢谢~~
- 在线等待
- 级联二级代理(本机->局域网代理->外网代理服务器->访问其他资源)
- SOS!急!!很急!!!
- 怎样在第三方控件添加到delphi里面呀
- 请问怎样将一个表的字段名全部传给combobox组件??
- Help:TXT类文档的操作方法
- 如何在delphi中对ACCESS进行备份、恢复、压缩操作呀
- 怎样拦截数据库操作的异常?
- 急死了,用socketconnection 已经学会写proceduer了但就是不会写function
- 小问题,大麻烦,DELPHI7的快捷方式都没有了,如F9,F7,F8等,
File-->New-->Other-->DLL Wizard把代码贴上去,注意定义接口。//以下摘自电子书Windows的动态链接库原理(三)
10.2.1.6 编写一般DLLs的应用举例 在下面的程序中我们把一个字符串操作的函数储存到一个DLLs中,以便需要的时候调用它。应该注意的一点
是:为了保证这个函数可以被其它语言编写的程序所调用,作为参数传递的字符串应该是无结束符的字符数组类型
(即PChar类型),而不是Object
Pascal的带结束符的Srting类型。程序清单如下: library Example;
uses
SysUtils,
Classes; {返回字符在字符串中的位置}
function InStr(SourceStr: PChar;Ch: Char): Integer; export;
var
Len,i: Integer;
begin
Len := strlen(SourceStr);
for i := 0 to Len-1 do
if SourceStr[i] = ch then
begin
Result := i;
Exit;
end;
Result := -1;
end; exports
Instr Index 1 name 'MyInStr' resident; begin
end.
10.2.2 调用DLLs 有两种方法可用于调用一个储存在DLLs中的过程。
1.静态调用或显示装载
使用一个外部声明子句,使DLLs在应用程序开始执行前即被装入。例如: function Instr(SourceStr : PChar;Check : Char); Integer; far; external 'UseStr'; 使用这种方法,程序无法在运行时间里决定DLLs的调用。假如一个特定的DLLs在运行时无法使用,则应用程序
将无法执行。
2.动态调用或隐式装载
使用Windows API函数LoadLibray和GetProcAddress可以实现在运行时间里动态装载DLLs并调用其中的过程。
若程序只在其中的一部分调用DLLs的过程,或者程序使用哪个DLLs, 调用其中的哪个过程需要根据程序运行
的实际状态来判断,那么使用动态调用就是一个很好的选择。
使用动态调用,即使装载一个DLLs失败了,程序仍能继续运行。 10.2.3 静态调用 在静态调用一个DLLs中的过程或函数时,external指示增加到过程或函数的声明语句中。被调用的过程或函数
必须采用远调用模式。这可以使用far过程指示或一个{$F +}编译指示。
Delphi全部支持传统Windows动态链接库编程中的三种调用方式,它们是:
● 通过过程/函数名
● 通过过程/函数的别名
● 通过过程/函数的顺序号 通过过程或函数的别名调用,给用户编程提供了灵活性,而通过顺序号(Index)调用可以提高相应DLL的装载速
度。 10.2.4 动态调用 10.2.4.1 动态调用中的API函数 动态调用中使用的Windows API函数主要有三个,即:Loadlibrary,GetProcAddress和Freelibrary。
1.Loadlibrary: 把指定库模块装入内存
语法为: function Loadlibrary(LibFileName: PChar): THandle; LibFileName指定了要装载DLLs的文件名,如果LibFileName没有包含一个路径,则Windows按下述顺序进行查找:
(1)当前目录;
(2)Windows目录(包含win.com的目录)。函数GetWindowDirectory返回这一目录的路径;
(3)Windows系统目录(包含系统文件如gdi.exe的目录)。函数GetSystemDirectory返回这一目录的路径;
(4)包含当前任务可执行文件的目录。利用函数GetModuleFileName可以返回这一目录的路径;
(5)列在PATH环境变量中的目录;
(6)网络的映象目录列表。
如果函数执行成功,则返回装载库模块的实例句柄。否则,返回一个小于HINSTANCE_ERROR的错误代码。错误
代码的意义如下表: 表10.2 Loadlibrary返回错误代码的意义
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
错误代码 意 义
--------------------------------------
0 系统内存不够,可执行文件被破坏或调用非法
2 文件没有被发现
3 路径没有被发现
5 企图动态链接一个任务或者有一个共享或网络保护错
6 库需要为每个任务建立分离的数据段
8 没有足够的内存启动应用程序
10 Windows版本不正确
11 可执行文件非法。或者不是Windows应用程序,或者在.EXE映
像中有错误
12 应用程序为一个不同的操作系统设计(如OS/2程序)
13 应用程序为MS DOS4.0设计
14 可执行文件的类型不知道
15 试图装载一个实模式应用程序(为早期Windows版本设计)
16 试图装载包含可写的多个数据段的可执行文件的第二个实例
19 试图装载一个压缩的可执行文件。文件必须被解压后才能被装裁
20 动态链接库文件非法
21 应用程序需要32位扩展
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 假如在应用程序用Loadlibrary调用某一模块前,其它应用程序已把该模块装入内存,则Loadlibrary并不会装
载该模块的另一实例,而是使该模块的"引用计数"加1。 2.GetProcAddress:捡取给定模块中函数的地址
语法为: function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc; Module包含被调用的函数库模块的句柄,这个值由Loadlibrary返回。如果把Module设置为nil,则表示要引用当前
模块。
ProcName是指向含有函数名的以nil结尾的字符串的指针,或者也可以是函数的次序值。如果ProcName参数是
次序值,则如果该次序值的函数在模块中并不存在时,GetProcAddress仍返回一个非nil的值。这将引起混乱。因
此大部分情况下用函数名是一种更好的选择。如果用函数名,则
函数名的拼写必须与动态链接库文件EXPORTS节中的对应拼写相一致。
如果GetProcAddress执行成功,则返回模块中函数入口处的地址,否则返回nil。 3.Freelibrary:从内存中移出库模块
语法为: procedure Freelibrary(Module : THandle); Module为库模块的句柄。这个值由Loadlibrary返回。
由于库模块在内存中只装载一次,因而调用Freelibrary首先使库模块的引用计数减一。如果引用计数减为0,
则卸出该模块。
每调用一次Loadlibrary就应调用一次FreeLibray,以保证不会有多余的库模块在应用程序结束后仍留在内存
中。 10.2.4.2 动态调用举例 对于动态调用,我们举了如下的一个简单例子。系统一共包含两个编辑框。在第一个编辑框中输入一个字符
串,而后在第二个编辑框中输入字符。如果该字符包含在第一个编辑框的字符串中,则标签框显示信息:"位于第n
位。",否则显示信息:"不包含这个字符。"。如图是程序的运
行界面。
图10.1 DLL动态调用实例运行界面 输入检查功能的实现在Edit2的onKeyPress事件处理过程中,程序清单如下。 procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
order: Integer;
txt: PChar;
PFunc: TFarProc;
Moudle: THandle;
begin
Moudle := Loadlibrary('c:\dlls\example.dll');
if Moudle > 32 then
begin
Edit2.text := '';
Pfunc := GetProcAddress(Moudle,'Instr');
txt := StrAlloc(80);
txt := StrPCopy(txt,Edit1.text);
Order := TInstr(PFunc)(txt,Key);
if Order = -1 then
Label1.Caption := '不包含这个字符 '
else
Label1.Caption := '位于第'+IntToStr(Order+1)+'位';
end;
Freelibrary(Moudle);
end; 在利用GetProcAddess返回的函数指针时,必须进行强制类型转换: Order := TInstr(PFunc)(text,Key); TInStr是一个定义好了的函数类型: type
TInStr = function(Source: PChar;Check: Char): Integer;
以下是一个实际的例子,完全是修改工程而来:
library IPQuery;
uses
Forms,
Unit_DataModuleGSGL in '..\公用模块\Unit_DataModuleGSGL.pas' {DataModuleGSGL: TDataModule},
Unit_FrmRegisterXG_DJXX in 'Unit_FrmRegisterXG_DJXX.pas' {FrmRegisterXG_DJXX},
Unit_FrmRegisterZHCXTJ in 'Unit_FrmRegisterZHCXTJ.pas' {FrmRegisterZHCXTJ},
Unit_FrmRegisterZHCX in 'Unit_FrmRegisterZHCX.pas' {FrmRegisterZHCX},ImagineInput in 'ImagineInput.pas' {ImagineInputFrm},
StaticQuery in 'StaticQuery.pas' {StaticQueryFrm};{$R *.res}
exports
DoQuery;
begin
end.