procedure TForm1.Button1Click(Sender: TObject);
//beginType TMyProc=Procedure (dataset:TDataset;dbgrid:TDBGrid ) ;Stdcall;
Var MyProc: TMyproc;
MyHandle:THandle;
begin
MyHandle:=LoadLibrary ('dlltest') ;
If MyHandle <= 0 then
Raise Exception.Create( '动态链接库调用失败,错误代码是:'+Inttostr(Getlasterror))
else
@MyProc:=GetProcAddress(MyHandle,'crprt');
if not Assigned(MyProc) then
Raise Exception.Create('GetProcAddress调用失败,错误代码是:'+inttostr(getlasterror))
else
MyProc(ADODataSet1,DBGrid1);
Freelibrary(Myhandle);
//beginType TMyProc=Procedure (dataset:TDataset;dbgrid:TDBGrid ) ;Stdcall;
Var MyProc: TMyproc;
MyHandle:THandle;
begin
MyHandle:=LoadLibrary ('dlltest') ;
If MyHandle <= 0 then
Raise Exception.Create( '动态链接库调用失败,错误代码是:'+Inttostr(Getlasterror))
else
@MyProc:=GetProcAddress(MyHandle,'crprt');
if not Assigned(MyProc) then
Raise Exception.Create('GetProcAddress调用失败,错误代码是:'+inttostr(getlasterror))
else
MyProc(ADODataSet1,DBGrid1);
Freelibrary(Myhandle);
解决方案 »
- 大家有没有碰到过,dxdbtreeview为什么窗体退出的时候,会自动删除数据!
- 使自定义的控件能拉伸
- LogonUser总是调用不成功 ?
- 为什么DBGridEh的列复选框不能编辑?
- 求解一个关于主菜单热键的难题,特难。
- 请问:怎么在局域网搜索sql服务器
- 在ACCESS中,我将主键用自动编号,不过如果我删除一条记录后,自动编号就变的不连续了,有什么好的方法解决?
- 如何捕获输入法切换时的消息?
- 关于SQL 2000数据库的一个问题!很急!!!!!
- 如何解决调用MSACCESS时总是要求输入username和password的问题
- 再来请教一个以前来问过大家的问题:就是做一个数据库查询用三个edit(edit1,edit2,edit3)和一个combobox控件具体要求如下,请各位给解答一下,谢谢!
- Delphi4.0中的Internet页中的Html控件在Delphi6.0中变成了哪一个控件,怎么找不到了?
MyHandle := LoadLibrary('dlltext.dll');