delphi怎么写dll

2025-07-13 04:49:35分类：首页 > 知识

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;

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了，动态调用就不用说了吧，简单的很，自己试试吧。

7.delphi 写的dll中要如何加入对话框

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

而是

library

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

Experts

在下边写上你的函数，如

Experts

dllAbc;

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

procedure TForm1.Button1Click(Sender: TObject);

var

threadID:THandle;

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;

delphi怎么写dll

转载请注明出处育才学习网 » delphi怎么写dll

delphi怎么打开 delphi皮肤 delphi10.1
知识

2字上写100怎么弄

阅读(163)

本文主要为您介绍2字上写100怎么弄，内容包括二年级小学生日记怎么写100个字10篇，那个Word的文档里面的100字号怎么弄，怎么写日记作文100个字二年级。2012年8月18日 星期四 天气：晴 日记日记300字 今天，妈妈带我去逛街，我开心极了。我们上了一

知识

我的教室作文怎么写

阅读(181)

本文主要为您介绍我的教室作文怎么写，内容包括作文《我的教室》怎么写，作文《我的教室》怎么写，我的教室作文怎么写450字。我所在的学校----**学校。 一进学校大门，首先映入你的眼帘的是一幢高大的教学大楼。我们的教室就位于这座高大整洁的

知识

坟地证明怎么写

阅读(184)

本文主要为您介绍坟地证明怎么写，内容包括墓地归属证明证明写，证明怎么写，村委会死亡证明怎么写。死亡证明     兹有我村村民，姓名： ，性别： 民族： ，身份证号码（441622************），于 **年**月**日因

知识

辞职回去结婚辞职书怎么写

阅读(181)

本文主要为您介绍辞职回去结婚辞职书怎么写，内容包括回家结婚辞职报告怎么写，要回家结婚辞职报告怎么写，回家结婚,辞职怎么写。辞职信就是一份通知书，简单写写就行了辞职报告尊敬的公司领导：（我因XXXX事，）经本人再三考虑，决定在X年X月X日辞职，特向

知识

笔画竖左弯怎么写

阅读(371)

本文主要为您介绍笔画竖左弯怎么写，内容包括请问竖左弯是怎么写呢，小学语文拼音笔顺左弯竖,右弯竖,竖右弯,竖左弯应该怎么写搜狗，请问竖左弯是怎么写呢。竖左弯就是‘儿’ 的左半边。也是j的第二笔。扩展资料：笔画书写规范：横横画要写平稳，因

知识

1月5日英语怎么写

阅读(1060)

本文主要为您介绍1月5日英语怎么写，内容包括一月五日英语怎么写，1月1日~5日的早上英语怎么说，几月几号的英文表达。2月27号，英文表达为：February 27th，也可以不加th，直接写为 Februrary 27或27 February口语中可为

知识

鱼店广告怎么写

阅读(198)

本文主要为您介绍鱼店广告怎么写，内容包括有谁知道水产店店广告词一般都怎么写,非常感谢，片片鱼店咋做广告宣传标语，如何写卖鱼的广告词。呵护生态鱼类，倡导文明新风！保护鱼类功在千秋，重视生态造福后代！净化环境治污染，保护生态讲文明！行动起来，

知识

css内部样式怎么写

阅读(173)

本文主要为您介绍css内部样式怎么写，内容包括css内部样式表怎么写，CSS外部样式表怎么写，怎么把css样式表写在直接body里面。创建使用css样式表有三种，分别是外部样式表，内部样式表和内联样式。下面通过一个小demo演示它们的用法。首先新建一

知识

爷爷用韩语怎么写

阅读(260)

本文主要为您介绍爷爷用韩语怎么写，内容包括爷爷韩语怎么写，爷爷韩语怎么写，爷爷奶奶姨爹之内的用韩语怎么说怎么写。爷爷：할아버지 奶奶：할머니爷爷：主用法指祖父、或泛称祖父级男人。2、次要用法指父亲、或泛称父亲级男人。奶奶：爸爸的妈妈，或

知识

企业三年规划怎么写

阅读(223)

本文主要为您介绍企业三年规划怎么写，内容包括如何写企业3年规划，三年职业规划怎么写，未来三年规划怎么写。三年规划，看是什么规划，是发展战略规划，还是营销规划。 发展战略规划比较复杂，有专门的咨询公司专业做这种事情的，花费不菲，我们公司曾

