• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi开发扩展(一)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

 

{主程序}

unit Unit2;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TPluginName = Function:string; stdcall;
  TShowPerSN  = function(AHandle:THandle;ADOConn:TADOConnection;ACaption:String):BOOL;StdCall;

type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    LibHandle: HMODULE;
    procedure LoadPlugins;
    procedure LoadPlugin(sr: TSearchRec);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.FormCreate(Sender: TObject);
begin
  LibHandle:=0;//初始化LibHandle的值。
  LoadPlugins;//调入LoadPlugins过程。
end;

procedure TForm2.LoadPlugins;
var
  sr: TSearchRec;
  path: string;
  Found: Integer;
begin
  path := ExtractFilePath(Application.Exename);
  try
    Found := FindFirst(path + '*.DLL', 0, sr);
    while Found = 0 do//查找文件。
    begin
      LoadPlugin(sr);
      Found := FindNext(sr);
    end;
  finally
    FindClose(sr);
  end;
end;



procedure TForm2.ListBox1DblClick(Sender: TObject);
var k:TPluginName;ShowPerSN:TShowPerSN;
begin
  if ListBox1.ItemIndex<>-1 then
  begin
    if LibHandle<>0 then
      FreeLibrary(LibHandle);

    LibHandle:= LoadLibrary(Pchar(self.ListBox1.Items[self.ListBox1.ItemIndex]));
    if LibHandle <> 0 then
    begin
      try
        @k:= GetProcAddress(LibHandle, 'GetName');
        self.Text:=k;

        @ShowPerSN:= GetProcAddress(LibHandle,'GetForm');
        if not (@ShowPerSN   =   nil)   then
        begin
           ShowPerSN(application.Handle,ADOConnection1,'');
           Invalidate;
        end;
      Except
        FreeLibrary(LibHandle);
        LibHandle:=0;
      end;
    end
    else
      ShowMessage('loading Dll file error!');
  end;
end;



procedure TForm2.LoadPlugin(sr: TSearchRec);
var
  iLibHandle: HMODULE;
begin
  iLibHandle := LoadLibrary(Pchar(sr.Name));
  if iLibHandle <> 0 then
  begin
    try
       ListBox1.Items.Add(sr.Name);
    finally
      FreeLibrary(iLibHandle);
    end;
  end else
    ShowMessage('loading Dll file error!');
end;

end.

 

 

 

 

 

 

 

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB 散点数据拟合曲线发布时间:2022-07-18
下一篇:
提供一个Matlab的BP神经网络的基础资料(继续) - 星云外发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap