如题,我用BDE 连接数据库可以用,但是使用ADO组件连接就不可以了。
请高手指点一下。
请高手指点一下。
解决方案 »
- 求救贴:串口操作用Mscomm32.ocx控件,如果并口操作应该怎么样做?
- 关于判断直线,矩形,圆与椭圆的算法,有看不懂的地方,请指教
- listview是vsReport时,当listview得到焦点时如何让第一行为选中状态?
- 一个很怪的问题,望高手给出方法 在线焦急等待
- 请问在一个Form中打开另一个Form的方法以及需要传递参数时怎么办?
- 关于 fastReport 的若干问题:急?
- 关闭一个窗体,如何彻底释放全部资源?
- 在线等待~!在Oracle里怎样建视图?高手请进!进者有分!
- 怎样使按Ctrl+S时,执行某个动作?
- 各位大侠:用installshield5.1做安装时,怎样固定安装路径?(即不让用户选择路径)。
- DBGridEh控件怎样将选中的行取消?
- 請問如何判斷一個目錄是否存在? 多謝!
我是通过以下实现的,但我对dll的概念还很模糊,希望以后多交流,我的QQ是41735573library PrjDll;
uses
SysUtils,
Forms,
Windows,
Messages,
Classes,
UDllFrm in 'UDllFrm.pas' {DllFrm1}; //自己定义的窗体
{$R *.res}
var
DLLApp: TApplication;
DLLScr: TScreen;
function CreateDLLForm1(App: TApplication; Scr: TScreen ):TForm;begin
Application := App;
Screen := Scr;
Application.CreateForm(TDllFrm1, DllFrm1);
result:=DllFrm1;
dllFrm1.showModal;
end;procedure ExitDLL(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
Application := DLLApp;
Screen := DLLScr;
end;
end;exports
CreateDLLForm1,CreateDLLForm2;begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL; //全局变量,通过她可建立dll的入口函数和出口函数