知识

减免学费申请书怎么写

阅读(186)

本文主要为您介绍减免学费申请书怎么写，内容包括减免学费申请书怎么写，一篇免学费申请书30字，学费减免申请书怎么写我要范文谢了。技校免学费申请书写法如下：尊敬的xxx领导：x系xx专业学生XXX，男，身份证号：35052519841106XXXX；由于家庭经济贫困

知识

给圣诞老人的信怎么写

阅读(222)

本文主要为您介绍给圣诞老人的信怎么写，内容包括写给圣诞老人的信怎么写，“给圣诞老人的一封信”怎么写，给关于给圣诞老人写的写的一封信怎么写。圣诞爷爷： 您好！ 现在已经到了大雪纷飞的冬天，外面的景色真的好美，雪花翩翩起舞，山岭上白雪皑皑。

知识

不将就的繁体字怎么写

阅读(238)

本文主要为您介绍不将就的繁体字怎么写，内容包括不将就繁体字怎么写，往事不在回头,今后不在将就的繁体字怎么写，从前不回头往后不将就的繁体字怎么写。不字的繁体字是不。不的释义用在动词、形容词和其他副词前面表示否定。2、加在名词或名

知识

检索式怎么写举个例子

阅读(2581)

本文主要为您介绍检索式怎么写举个例子，内容包括如何写检索式,请举例，检索式举例，检索式举例。不同的数据库准备要求和专业搜索术语的表示。比如：逻辑“或”表示它所连接的两个检索词中任意一个出现在结果中就满足检索条件，检索式可写为：A

知识

c语言怎么写dll

阅读(179)

本文主要为您介绍c语言怎么写dll，内容包括用C语言如何写DLL?，用C语言编写DLL，C程序如何调用dll文件。//head file: asd.h #ifdef _cplusplus extern ＂C＂{ #else #endif #ifdef

知识

vb怎么写dll

阅读(165)

本文主要为您介绍vb怎么写dll，内容包括vb怎么写dll，怎样用VB编写标准dll，怎样用VB编写DLL文件。首先创建一个DLL工程，如图：2、然后新建一个类模板，如图：3、在类模板输入代码（代码是网上随便找的），如图：4、然后修改一下工程的名称

知识

c语言dll怎么写

阅读(214)

本文主要为您介绍c语言dll怎么写，内容包括用C语言如何写DLL?，用C语言编写DLL，C语言编写DLL。//head file: asd.h #ifdef _cplusplus extern ＂C＂{ #else #endif #ifdef

知识

c怎么写dll

阅读(183)

本文主要为您介绍c怎么写dll，内容包括怎样用C编写DLL?，用C语言如何写DLL?，C语言编写DLL。要做自己的 动态连接库，首先要知道DLL在VC5.0中都有哪几种分类。VC支持三种DLL，它们是： 1.Non-MFC Dlls 2.

知识

dll文件怎么写

阅读(145)

本文主要为您介绍dll文件怎么写，内容包括dll是什么文件格式，dll文件用什么语言写或者怎么制作，软件中的DLL等文件是怎么写出来的..。DLL的全称是Dynamic Link Library， 中文叫做“动态链接文件”。在Windows操作系统中， DLL对于程序执行是非

知识

怎么写dll文件

阅读(173)

本文主要为您介绍怎么写dll文件，内容包括如何编辑DLL文件，怎样编写dll文件，我想写一个dll文件,供大家用求教怎么写.net。呵呵.dll 动态链接库文件。很多编程软件都可以写出dll文件。你这种情况写一下是没用的 该DLL动态链接库文件已经不存

知识

怎么写dll

阅读(134)

本文主要为您介绍怎么写dll，内容包括大侠怎么写DLL?，如何去编写修改DLL文件，dll是怎么写出来的。我从数据库中取出一个记录，然后把它存为HTML文件，接着用WEBBROWERS浏览，并按所见的格式将起打印出来，最后再把他删了，用程序我

知识

易语言dll怎么写

阅读(182)

本文主要为您介绍易语言dll怎么写，内容包括易语言的DLL怎么写，易语言DLL接口该怎么写，易语言DLL命令怎么写呢我要弄打开文件。.版本 2.支持库 xplib.支持库 shell.支持库 spec.程序集 窗口程序集1.程序集变量 输入法句柄.子程序 __启动窗口

[/e:loop]