dll(delphi)的使用

最新推荐文章于 2024-08-06 15:33:04 发布

EEcode

最新推荐文章于 2024-08-06 15:33:04 发布

阅读量281

点赞数

文章标签：开发语言

本文链接：https://blog.csdn.net/gdcode/article/details/124057662

版权

这篇博客详细介绍了如何在Delphi中创建和使用DLL。通过Project2.DPR的库定义和Unit2.PAS的接口实现，展示了DLL如何接收并处理调用者的数据，包括句柄、数据库连接、字符串和整数。在主调用程序Project1.DPR和Unit1.PAS中，演示了如何调用DLL的过程DoTest，并传递参数。

摘要由CSDN通过智能技术生成

dll(delphi)的使用：

Project1.DPR {主叫程序}
Unit1.PAS {主叫程序单元}
Project2.DPR {DLL}
Unit2.PAS {DLL单元}

{---------- DLL 主程序 Project2.DPR ----------}

library Project2;

uses
SysUtils,
Classes,
Unit2 in ‘Unit2.pas’ {Form1};

{$R *.RES}

{ 下面的语句用于向调用该 DLL的程序提供调用接口 }
exports
DoTest; { 过程来自单元Unit2 }

begin
end.

{---------- DLL中的单元 Unit2.PAS ----------}

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, StdCtrls, Menus;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;{ 本地数据库连接 }
Memo1: TMemo; { 用于显示信息 }
private
public
end;

{ 该过程向外提供 }
procedure DoTest(H: THandle; { 获得调用者的句柄 }
AConn: TADOConnection;{ 获得调用者的数据库连接 }
S: string; { 获得一些文本信息 }
N: Integer); { 获得一些数值信息 }
cdecl; { 指定调用协议 }

impl