delphi 调用vc编写的dll

[dongyf]

vc编写的dll
long SetMeterCode(long comnum,unsigned char *SendString, Unsigned char *ReceFrame:Pchar)

其中SendString为传入参数，ReceFrame为返回参数

delphi
函数定义
Function SetMeterCode(var comnum:DWord;var SendString:Pchar;var ReceFrame:Pchar):Dword;stdcall;External 'SetMeterCode.dll' ;

procedure TForm1.Button1Click(Sender: TObject);
var
SendStr:pchar;
MyCom:Dword;
ReStr:pchar;
i:integer;
begin
MyCom:=0;
SendStr:='68010a14111111111100000605';

if SetMeterCode(mycom,SendStr,ReStr)=0 then
showmessage('success')
else
showmessage('Failure');

showmessage(Restr);

end;

最后运行结果，返回来的ReStr为乱麻，应该是数字，并且函数不成功返回应该为负值，不论什么情况，返回都是0，而且运行最后报错read of address 000000135
请教各位大侠，应该如何处理

[leapmars]

function SetMeterCode(comnum: Interger; SendString: Pchar; ReceFrame: Pchar): Integer; stdcall; external 'SetMeterCode.dll';

[dongyf]

jiejuele

[xiangwangz]

long SetMeterCode(long comnum,unsigned char *SendString, Unsigned char *ReceFrame:Pchar)

其中SendString为传入参数，ReceFrame为返回参数

delphi
函数定义
Function SetMeterCode(comnum:DWord;SendString:Pchar;ReceFrame:Pchar):Dword;stdcall;External 'SetMeterCode.dll' ;

procedure TForm1.Button1Click(Sender: TObject);
var
SendStr:pchar;
MyCom:Dword;
ReStr:pchar;
i:integer;
begin
MyCom:=0;
SendStr:='68010a14111111111100000605';

if SetMeterCode(mycom,SendStr,ReStr)=0 then
showmessage('success')
else
showmessage('Failure');

showmessage(Restr);

end;

[szb123]

在调用客户端的project文件头use一个Sharemem单元,就不会有关闭程序时的错误了