linux上没有提供用户态的内存指针读写安全检测函数,这里使用异常包来简单实现IsBadReadPtr:
{$IFDEF UNIX}
function IsBadReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
begin
try
while ucb>0 do
begin
if PChar(lp)[ucb-1] <> #0 then
dec(ucb)
else
dec(ucb);
end;
Result := False;
except
Result := True;
end;
end;
{$ENDIF}
IsBadWritePtr就不实现了,否则若是实现不完善会损坏原来的代码,其实普通的堆栈都是可读写的,而且我们大部分时候只是为了检测内存的大小是否足够,所以IsBadReadPtr在大部分场合可以代替IsBadWritePtr的