delphi10.1_育才学习网

1. delphi怎么写dll

delphi怎么写dll

1.delphi怎么样编写DLL文件和怎么样去加载我编写的DLL文件,请高手

DLL写法：

library DLL;

uses

SysUtils,

Classes;

procedure proc;stdcall； //加上stdcall关键字

begin

end;

exports //申明的函数在这里导出以被其他程序调用

proc;

begin

end.

调用则有两种方法

一种是静态只需写

procedure proc;stdcall ; external 'DLL.dll' ;

便可当一般函数调用

另一种是动态

type

TProc = procedure;stdcall;

var

DLLHandle: THandle; //DLL句柄

proc = TProc； //函数变量

begin

DLLHandle := LoadLibrary('DLL.dll'); //Load DLL

@proc := GetProcAddress(DLLHandle, 'proc')； //得到函数的地址

proc； //调用过程

FreeLibrary(DLLHandle)； //释放

end;

2.Delphi7怎么写dll函数

Delphi里array of xxxx参数叫变体数组，信息包括了上下标信息。

C里的数组只能从0开始，这是就差别，数据类型都不一样。大概会是这样： type PSignle = ^Signle;function pisn_getsnapshots(pt: PInteger;rval: PSingle;istat:PInteger; timedate:PInteger; error:PInteger; count: Integer):Integer;stdcall;external 'piapi32.dll';var pt: array[0..9] of Integer;var rval: array[0..9] of Single;var istat: array[0..9] of Integer;var timedate: array[0..9] of Integer;var error: array[0..9] of Integer;begin pisn_getsnapshots(@pt[0], @rval[0], @istat[0], @timedate[0], @error[0], 10);end;。

3.在Delphi里面如何使用DLL?

Delphi制作DLL一 Dll的制作一般步骤二参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四全局变量的使用五调用静态载入六调用动态载入七在DLL建立一个TForM八在DLL中建立一个TMDIChildForM九示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题：十一相关资料一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字，在其下写过程的名称。

不用写参数和调用后缀。二参数传递1 参数类型最好与window C++的参数类型一致。

不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。

成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼容。3 用stdcall声明后缀。

4 最好大小写敏感。5 无须用far调用后缀，那只是为了与windows 16位程序兼容。

三 DLL的初始化和退出清理[如果需要初始化和退出清理]1 DLLProc[SysUtils单元的一个Pointer]是DLL的入口。在此你可用你的函数替换了它的入口。

但你的函数必须符合以下要求[其实就是一个回调函数]。如下：procedure DllEnterPoint(dwReason: DWORD);far;stdcall;dwReason参数有四种类型：DLL_PROCESS_ATTACH：进程进入时DLL_PROCESS_DETACH进程退出时DLL_THREAD_ATTACH 线程进入时DLL_THREAD_DETACH 线程退出时在初始化部分写： DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH);2 如Form上有TdcomConnection组件，就Uses Activex，在初始化时写一句CoInitialize (nil);3 在退出时一定保证DcomConnection.Connected := False，并且数据集已关闭。

否则报地址错。四全局变量的使用在widnows 32位程序中，两个应用程序的地址空间是相互没有联系的。

虽然DLL在内存中是一份，但变量是在各进程的地址空间中，因此你不能借助dll的全局变量来达到两个应用程序间的数据传递，除非你用内存映像文件。五调用静态载入1 客户端函数声名：1）大小写敏感。

2）与DLL中的声明一样。如： showform(form:Tform);Far;external'yproject_dll.dll';3）调用时传过去的参数类型最好也与windows c++一样。

4）调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；windows;widows\system;windows\ssystem32；六调用动态载入1 建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：type mypointer=procedure(form:Tform);Far;external;var Hinst:Thandle; showform:mypointer;begin Hinst:=loadlibrary('yproject_dll');//Load一个Dll，按文件名找。

showform:=getprocaddress(Hinst,'showform')；//按函数名找，大小写敏感。如果你知道自动化对象的本质就清楚了。

showform(application.mainform)；//找到函数入口指针就调用。 Freelibrary(Hinst);end；七在DLL建立一个TForM1 把你的Form Uses到Dll中，你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点，因为你的Form或许Uses了许多特殊的单元或函数]2 传递一个Application参数，用它建立Form.八在DLL中建立一个TMDIChildForM1 Dll中的MDIForm.FormStyle不用为fmMDIChild.2 在CreateForm后写以下两句：function ShowForm(mainForm:TForm):integer;stdcallvar Form1: TForm1; ptr:PLongInt;begin ptr:=@(Application.MainForm)；//先把dll的MainForm句柄保存起来，也无须释放，只不过是替换一下 ptr^:=LongInt(mainForm)；//用主调程序的mainForm替换DLL的MainForm。

