如果用Delphi做一个Dll肯定我需要公开一个子程序，并且提供相应的参数。...

Posted 2023-05-11

如果用Delphi做一个Dll肯定我需要公开一个子程序，并且提供相应的参数。请给我一断简单的说明和示例代码好吗？再说明一下子程序如何公开。谢谢

//创建DLL

library test;

uses
dialogs,
SysUtils,
Classes;

$R *.res
function My_Max(a,b:integer):integer;stdcall;
begin
if (a > b) then
result := a
else
result := b;
end;

exports My_Max;

begin
end.

//调用开始

unit Unit11;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,stdctrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;

var
Form1: TForm1;

implementation

$R *.dfm
function My_Max(a,b:integer):integer;stdcall;
external 'E:\mypro\1019(3)\test.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(my_max(25,10)));
end;

end.

调用时注意DLL里的函数是区别大小写的，这点和DELPHI里的函数不太一样，如果调用的和DLL里的不一致，会报一个无法定位程序输入点的错误。 参考技术A delphi本身带的例子就很简单，很多书里面讲的也很简单的，手头没有书，要不然给你抄一段

怎样把做好的delphi程序生成DLL文件？？

怎样把做好的delphi程序生成DLL文件？？ 请详细回答谢谢

参考技术A 在接口部分用exports关键字把要暴露的函数发布出来
然后直接把后缀改成dll就行了
如果怕这么做不安全，那还是用dll向导生成吧