Delphi盒子-问答悬赏

蜗牛大仙：  能不能把需求写明确点
 

ghs： 
联系我，给你例子。QQ:80294551

雪莱：  附件传不上来，晕死，QQ:52926110
dll中内容发一下
 

library Padodll;
uses
  SysUtils,
  Classes,
  Windows,
  Forms,
  dllunit in 'dllunit.pas' {dllform};
exports
  calldllform;
{$R *.res}
procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then begin
    Dllfinalization;
    Application:=DllApplication;
  end;
end;
 
begin
  DllApplication:=Application;
  DLLProc := @DLLUnloadProc;
end.
 
dll中窗体，调用也简单

 

unit dllunit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DB,ADODB, StdCtrls, ExtCtrls, Grids, DBGrids;
 
type
    TDllTrItem=class
     AppliHandle:HWnd;
     MainForm:TForm;
     FConnection:TADOConnection;
    end;
  Tdllform = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
     FadoCon:TADOConnection;
    { Public declarations }
  end;
  procedure calldllform(Dllitem:TDllTrItem);stdcall;far;
  procedure Dllfinalization; stdcall; far;
 
var
  DllApplication: TApplication;
 
implementation
 
{$R *.dfm}
procedure calldllform(Dllitem:TDllTrItem);
  var ptr:PLongInt;
begin 
  ptr:=@(Application.MainForm);//先把dll的MainForm句柄保存起来，也无须释放，只不过是替换一下
  ptr^:=LongInt(Dllitem.MainForm);//用主调程序的mainForm替换DLL的MainForm。MainForm是特殊的WINDOW，它专门管理Application中的Forms资源
  with Tdllform.create(application) do
  try
     FadoCon:=Dllitem.FConnection;
     ADOQuery1.Connection:=FadoCon;
    showmodal;
  finally
    free;
  end;
 
end;
procedure Dllfinalization;
var
  i,Count:integer;
  obj:TComponent;
begin
  Count:=Application.ComponentCount;
  for i:=Count-1 downto 0 do begin
    obj:=Application.Components[i];
    if obj.InheritsFrom(TForm) then
      obj.Free;
  end;
end;
 
procedure Tdllform.Button1Click(Sender: TObject);
begin
  ADOQuery1.active:=False;
  ADOQuery1.SQL.Text:='select * from tkc';
  ADOQuery1.Open;
end;
 
end.