求助:我的 DLL ,在 delphi 中调用有错啊

MJXQJ888 2008-04-24 11:02:20
TEST3

test3.h
#ifdef SENDCARD_EXPORTS
#define SENDCARD_API extern "C" __declspec(dllexport)
#else
#define SENDCARD_API extern "C" __declspec(dllimport)
#endif


#define ON 1
#define OFF 0
#define OK 0
#define FAIL 1
#define DATA 0
#define BufferSize 50
#define MCR1 4
#define MSR 6
#define LSR1 5
#define B0 0x01
#define B7 0x80
#define OFF 0
#define SPACE ' '
#define TRUE 1
#define FALSE 0



extern "C" _declspec(dllexport) int sum(int a,int b);//


test3.cpp
#include "stdafx.h"
#include "math.h"
#include "test3.h"
BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}


extern "C" _declspec(dllexport) int sum(int a, int b)
{
return a+b;
}

编译生成了 test3.dll


我在 delphi 里:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Function sum(i:integer; j:integer):integer;stdcall; //

implementation

Function sum(i:integer; j:integer):integer;external 'test3.dll'; //

end.



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses
Unit2;



{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
m : integer;
begin
m := sum(20,30);
edit1.Text := inttostr(m);
end;

end.


可是按 Button1 出现内存地址错误

是不是
extern "C" _declspec(dllexport) int sum(int a,int b);//
应该改为
extern "C" _stdcall int sum(int a,int b);//


如果是这样的话
#ifdef SENDCARD_EXPORTS
#define SENDCARD_API extern "C" __declspec(dllexport)
#else
#define SENDCARD_API extern "C" __declspec(dllimport)
#endif

应该改为什么呢?
谢谢!


我把
extern "C" _declspec(dllexport) int sum(int a, int b)
改为了 extern "C" int _stdcall sum(int a, int b)

也不行
...全文
47 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
向立天 2008-04-25
首先,你试试把头改成

#ifdef __cplusplus
#define DLLEXPORT extern "C" __declspec(dllexport)
#else
#define DLLEXPORT __declspec(dllexport)
#endif

然后,.DEF 不是必需的,但它的名字必须与DLL的名字一致
回复
MJXQJ888 2008-04-25
各位大哥
再帮帮我啊!
回复
我的blog上有一篇
http://blog.csdn.net/akirya/
回复
Chivalry 2008-04-24
学会使用搜索工具
要知道,你不是第一个遇到这种问题的
http://www.baidu.com/s?wd=delphi+_declspec
回复
Chivalry 2008-04-24
保持调用约定一致试试看

Function sum(i:integer; j:integer):integer;cdecl;external 'test3.dll';
http://xieyunc.blog.163.com/blog/static/1363060120074232135421/
回复
MJXQJ888 2008-04-24
谢谢大哥,还是不行呢!
回复
Chivalry 2008-04-24
写一个Function sum(i:integer; j:integer):integer;stdcall;external 'test3.dll'; //就可以了
回复
MJXQJ888 2008-04-24
各位大哥
还是不行啊
是不是需要 .DEF 文件啊
DEF 文件的名字可以随便取吗?
谢谢!
回复
相关推荐
基于java的企业人事管理系统设计--软件工程课程设计(含源码与论文设计).rar 1 引言 4 1.1 课程设计目标 4 1.2 编程工具(编程环境)介绍 4 1.3 实施时间及主要实施步骤 4 2 需求分析 5 3 系统总体设计 6 4 数据库设计 6 5 主要功能模块的设计与实现 10 5.1 功能模块1详细设计(综合查询员工信息)..........................................................10 5.1.1 详细设计.......................................................................................................10 5.1.2 算法流程........................................................................................................15 5.1.3 界面设计及测试结果.....................................................................................15 6 调试分析 15 7 用户手册 16 8 测试结果 17 8.1 员工信息的添加...................................................................................................17 8.2 员工信息的修改...................................................................................................17 8.3 员工信息的删除...................................................................................................18 8.4 员工信息的综合查询...........................................................................................18 8.5 员工信息按性别统计的结果................................................................................19 8.6 员工信息按状态统计的结果...............................................................................19 8.7 员工信息按职称统计的结果................................................................................20 9 结论 20 10 参考文献 20
发帖
VC/MFC
创建于2007-09-28

1.5w+

社区成员

VC/MFC相关问题讨论
申请成为版主
帖子事件
创建了帖子
2008-04-24 11:02
社区公告

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