Delphi 访问冲突从 TStringsList 读取对象

Question

收到以下

我在模块“test.exe”中的地址 00404340 处 读取地址 FFFFFFD5

使用以下代码

var
 List: TStrings;

访问冲突。在创建部分中 ：
List:= TStringList.Create;

添加到列表：
结果 := List.AddObject('hi', aCreatedObject); MessageDlg(FunctionHookList.Objects[Result].ClassName, mtInformation, [mbOK], 0);

消息对话框显示正确的类名

但是稍后当我这样做时，

i := list.IndexOf('hi');
   if i >= 0 then
      if list.Objects[i] <> nil then
        if assigned(list.Objects[i]) then
          begin
           tmp := list.Objects[i];
           if tmp <> nil then
                MessageDlg(tmp.ClassName, mtInformation, [mbOK], 0); //*******
          end;  

我在 < code>//******** 行

我知道那里有一些重复的代码，但我试图检查'所有内容'

Answer 1

看起来您的程序正在从空指针的负偏移量读取。该偏移量与 VMT 中存储类名的偏移量相差 1，表明该对象存储其 VMT指针保存的是地址1，而不是其类的VMT的实际地址。

这就让人怀疑您是否真的在该列表中存储了有效的对象引用。您正在向 List 添加一些内容，但是为了测试它是否有效，您正在打印 FunctionHookList 中某个对象的 ClassName 值。有什么理由相信它们是同一个物体？检查如何构造该对象，然后检查为 aCreatedObject 变量赋值的赋值语句。查找有问题的内存操作，例如在调用 Move 或 TStream.Read 时指定了错误的目标指针或错误的字节计数，从而覆盖了对象的一部分。

为了帮助了解发生了什么，请调用 ClassType< /a> 作用于列表中的对象。 （这通常是安全的调用，因为只要存储在对象引用中的指针指向某个地方，您就会得到一个值。也许不是有效值，但在至少它不会崩溃。）将结果与您期望在列表中的类进行比较。例如，如果您在列表中存储了 TFont，则测试以下内容：

tmp := list.Objects[i];
if tmp.ClassType <> TFont then
  ShowMessage(Format('Expected %p but got %p instead',
    [Pointer(TFont), Pointer(tmp.ClassType)]));

Answer 2

请注意，Assigned 不会检查除 nil 之外的任何内容。如果您将一个对象放入字符串列表中，释放它，然后检查字符串列表，它会告诉您仍然有一个对象。检查这个例子：

var
  o: TObject;
begin
  o := TObject(42 {just a random number});
  if Assigned(o) then
    ShowMessage(o.ClassName);
end;

所以除了分配的支票之外，几乎所有的支票都是有效的。它只检查对象是否包含除 nil 之外的任何其他值，这基本上与您在上面的行中执行的检查相同。