pb里面这样调用的:
FUNCTION BOOLEAN GetMoneyString (DOUBLE dbMoney, int bValid, REF STRING strMoney) LIBRARY "ICLIB.DLL"string strMoney
strMoney = space(8)
GetMoneyString (100 , 1 , ref strMoney) 我在delphi里面:
FUNCTION GetMoneyString (dbMoney:double;bValid:integer;out strMoney:pchar):BOOLEAN;StdCall external 'ICLIB.DLL';然后:
procedure TForm1.Button5Click(Sender: TObject);
var
buf: array[0..7] of char;
S: Pchar;
f:double;
begin
FillChar(buf, 8, 0); { initialize the buffer }
s:=@buf;
GetMoneyString(23, 0 ,s);
end;结果执行Button5Click的时候就报错,各位大哥帮帮我吧!!!!
FUNCTION BOOLEAN GetMoneyString (DOUBLE dbMoney, int bValid, REF STRING strMoney) LIBRARY "ICLIB.DLL"string strMoney
strMoney = space(8)
GetMoneyString (100 , 1 , ref strMoney) 我在delphi里面:
FUNCTION GetMoneyString (dbMoney:double;bValid:integer;out strMoney:pchar):BOOLEAN;StdCall external 'ICLIB.DLL';然后:
procedure TForm1.Button5Click(Sender: TObject);
var
buf: array[0..7] of char;
S: Pchar;
f:double;
begin
FillChar(buf, 8, 0); { initialize the buffer }
s:=@buf;
GetMoneyString(23, 0 ,s);
end;结果执行Button5Click的时候就报错,各位大哥帮帮我吧!!!!
将out 去掉试下