H
hutaraki
Unregistered / Unconfirmed
GUEST, unregistred user!
我用delphi开发一卡通系统，当中用到PSafeArray参数，
所用的函数如下：
function ReadCardInfo(var wgRegisterCard: PSafeArray): Integer
safecall;
同时Psavearray变量指向的是一个数组，
具体的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
card:Array[0..4999] of cardinfo;
ss
SafeArray;
n:integer;
begin
[red][/red]ss:=@card;
ret:=cc.ReadCardInfo(ss);
if ret>=0 then
begin
showmessage('打开记录成功');
for n:=1 to 10 do
begin
memo1.Lines.Add(inttostr(card[n].ID));
end;
end
else
begin
showmessage('打开记录不成功');
showmessage(inttostr(ret));
end;
end;
请问应该怎么正确使用PSafeArray变量，谢谢。[]
所用的函数如下：
function ReadCardInfo(var wgRegisterCard: PSafeArray): Integer
safecall;
同时Psavearray变量指向的是一个数组，
具体的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
card:Array[0..4999] of cardinfo;
ss
SafeArray;n:integer;
begin
[red][/red]ss:=@card;
ret:=cc.ReadCardInfo(ss);
if ret>=0 then
begin
showmessage('打开记录成功');
for n:=1 to 10 do
begin
memo1.Lines.Add(inttostr(card[n].ID));
end;
end
else
begin
showmessage('打开记录不成功');
showmessage(inttostr(ret));
end;
end;
请问应该怎么正确使用PSafeArray变量，谢谢。[
]