MainForm是特殊的WINDOW，它专门管理Application中的Forms资源.//为什么不直接Application.MainForm := mainForm，因为Application.MainForm是只读属性 Form1:=TForm1.Create(mainForm)；//用参数建立end；备注：参数是主调程序的Application.MainForm九示例：DLL源代码：library Project2;uses SysUtils, Classes, Dialogs, Forms, Unit2 in 'Unit2.pas' {Form2};{$R *.RES}var ccc: Pchar;procedure OpenForm(mainForm:TForm);stdcall;var Form1: TForm1; ptr:PLongInt;begin ptr:=@(Application.MainForm); ptr^:=LongInt(mainForm); Form1:=TForm1.Create(mainForm);end;procedure InputCCC(Text: Pchar);stdcall;begin ccc := Text;end;procedure ShowCCC;stdcall;begin ShowMessage(String(ccc));end;exports OpenForm; InputCCC, ShowCCC;beginend.调用方源代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure OpenForm(mainForm:TForm);stdcall;External'project2.dll';procedure ShowCCC;stdcall;External'project2.dll';procedure InputCCC(Text: Pchar);stdcall;External'project2.dll';procedure TForm1.Button1Click(Sender: TObject);var Text: Pchar;begin。

4.Delphi如何编写dll用以加载指定文件

工程不一样，通过开始菜单建立一个dll工程，将其主工程的抬头不是project

而是

library

此dll的工程，其最下方有：

Experts

在下边写上你的函数，如

Experts

dllAbc;

之后，在某个页面实现这个方法就可以了，不过一定要写上调用顺序如stdl标志

procedure TForm1.Button1Click(Sender: TObject);

var

threadID:THandle;

begin

CreateThread(nil, 0, @fun1, nil, 0, threadID);

end;

以上这句话确实被调用了么？可以考虑

procedure TForm1.Button1Click(Sender: TObject);

var

openDialog:TOpenDialog;

begin

ShowMessage('');

openDialog := TOpenDialog.Create(nil);

if openDialog.Execute then

end;

看看

end;

5.delphi如何调用DLL

所谓的静态调用DLL是指程序加载的时候直接就把需要的DLL全部加载了，一直到程序运行结束才释放这些加载的DLL这个就是所谓的静态加载，动态加载就是需要一个DLL中某个函数的时候加载这个DLL运行完成了这个函数就释放DLL，这个就是动态加载！你要静态加载DLL就用Delphi自己写一个DLL，并且写一个引出库（*.pas的），然后在你的应用程序中包含这个*.pas就根本不用声明DLL中那些乱七八糟的引出函数，直接用就可以了，如果该DLL不存在，那么整个应用程序将无法使用，但是动态调用DLL就不同了，就算DLL不在，应用程序仍然可以使用访问DLL库有两种方式，一种是静态引用，另一种是动态引用。

用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。

external命令的使用语法如下： procedure /function 过程/函数名；external DLL模块名；下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas，从中可看出输入单元与一般单元的一些差别，代码如下所示： unit testdll; interface uses function Min (X, Y: Integer): Integer; function Max (X, Y: Integer): Integer; implementation function Min; external 'minmax.DLL'; function Max; external 'minmax.DLL'; end. 一个应用程序若想调用minmax.DLL中的函数，只须在其uses语句中加入testdll 单元即可。动态装入DLL，要用到Windows的三个API函数。

Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库，其调用格式如下： function loadlobrary (DLLfileName:Pchar): THandle：当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下： procedure FreeLibrary (Libmodule:THandle) Libmodule 为由LoadLibrary调用得到的DLL库句柄。

在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中，可以使用该DLL库中的过程和函数，具体使用方法是：用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量，再用该变量实现DLL函数的调用。GetprocAddress函数声名如下， function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc：如下例所示： type TTimeRec = record Second: Integer; Minute: Integer; Hour: Integer; end; TGetTime = procedure(var Time: TTimeRec); THandle = Integer; var Time: TTimeRec; Handle: THandle; GetTime: TGetTime; 。

begin Handle := LoadLibrary('DATETIME.DLL'); if Handle <> 0 then begin @GetTime := GetProcAddress(Handle, 'GetTime'); if @GetTime <> nil then begin GetTime(Time); with Time do WriteLn('The time is ', Hour, ':', Minute, ':', Second); end; FreeLibrary(Handle); end; end；在调用动态链接库时应注意，所需动态链接库须与应用程序在同一目录或Windows System 目录下。静态调用 Function fun(para:Longint):Longint; stdcall; external 'xxx.dll'；动态调用 loadlibrary,getprocaddress,freelibrary三个函数。

6.如何在DELPHI中使用DLL

使用堆栈传递参数这个涉及参数的清除问题，就是堆栈的pop问题，在cdecl调用方式下是由调用者pop 堆栈，其它是由被调用者pop堆栈.说的太多了，怕你不明白，简单的讲，你用delphi调用api就用stdcall，调用c写的dll一般情况下就用cdecl，但你还是先看一下dll的调用约定的好。

以上说的都是dll的调用方式问题，操作Dll还是注意是静态调用还是动态调用，静态调用就是在程序先声明要用到该dll中的函数，如function SetWindowText; external user32 name 'SetWindowTextA'；以程序中就可以直接使用setwindowtext了，动态调用就不用说了吧，简单的很，自己试试吧。