调用dll中的变量转换问题(50分)

午

午睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #1

vc编译的dll文件，具体函数InOut定义如下：
int InOut(int ID ,int *YYYY,int *MM,int *DD,char *Status)
参数 ID 编号
YYYY MM DD (传回变量) 年月日
Status (传回变量) 状态
int* 和 char*对应delphi什么类型？

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #2

int* -> pinteger
char* -> pchar

 

午

午睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #3

下面这么写对吗？
var
revalue,ID:integer

YYYY,MM,DDinteger;
Statuschar;
---------------
ID:=1

revalue:=GetOneInOut(ID,YYYY,MM,DD,Status);

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #4

那样写需要为指针分配内存,不如这样:
var
revalue,ID:integer

YYYY,MM,DD:integer;
Status:char;
---------------
ID:=1

revalue:=GetOneInOut(ID,@YYYY,@MM,@DD,@Status);

或者可以用var方式传参:
function InOut(ID: integer
var YYYY, MM, DD: integer
var Status: char): integer;
就不用'@'了

 

A

a_mao_gong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #5

对，就是这样写的。
int InOut(int ID ,int *YYYY,int *MM,int *DD,char *Status)
function InOut(ID: integer
YYYY: PInteger
MM: PInteger
Status: PChar): Integer;

 

午

午睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #6

谢谢