频道分类

delphi package 把函数单元做成bpl调用

作者:admin 来源: 日期:2020/3/9 21:09:23 人气: 标签:

 
unit MYfunction;

interface

function fun(i: Integer):Integer;stdcall;

implementation

function fun(i: Integer):Integer;stdcall;
begin
  Result := i+1;
end;

exports fun;
end.

之后New->Other->Package->Add  MYfunction.pas->save MyPackage.dpk->Compile->生成MyPackage.bpl

EXE调用:
function fun(i: Integer):Integer;stdcall;external 'MyPackage.BPL';

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(fun(1)));
end;

上一篇:delphi mysql里delphi事件类型转Unix时间戳下一篇:没有资料