就2行C翻译到delphi(在线等) (100分)

D

DZHZH2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #1

在C里引用dll里的函数：
extern RCV_MSG* APIENTRY AnalyeAlarmInfo(RCV_MSG* rcvmsg, char far* msg);
extern char far* APIENTRY PackCommandInfo(char far* cmd, SND_MSG* sndmsg);

在delphi里怎么写？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #2

function AnalyeAlarmInfo(var rcvmsg: RCV_MSG
msg: PChar): LPRCV_MSG
stdcall
external 'Dll名称' name 'AnalyeAlarmInfo';
function PackCommandInfo(cmd: PChar
var sndmsg: SND_MSG): PChar
stdcall;external 'Dll名称' name 'PackCommandInfo';

 

D

DZHZH2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #3

请问yzhshi富翁
LPRCV_MSG
为什么要加'LP'？是什么意思？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #4

表示 RCV_MSG* 的。就是你的返回值的结构，可以使用Pointer代替。
但是你必须知道这个结构才能正确处理的。

 

D

DZHZH2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #5

yzhshi富翁：给分了
请留下QQ或者Email吧，还有写问题请教。会给分的！

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #6

呵呵，分我倒不是太在意。。。
yzhshi@etang.com，只要我会＋我有时间。
OK。