调用VC编的DLL在回传值使的问题？？？(100分)

W

wangchaomin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #1

各位高手：
小弟在调用一个VC编的dlL时出现问题如下：
此函数有4个PCHAR的参数和一个指向LONGWORD的指针参数，返回一个LONGWORD
所有参数其实都为参数回串，而传送pchar变量，或变量地址都不能返回值，
一引用PCHAR参数就出现异常，‘ACCESS violation at address 00493d0b’请各位高手
指点一二，特敬上百分请笑纳

DWORD apiDeliver(char* szCalled,char* msg,char* time,char* dstnum,DWORD* restmsg);
//api 原型

代码:

deliver:function(var called:pchar;var msg:pchar;var time:pchar;var dstnum:pchar;restmsg:pointer):LONGWORD;cdecl;
var
  aa,bb,cc,dd:pchar;
  flag,count:longword;


 begin
 flag:=deliver(aa,bb,cc,dd,@count);
    showmessage(aa)
  //此时出错

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #2

deliver:function(calledchar;msgchar;timechar;dstnumchar;restmsgointer):LONGWORD;cdecl;
如果不行就是
deliver:function(calledchar;msgchar;timechar;dstnumchar;restmsgointer):LONGWORD;stdcall;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #3

在调用前，对 aa 分配了空间吗？

 

W

wangchaomin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #4

tseug：
我觉得不是调用方式的问题，我其它函数都是折么调用的。而且我试了一下你的方法也不行

jsxjd：
pchar在delphi中是不是动态分配的呀？我给参数初值也不行 ，
您能不能说一下分配空间的方法谢谢！

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #5

DWORD apiDeliver(char* szCalled,char* msg,char* time,char* dstnum,DWORD* restmsg);
>>
function apideliver(szCalled,msg,time,dstnumChar;var restmsg:Longword):longword;cdecl;

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #6

szCalledchar;
GetMem(szCalled,100);
FillChar(szCalled^,100,0);
这里你就可以使用了
freemem(szCalled);

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #7

呵呵, 给抢了

 

W

wangchaomin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #8

我试过了，还是不行，错误一样，
张无忌我可以把程序给你讲一下，电话是：84990833-222

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #9

你的 aa 不能象下面那样声明吗？

aa:array[0..100] of char;

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #10

你把每个参数都用下面的方法声明, 然后调用看看
var
szCalled : array[0..255];
msg : array[0..255];
dstnum : array[0..255];
restmsg : cardinal;
begin
....

用张无忌的
function apideliver(szCalled,msg,time,dstnumChar;var restmsg:Longword):longword;cdecl;
或者
function apideliver(szCalled,msg,time,dstnumChar;var restmsg:Longword):longword;stdcall;

 

W

wangchaomin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #11

谢谢各位前辈
改成数组后正常，可否解释一下我的错误。我必须先静态发配，为什么用pchar动态分配不行能？