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);
解决方案 »
- delphi 2006 在Default Layout 模式下能全屏吗?
- 数据库与图片问题.
- 请教字符转换问题
- 如何使ExpressQuantumGrid的选择的行记录跟数据集组件的记录不同步,
- Wise 9.02 打包问题,问题解决立即结贴!
- 怎样屏蔽一个窗口的ALT+F4?
- 请教C/S结构!在线等待!!!!!!!!
- 问:关于moderml连接远程数据库 (50)
- 为什么query查询会错
- 100分
- 再来请教一个以前来问过大家的问题:就是做一个数据库查询用三个edit(edit1,edit2,edit3)和一个combobox控件具体要求如下,请各位给解答一下,谢谢!
- Delphi4.0中的Internet页中的Html控件在Delphi6.0中变成了哪一个控件,怎么找不到了?
MyHandle := LoadLibrary('dlltext.dll');