【MyBean调试笔记】接口的使用和清理-阿里云开发者社区

【MyBean调试笔记】接口的使用和清理

2014-11-12 770

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： 【DEMO信息】有问题的DEMO, 由芒果提交【问题描述】双击Tab页面关闭页面和插件的时候出现AV异常【问题调试】我们在调试的时候出现这个错误时断点停在这里可以看到停留在这个位置@IntfClear，指针清理的位置好我们来调试下这个过...

【DEMO信息】

有问题的DEMO, 由芒果提交

【问题描述】

双击Tab页面关闭页面和插件的时候出现AV异常

【问题调试】

我们在调试的时候出现这个错误时断点停在这里

可以看到停留在这个位置@IntfClear，指针清理的位置

好我们来调试下这个过程，跟一下是什么时候出现的，在end 处下个断点后切换到cpu页，我们看到在ret之前调用了一过程，这个地址应该是做一些清理工作后然后返回到调用者地址，

跟进去后，一会就跳到错误的界面，可以说明在清理时出现的，这个时候我们来看看这段代码

procedure TfrmMain.pgcMainMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Index: Integer;
  lvPluginForm: IPluginForm;
  lvTabShtEx:TTabShtEx;
begin
  // 左键点击并且双击
  if (Button = mbLeft) and (ssDouble in Shift) then
  begin
    Index := pgcMain.IndexOfTabAt(X, Y);
    if Index >= 0 then
    begin
      lvTabShtEx := TTabShtEx(pgcMain.Pages[Index]);
      lvPluginForm := lvTabShtEx.PluginForm;
      if Application.MessageBox('确认要关闭画面吗?', '询问', MB_OKCANCEL + MB_ICONQUESTION) = IDCANCEL then
        Exit;
      lvPluginForm.freeObject;
      pgcMain.Pages[Index].Free;
    end;
  end;
end;