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

delphi 开发扩展（二）

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

library plug_in;

uses
  SysUtils,
  Classes,
  Unit3 in 'H:\test\Unit3.pas' {Form3};

exports GetForm,GetName;

{$R *.res}

begin
end. 

 

 

{要加载的窗体}

unit Unit3;


interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  ADO: TADOConnection;

  function GetName:string;StdCall;
  function GetForm(AHandle:THandle;adoconn:TADOConnection;ACaption:String):BOOL;StdCall;


implementation

{$R *.dfm}

function GetName:string;
begin
  result:='my dll';
end;

function GetForm(AHandle:THandle;adoconn:TADOConnection;ACaption:String):BOOL;
  var
    ShowForm:TForm3;
  begin
    Application.Handle:=AHandle;
    ADO:= adoconn;
    ShowForm :=TForm3.Create(Application);
    try
        if ACaption<>'' then
        ShowForm.Caption:=ACaption;
        ShowForm.ShowModal;
        Result:=False;
    finally  
        ShowForm.Free;
    end;  
  end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  self.ADOQuery1.Connection:=ADO;
  with  self.ADOQuery1 do
  begin
     Connection:=ADO;
     close;
     SQL.Clear;
     SQL.Add('select top 1 * from master');
     open;
  end;
end;

end.

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi中实现变长函数笔记发布时间：2022-07-18
下一篇：
Delphi的RTTI机制浅探(转)发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

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

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