如何安全判断Delphi中给定的指针是否为TObject实例？

在Delphi中，TObject及其派生类的实例有固定内存布局：实例的第一个字段是指向类元数据的VMT（虚方法表）指针。基于这个特性，我们可以通过以下几种安全方式判断指针是否为合法的TObject实例：

1. 检查VMT有效性+继承关系验证 #

利用TObject实例的内存特征，先验证指针指向的内存可访问，再检查VMT是否属于TObject派生类：

function IsValidObjectPtr(P: Pointer): Boolean;
var
  ObjClass: TClass;
begin
  Result := False;
  if P = nil then Exit;
  try
    // 读取实例首字段（VMT指针）
    ObjClass := TClass(P^);
    // 验证该类是否继承自TObject
    Result := ObjClass.InheritsFrom(TObject);
    // 可选：检查VMT是否在合法代码段范围（以32位程序为例，64位需调整地址范围）
    Result := Result and (Cardinal(ObjClass) $FF000000) = $00400000;
  except
    Result := False;
  end;
end;

注意：代码段地址范围需根据目标程序位数（32/64位）调整，64位程序的代码段通常起始于$0000000100000000附近。

2. 借助RTTI安全检查 #

通过Delphi的RTTI模块尝试获取类信息，能成功获取则说明是合法实例：

uses RTTI;

function IsValidObjectPtr(P: Pointer): Boolean;
var
  Context: TRttiContext;
  ObjType: TRttiType;
  Obj: TObject;
begin
  Result := False;
  if P = nil then Exit;
  try
    Obj := TObject(P);
    ObjType := Context.GetType(Obj.ClassType);
    Result := Assigned(ObjType);
  except
    Result := False;
  end;
end;

注意：若目标类编译时未开启RTTI，该方法可能误判，但调试版本通常默认开启RTTI，适合调试场景。

3. 结合内存访问权限检查 #

先通过Windows API验证内存可读，再进行VMT验证，减少异常触发概率：

uses Windows;

function IsMemoryReadable(P: Pointer): Boolean;
var
  MemInfo: MEMORY_BASIC_INFORMATION;
begin
  Result := False;
  if VirtualQuery(P, MemInfo, SizeOf(MemInfo)) = 0 then Exit;
  // 检查内存是否具备可读权限
  Result := (MemInfo.Protect and PAGE_READONLY) <> 0 
         or (MemInfo.Protect and PAGE_READWRITE) <> 0 
         or (MemInfo.Protect and PAGE_EXECUTE_READ) <> 0 
         or (MemInfo.Protect and PAGE_EXECUTE_READWRITE) <> 0;
end;

function IsValidObjectPtr(P: Pointer): Boolean;
var
  ObjClass: TClass;
begin
  Result := False;
  if (P = nil) or not IsMemoryReadable(P) then Exit;
  try
    ObjClass := TClass(P^);
    // 验证VMT指向合法类且继承自TObject
    Result := Assigned(ObjClass) and ObjClass.InheritsFrom(TObject);
    // 额外验证VMT所在内存可读
    Result := Result and IsMemoryReadable(ObjClass);
  except
    Result := False;
  end;
end;

关键注意事项 #

• 没有绝对完美的判断方式：理论上存在伪造VMT结构的内存块，但正常调试场景下上述方法足够可靠。
• 异常处理是核心：调试代码中必须用try...except包裹内存访问操作，避免因非法指针导致程序崩溃。
• 适配程序位数：32位和64位程序的内存地址范围、指针长度不同，需针对性调整代码。

内容的提问来源于stack exchange，提问作者Steve