如何在DLL文件中使用ADOConnection和ADOQuery控件？？？(50分)

ql · 2003-02-08

各位师兄晚上好，在下有个困扰许久的问题，最近本人在学习DLL文件的编写，但遇到这样的问题： 我想用DLL文件的形式写个登录窗口，在DLL文件加入了ADOConnection和ADOQuery这样两个控件，但在调用时总是有问题，不知道是什么原因，请高手指点一下谢谢，附带原代码： DLL文件部分： library DLL; uses   ShareMem,   SysUtils,   Classes,   FDLL in 'FDLL.pas' {Form1}; exports   GetDLL;   {$R *.res} begin end. —————————————————————————————————— unit FDLL; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, DB, ADODB; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Button2: TButton;     Label1: TLabel;     Label2: TLabel;     ADOConnection1: TADOConnection;     ADOQuery1: TADOQuery;     procedure FormCreate(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   procedure GetDLL(var Op,Pass : string);export; var   Form1: TForm1;   TmpOp,TmpPass : string;   switch : boolean; implementation {$R *.dfm} procedure GetDLL(var Op,Pass : string); begin   if switch = false then     begin       switch := true;       form1 := tform1.Create(application);     end;   if form1.ShowModal = IdOk then     begin       Op := TmpOp;       Pass := TmpPass;       switch := false;     end; end; procedure TForm1.FormCreate(Sender: TObject); begin   try     begin       adoconnection1.Close;       adoconnection1.ConnectionString := 'Provider=MSDASQL.1;' +                                          'Persist Security Info=False;' +                                          'User ID=sa;' +                                          'Data Source=QL;' +                                          'Mode=ReadWrite;' +                                          'Initial Catalog=traffic';       adoconnection1.LoginPrompt := false;       adoconnection1.KeepConnection := true;       adoconnection1.Connected  := true;       adoconnection1.Open;       adoquery1.Connection := adoconnection1;       with adoquery1 do         begin           Close;           SQL.Clear;           SQL.Add('select * from sczy');           Open;         end;       if adoquery1.Bof and adoquery1.Eof then         begin           application.MessageBox('数据库中无可用信息！','系统信息',16);           application.Terminate;         end       else switch := true;     end   except     application.Terminate;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   switch := true;   if edit1.Text <> '' then     begin       TmpOp := edit1.Text;       TmpPass := edit2.Text;       with adoquery1 do         begin           Close;           SQL.Clear;           SQL.Add('select * from sczy where');           SQL.Add('(工号 = ' + '''' + trim(TmpOp) + '''' + ') and');           SQL.Add('(密码 = ' + '''' + trim(TmpPass) + '''' + ')');           Open;         end;       if adoquery1.Bof and adoquery1.Eof then         begin           application.MessageBox('数据库中无此工号！','系统信息',16);           edit1.Text := '';           edit2.Text := '';           TmpOp := '';           TmpPass := '';           edit1.SetFocus;           ModalResult := IdNo;         end       else ModalResult := IdOk;     end   else     begin       application.MessageBox('工号窗口不能为空！','系统信息',32);       edit1.SetFocus;       ModalResult := IdNo;     end; end; procedure TForm1.Button2Click(Sender: TObject); begin   switch := true;   ModalResult := IdOk; end; end. 调用程序部分： program ShowDLL; uses   ShareMem,   Forms,   FShowDLL in 'FShowDLL.pas' {Form1}; {$R *.res} begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end. —————————————————————————————————— unit FShowDLL; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, DB, ADODB; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   TMultiplyNum = procedure(var Op,Pass : string);   procedure MyGetDLL;export; var   Form1: TForm1;   StrOp,StrPass : string;   MyMultiplyNum : TMultiplyNum;   MyHandle : THandle; implementation {$R *.dfm} procedure MyGetDLL; begin   MyHandle := LoadLibrary('DLL.dll');   if MyHandle <> 0 then     begin       @MyMultiplyNum := GetProcAddress(MyHandle,'GetDLL');       if (@MyMultiplyNum) <> nil then         begin           MyMultiplyNum(StrOp,StrPass);           FreeLibrary(MyHandle);//此处好像有问题         end;     end; end; procedure TForm1.FormCreate(Sender: TObject); begin   MyGetDLL;   label1.Caption := '工号:' + StrOp;   label2.Caption := '密码:' + StrPass; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   if application.MessageBox('是否要退出系统？','系统信息',32 + MB_YesNo) = IDYes then     begin       application.Terminate;     end; end; end. —————————————————————————————————— 以上代码需要实现的功能是： 1、由应用程序调用DLL文件。 2、在DLL文件中输入工号和密码，如果数据库中存在则登录成功。 3、将在DLL文件中输入的工号和密码传给可执行文件，并在‘Label1’和‘Label2’中显示。 需要达到的要求： 1、在DLL文件判断所输入的工号和密码正确前不能返回。 2、在数据库没打开或不存在时可以关闭整个程序，包括可执行文件。 3、本例采用的是动态调用DLL方式。 请高手指点迷津，在下先谢谢了！！！ 另外小弟也是初学，不知道现在水平到底如何，通过这段程序请大家评判一下。 虚心向各位师兄请教。

zjan521 · 2003-02-08

我也不熟，提供思路 1.用BPL，动态调用不会 2.点确定时发消息给主程序，在主程序里判断 我想第2个应该比较合适， 要不然[blue][在数据库没打开或不存在时可以关闭整个程序，包括可执行文件。][/blue] 比较麻烦，不知道会出现什么问题

dirk · 2003-02-09

在dll中使用ADO的解答： 在 unit FDLL 中 uses ActiveX ，在最后（end.之前）加上： initialization     CoInitialize(nil); finalization     CoUninitialize; 1、在DLL文件判断所输入的工号和密码正确前不能返回。 答：过程没有结束之前自然不会返回； 2、在数据库没打开或不存在时可以关闭整个程序，包括可执行文件。 答：没试过，不过好像有好多方法，比如通过返回值在调用程序中判断是否退出等； 3、本例采用的是动态调用DLL方式。 答：用 LoadLibrary、FreeLibrary ，用法看帮助或在delphibbs中搜索一下。

ql · 2003-02-09

还是不行啊，还有问题，和原来一样。 我再描述一下我现在问题的状况： DLL文件可以启动，也能判断输入的内容是否正确，但点确定后可以即退出DLL，不管正确与否都退出该DLL，并未实现只有正确才退出。 在主程序中可以启动DLL文件，也能获得由DLL文件传出的参数变量，但无法正常关闭主程序，总是报错。

dirk · 2003-02-09

在调用dll的程序的.dpr文件的第一个uses的单元也必须是 ShareMem 。

ql · 2003-02-09

我上面的程序里有的。应该不是这个问题。

ildg · 2003-02-09

我用得好好的啊， 只要单元里面加上 initialization     CoInitialize(nil); finalization     CoUninitialize; 就没问题了

ql · 2003-02-09

为何关闭主程序时会出现： "0x1c027b05"指令引用的"0x1c027b05"内存。该内存不能"read"。要终止程序，请单击“确定”。 然后是： Runtime error 216 at 1c027b05 为什么有这样的提示？？？ 请指教！！！

dirk · 2003-02-09

两个凡是：凡是new的都要dispose，凡是create的都要free。 你再调试调试吧。

zjan521 · 2003-02-09

要我做的话，这样的功能分开好了，我总觉得在DLL中作这样的事情不好 .点确定时发消息给主程序，在主程序里判断 我想第2个应该比较合适， 要不然[在数据库没打开或不存在时可以关闭整个程序，包括可执行文件。] 比较麻烦，不知道会出现什么问题

lichengjun · 2003-02-10

根据DLL的编写法则，建议不要在DLL中使用控件，我以前在DLL中也使用ADO，如果不在单元里面加上 initialization     CoInitialize(nil); finalization     CoUninitialize; 肯定报错为何关闭主程序时会出现： "0x1c027b05"指令引用的"0x1c027b05"内存。该内存不能"read"。要终止程序，请单击“确定”。 然后是： Runtime error 216 at 1c027b05 后来我把ADO放到子程序里去用就一点问题都没有．

ql · 2003-02-10

多人接受答案了。

如何在DLL文件中使用ADOConnection和ADOQuery控件？？？(50分)

ql

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

ildg

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

lichengjun

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

Similar threads