请问为什么下面代码会出错。VC调用DELPHI DLL.

snowedforest 2004-08-27 05:29:29
DELPHI:
================================
library DCToJpg;
uses SysUtils, Classes, windows, Graphics, Jpeg;
function add(i:Pinteger;j:Pinteger):integer;stdcall;
begin
result:=i^+j^;
end;
exports
Add name 'Add';
begin
end.




VC调用部分:


typedef long (* _add)(long* a,long* b);

。。。
void CDllCallDlg::OnOK()
{


HINSTANCE hLibrary;
_add add;

hLibrary=LoadLibrary("DCToJpg.dll");
add=(_add)GetProcAddress(hLibrary,"Add");
long i;
long x(1),y(-2);

i= (*add)(&x,&y);
FreeLibrary(hLibrary);
CString s;
s.Format("%d",i);
::AfxMessageBox(s);

CDialog::OnOK();
}

...全文
109 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
rivershan 2004-08-27
  • 打赏
  • 举报
回复
改成cdecl
xxhfortrue 2004-08-27
  • 打赏
  • 举报
回复
void CDllCallDlg::OnOK()
{


HINSTANCE hLibrary;
_add add;

hLibrary=LoadLibrary("DCToJpg.dll");
if (hLibrary == NULL)
{
error();
}
add=(_add)GetProcAddress(hLibrary,"Add");
if (add == NULL
{
error();
}
long i;
long x(1),y(-2);

i= add(&x,&y);
FreeLibrary(hLibrary);
CString s;
s.Format("%d",i);
::AfxMessageBox(s);

CDialog::OnOK();
}
rivershan 2004-08-27
  • 打赏
  • 举报
回复
function add(i:Pinteger;j:Pinteger):integer;stdcall;
--------------------------------------------^^^^^^^^

stdcall改掉
xxhfortrue 2004-08-27
  • 打赏
  • 举报
回复
i= (*add)(&x,&y);

==>
i=add(&x,&y)

16,548

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • AIGC Browser
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