delphi调用c语言的dll，退出时出现access violation at 0x...

最新推荐文章于 2019-01-17 14:50:00 发布

thundercumtIsTaken

最新推荐文章于 2019-01-17 14:50:00 发布

阅读量1.1k

点赞数 1

分类专栏： delphi

本文链接：https://blog.csdn.net/thundercumt/article/details/8528246

版权

delphi 专栏收录该内容

0 篇文章 0 订阅

订阅专栏

项目中delphi程序调用c语言的dll一切正常，退出时出现错误access violation at 0x...

网上查到貌似与调用约定有关，试验将delphi声明中copy过来的stdcall换成cdecl，成功解决。

dll函数声明：
interface
type
AnotherRecord = record
chars : array[0 .. 511] of char;
end;
PAnotherRecord = ^AnotherRecord;

function echo(ptr:PAnotherRecord) : Integer; cdecl; //stdcall;

implementation
const
YetAnother = 'YetAnother.dll';
function echo; external YetAnother name 'echo';

end.

dll调用：
var ar : AnotherRecord;
ar.chars := 'i can call this shit in dll';
echo(@ar);

c头文件：
typedef struct STR{
    char chars[MaxSz];
}STR;
int echo(STR *str);

函数实现:
int echo(STR *str){
    printf("%s\n", str->chars);
    return 0;

}