关于delphi动态库创建和调用的问题
调用代码
procedure TForm1.Button5Click(Sender: TObject);
var
Card, return: PChar;
i: integer;
a, b: string;
begin
Card := PChar(StringOfChar(Char(0), 32)); //StrAlloc(32 * SizeOf(char));
return := PChar(StringOfChar(Char(0), 128)); //StrAlloc(128 * SizeOf(char));
Card := '001';
i := GetPersonInfo(Card,return);
//ShowMessage(string(return));
ShowMessage(inttostr(i));
StrDispose(Card);
StrDispose(return);
end
动态库代码
function GetPersonInfo(var CardCode: PChar; Var RtnStr: PChar):Integer;stdcall;
var
CardID, xm, Rtn, Card: string;
xb,dqzt: integer;
Balance: Currency;
i: integer;
Temp: PChar;
begin
//Card := strPas(CardCode);
temp := StrAlloc(32 * SizeOf(Char));
StrCopy(temp, CardCode);
ShowMessage(CardCode);
//ShowMessage(IntToStr(integer(@CardCode)));
//ShowMessage(IntToStr(integer(@RtnStr)));
end;