delphi问题

Posted 2023-05-04

这个到底是什么意思？

我动态调用DLL，一直弹出这个。。。
type
TFun = function(FileName: PChar;ID:PChar):Boolean; stdcall;

var
Func:TFun;
Handle:HWND;
begin
Handle := LoadLibrary('Twindows.dll'); //动态载入DLL，并返回其句柄

if Handle > 0 then
begin
Func := GetProcAddress(Handle, 'Find');
ShowMessage('找到咯');
end;

Func('随机生成流动人口地址','随机生成流动人口地址');

弹出了窗口 找到咯
就是我运行这些代码，然后弹出这个窗口。。。
第二楼说的，依然不行

type
TFun = function(FileName: PChar;ID:PChar):Boolean; stdcall;
//定义一个函数类型,这个要与Dll中的导出函数
var
Func:TFun;
Handle:HWND;
begin
//加载dll
Handle := LoadLibrary('Twindows.dll'); //动态载入DLL，并返回其句柄
//如果加载成功了
if Handle > 0 then
begin
//根据导出函数的名字,去找函数在dll地址
Func := GetProcAddress(Handle, 'Find');
ShowMessage('找到咯');
end;
//你这里调用的时候 没有判断func是不是找到了?
//你上面只是去找,没有判断找到没有,所以这里会保存
//if assigned(Func) then
Func('随机生成流动人口地址','随机生成流动人口地址'); 参考技术A 声明？ 参考技术B Func := GetProcAddress(Handle, 'Find'); //改为@Func := GetProcAddress(Handle, 'Find');
试试

delphi DBGridEh 问题

DBGridEh的OnGetCellParams事件中
if qymst.FieldByName('spunit').AsString = 'm' then
begin
dbgrideh1.FieldColumns['pcs'].Font.Color := clred;
end
else
dbgrideh1.FieldColumns['pcs'].Font.Color := clnone;为什么当spunit <> m 的时候怎个网格都在闪

OnGetCellParams事件是会一直运行的（相当于刷新），如果你这里要当qymst.FieldByName(\'spunit\').AsString = \'m\'时才改变字体的颜色为红色，那么你完成可以设置所有字体的颜色为clnone，然后将事件改为：
if qymst.FieldByName(\'spunit\').AsString = \'m\' then
begin
dbgrideh1.FieldColumns[\'pcs\'].Font.Color := clred;
end;
这样就好了。 参考技术A 因为一直在重复赋值。当spunit <> m 的时候，字段pcs的字体颜色为空。但是你代码不该放在getcellparams事件中，建议放在DataSource的 dataChange事件中。