高分请教,请高手指教:)
下面的这一段代码是人家写好的,我希望调用动态库里面的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;
调用的时候报错,请大家帮帮忙看看,多谢。