最近做了一个数据采集服务器, 根据程序的框架,使用了大量的指针结构体(内存块) 操作。
例子:
PArrayByte = ^TArrayByte;
TArrayByte = packed record
ABinding: Pointer;
data: TBytes;
len: integer;
IP: string[15];
Port: UINT;
end;
//数据解析函数
function GetGuiyue(ABuffer: PArrayByte): Boolean; stdcall; external 'Guiyue.dll';
//数据采集函数:
function GetCommand(ABuffer: PArrayByte): Boolean;
var
P: PArrayByte;
begin
try
new(P);
//指针传递
Move(ABuffer,P, Sizeof(ABuffer)); //可以将数据复制到P, ABuffer 和 P 指向同一个内存区 , ABuffer = $29580D0 ,ip= '192.168.1.132',P = $29580D0
CopyMemory(P,ABuffer, Sizeof(ABuffer)); //可以将数据复制到P, ABuffer 和 P 指向同一个内存区 , ABuffer = $29580D0 ,ip= '192.16'######,P = $29580D0 数据复制不全,数据块长度不够
执行出错,应该是 CopyMemory(@P,@ABuffer, Sizeof(ABuffer));
//复制内存块
Move(ABuffer,P, Sizeof(TArrayByte); //可以将数据复制到P, ABuffer 和 P 指向不同的内存区 , ABuffer = $5FFFFFF, ip= Inaccessible value, P = $29580D0
执行出错,应该是:Move(ABuffer^,P^, Sizeof(TArrayByte);
CopyMemory(P,ABuffer, Sizeof(TArrayByte)); //可以将数据复制到P, ABuffer 和 P 指向不同的内存区 , ABuffer = $29580D0 ,ip= '192.168.1.132',P = $24680D0
PArrayByte(P)^.ip := '113.140.88.*'; //数据处理
GetGuiyue(P); //数据解析
所以使用指针传递 复制数据 要在数据处理函数进行指针释放 Dispose(P);
finally
Dispose(P); //使用内存块复制数据,释放数据源指针 $24680D0
end;
end;
//数据解析
function GetGuiyue(ABuffer: PArrayByte): Boolean; stdcall;
var
myBuffer: TBytes;
begin
try
CopyMemory(@myBuffer[0],@ABuffer^.data[0], ABuffer^.len)
.............//数据处理
except
end;
end;