高分请教，请高手指教：）

[Kingboyren]

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

[Kevin_Lmx]

function usedll_Y_T_Bool:Boolean;
var
image:Y_T_Handle;
tmpstruct:Y_P_ImageProperties;
begin
new(tmpstruct);
result:=Y_GetImageProperties(image,tmpstruct^);
end;

[beyondtkl]

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 参数不太正确的样子 应该是传入指针的。。。

[Kingboyren]

to beyondtkl(大龙驹<我在长大>) 我也是跟你的想法一样，但是这是人家已经写好的了，不知道
out Properties: Y_T_ImageProperties改为out Properties: Y_P_ImageProperties行不行？

[beyondtkl]

具体是什么错误。。。

[linzhengqun]

function usedll Y_T_Bool;
var
image:Y_T_Handle;
tmpstruct:Y_T_ImageProperties
begin
result:=Y_GetImageProperties(image,@tmpstruct);
end;

这样试试，
不过你的image参数是不是应该先赋值呢，是不是位图的句柄呢，

[beyondtkl]

无法定位程序输入点Y_GetImageProperties于动态链库ya202l.dll上

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

你把DLL中的函数的原始声明贴出来。。。

[Kingboyren]

非感谢大家，result:=Y_GetImageProperties(image,@tmpstruct);我也试了，还是不行，我程序开始报的错误是：无法定位程序输入点Y_GetImageProperties于动态链库ya202l.dll上。请大家再帮帮忙看看，非常感激。