16,748
社区成员
发帖
与我相关
我的任务
分享
//声明
function OnReadL_Net(ADDATA:Array of PInteger;Len:Integer):Integer;stdcall;external 'dll名';
//使用
var
APIntegerArray:array[0..10]of PIngeter;
i:integer;
begin
for i:=0 to 10 do
GetMem(APIntegerArray[i],SizeOf(Integer));//直接分配4字节也可以,因为integer固定4字节
try
OnReadL_Net(APIntegerArray,整数);//调用函数
.....//其他操作
finally
for i:=0 to 10 do
FreeMem(APIntegerArray[i]);
end;