DelphiLinux版的IsBadReadPtr

Posted 2021-01-28 峋山隐修会

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的