高分请教,请高手指教:)

Kingboyren 2004-11-01 04:42:53
下面的这一段代码是人家写好的,我希望调用动态库里面的Y_GetImageProperties函数
const
YA202L_PATH = 'ya202l.dll';
type
Y_T_Handle = Longint;
Y_T_Bool = bool;

Y_T_ImageProperties = packed record
Size: integer;
EffectiveRatio: integer;
CenterOffsetX: integer;
CenterOffsetY: integer;
end;
Y_P_ImageProperties = ^Y_T_ImageProperties;
function Y_GetImageProperties(Image: Y_T_Handle; out Properties: Y_T_ImageProperties)Y_T_Bool; stdcall; external YA202L_PATH;
/////////
我写的调用函数
function usedll Y_T_Bool;
var
image:Y_T_Handle;
tmpstruct:Y_P_ImageProperties;
begin
new(tmpstruct);
result:=Y_GetImageProperties(image,tmpstruct^);
end;
调用的时候报错,请大家帮帮忙看看,多谢。
...全文
91 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Kingboyren 2004-11-02
  • 打赏
  • 举报
回复
非感谢大家,result:=Y_GetImageProperties(image,@tmpstruct);我也试了,还是不行,我程序开始报的错误是:无法定位程序输入点Y_GetImageProperties于动态链库ya202l.dll上。请大家再帮帮忙看看,非常感激。
beyondtkl 2004-11-02
  • 打赏
  • 举报
回复
无法定位程序输入点Y_GetImageProperties于动态链库ya202l.dll上

->>> 是找不到符合定义的函数 你的DLL与你的前台调用程序中对函数的声明不一致导致的。。

你把DLL中的函数的原始声明贴出来。。。
linzhengqun 2004-11-01
  • 打赏
  • 举报
回复
function usedll Y_T_Bool;
var
image:Y_T_Handle;
tmpstruct:Y_T_ImageProperties
begin
result:=Y_GetImageProperties(image,@tmpstruct);
end;

这样试试,
不过你的image参数是不是应该先赋值呢,是不是位图的句柄呢,
beyondtkl 2004-11-01
  • 打赏
  • 举报
回复
具体是什么错误。。。
Kingboyren 2004-11-01
  • 打赏
  • 举报
回复
to beyondtkl(大龙驹<我在长大>) 我也是跟你的想法一样,但是这是人家已经写好的了,不知道
out Properties: Y_T_ImageProperties改为out Properties: Y_P_ImageProperties行不行?
beyondtkl 2004-11-01
  • 打赏
  • 举报
回复
function Y_GetImageProperties(Image: Y_T_Handle; out Properties: Y_T_ImageProperties)Y_T_Bool; stdcall; external YA202L_PATH;

->
function Y_GetImageProperties(Image: Y_T_Handle; out Properties: Y_T_ImageProperties):Y_T_Bool; stdcall; external YA202L_PATH;name '***';

觉得 这个 out Properties: Y_T_ImageProperties 参数不太正确的样子 应该是传入指针的。。。
Kevin_Lmx 2004-11-01
  • 打赏
  • 举报
回复
function usedll_Y_T_Bool:Boolean;
var
image:Y_T_Handle;
tmpstruct:Y_P_ImageProperties;
begin
new(tmpstruct);
result:=Y_GetImageProperties(image,tmpstruct^);
end;
相关推荐
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2004-11-01 04:42
社区公告
暂无公告