delphi中调用vc编写的dll问题！ ( 积分: 50 )

procedure SetFileName(fimenameCHAR);cdecl;external'MP3Enc.dll'name'?SetFileName@CMP3Enc@@QAEXPAD@Z';
var
pCHAR;
getmem(p,sizeof(PCHAR));
p:= PCHAR(ParamStr(1));
SetFileName(p);

或SetFileName（ParamStr(1)）;
都出现Exception EAccessViolation in module MP3Enc.dll at 00002314.
Access violation at address 10002314 in module '***.dll'. Write of address 00
000218.问题***.dll为一vc编写的dll

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3731519