zoukankan      html  css  js  c++  java
  • Delphi Dll示例

    //MyInt.pas
    unit MyInt;
    
    interface
    
    {$IFNDEF MYLIB}
    function MyAdd(a,b:integer):integer ;stdcall;
    {$ENDIF}
    
    implementation
    
    {$IFNDEF MYLIB}
    function MyAdd; external 'MyLib.dll' name 'MyAdd';
    {$ENDIF}
    end.
    
    //MyLib.dpr
    library MyLib;
    
    { Important note about DLL memory management: ShareMem must be the
      first unit in your library's USES clause AND your project's (select
      Project-View Source) USES clause if your DLL exports any procedures or
      functions that pass strings as parameters or function results. This
      applies to all strings passed to and from your DLL--even those that
      are nested in records and classes. ShareMem is the interface unit to
      the BORLNDMM.DLL shared memory manager, which must be deployed along
      with your DLL. To avoid using BORLNDMM.DLL, pass string information
      using PChar or ShortString parameters. }
    
    uses
      SysUtils,
      Classes,
      MyInt in 'MyInt.pas';
    
    {$R *.res}
    function MyAdd(a,b:integer):Integer ; stdcall;
    begin
        result := (a + b);
    end;
    exports
        MyAdd;
    end.
    

     //使用:

    unit UnitMain;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        btnTestDll: TButton;
        btnDynamicCall: TButton;
        procedure btnTestDllClick(Sender: TObject);
        procedure btnDynamicCallClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    type
        TFuncMyAdd = function (a,b:Integer) : integer;stdcall;
    
    var
      Form1: TForm1;
    
    implementation
    uses
        MyInt;
    {$R *.dfm}
    
    procedure TForm1.btnTestDllClick(Sender: TObject);
    begin
        ShowMessageFmt('结果=%d',[MyAdd(1,2)]);
    end;
    
    procedure TForm1.btnDynamicCallClick(Sender: TObject);
    var
        libHandle : THandle;
        funcAdd : TFuncMyAdd;
    begin
       libHandle := LoadLibrary('MyLib.dll');
       try
            if libHandle = 0 then
            begin
                //raise error;
                ShowMessage('加载DLL失败!');
            end;
            @funcAdd := GetProcAddress(libHandle,'MyAdd');
            if not (@funcAdd = nil) then
            begin
                ShowMessageFmt('动态加载结果=%d',[funcAdd(1,2)]);
            end;
       finally
         FreeLibrary(libHandle)
       end;
    end;                      
    end.
    

      

  • 相关阅读:
    yum只下载不安装的方法
    在VS2008下编译Qt4.4.x
    Linux sh脚本异常:bad interpreter: No such file or directory
    动态链接库dll,静态链接库lib, 导入库lib 转
    Accumulation Buffer(累积缓存)
    mysql中ip和整数的转换
    开车撞人了!
    windows 下getc()返回0x1A表示EOF
    NPC问题
    关于普华永道、麦肯锡和IBM的笑话
  • 原文地址:https://www.cnblogs.com/wucg/p/4249908.html
Copyright © 2011-2022 走看看