【Delphi】Linux版的IsBadReadPtr

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的

相关文章