delphi中如何调用vc++的dll

Question

VC++,delphi都不甚精通,正好有需要,碰到问题请教大家VC中定义int PASCAL KeyGenOut(BYTE* UserInfo1,DWORD dwLen,BYTE* OutKey),作用是传入参数userinfo1及dwlen,得到outkey的值Delphi中我写的是:
function KeyGenOut(UserInfo:pchar;dwLen:DWord;var OutKey:pchar):Integer; stdcall;implementation              
function KeyGenOut;external 'KeyGenDll.DLL' name 'KeyGenOut';然后调用KeyGenOut( userinfo1 , dwlen1 , outkey )  ;
结果就是得不到outkey的值,请大家帮忙解决,
最好有详细的代码,谢谢................急急急急急急急急急

Answer 1

Function KeyGenOut(UserInfo1:PByte;DwLen:DWORD;OutKey:PByte):Integer;pascal;external 'KeyGenDll.DLL';

Answer 2

请教laihongbo524 
这样改是没有报错了,但是outkey没有返回值啊
调用时KeyGenOut( pbyte(userinfo) , dwlen1 , pbyte(outkey) )  ;这样写对挖?

Answer 3

KeyGenOut(userinfo , dwlen1 , outkey )