delphi如何调用vc写的dll中的函数(100分)

vc写的dll中的函数声明如下：
_stdcall DesFunc2(LPSTR input,LPSTR deskey,short int flag, LPSTR& output,LPSTR& strlen)

请问delphi中如何调用？

function DesFunc2(input,deskeychar;flag:integer
output,strlenchar):?;stdcall

不行，按照你说的调用
function DesFunc2(input,deskeychar;flag:integer
output,strlenchar):integer;stdcall
external 'des.dll';

procedure Tfrm_dialup.bt_dialClick(Sender: TObject);
var
i,j:integer;
desflag:smallint;
a,b,c,key,mchar;
begin
desflag:=0;
a:='hello';
c:=' ';
m:=' ';
key:='123';
i:=desfunc2(a,key,desflag,c,m);
showmessage(c);
exit;
end;

调用出错，提示Access Violation at address 10006761 in module 'des.dll'.

Function DesFunc2(inputChar
deskeyChar
flag:ShortInt
outputPChar
strlenPChar):Integer;stdcall
external 'des.dll';

首先C中的short int是16位有符号整数对应Delphi的shortint.
在一个后两个参数传递的是两个的引用，实际上编译后就是传指针而已。因为类型是LPSTR所以就是字符指针的指针 PPChar。
调用如下
var
i,j:integer;
desflag:smallint;
a,b,c,key,mchar;
begin
desflag:=0;
a:='hello';
c:=' ';
m:=' ';
key:='123';
i:=desfunc2(a,key,desflag,@c,@m);
showmessage(c);
exit;
end;