RError.com

RError.com Logo RError.com Logo

RError.com Navigation

  • 主页

Mobile menu

Close
  • 主页
  • 系统&网络
    • 热门问题
    • 最新问题
    • 标签
  • Ubuntu
    • 热门问题
    • 最新问题
    • 标签
  • 帮助
主页 / 问题 / 851739
Accepted
Eugene X
Eugene X
Asked:2020-07-08 20:53:43 +0000 UTC2020-07-08 20:53:43 +0000 UTC 2020-07-08 20:53:43 +0000 UTC

Delphi调用对象的地址过程

  • 772

有一个对象的回调

type TTriggerCallback = procedure(Sender: TObject; Props: TBasicTriggerProps) of object;

我将回调的地址添加到列表中

(TriggerList.Objects[Index] as TList).Add(@Callback);

Callback 是一个表单过程

procedure TForm1.FormCreate(Sender: TObject);
begin
    TriggerFac := TTriggerFactory.Create;
    TriggerFac.AttachTrigger('OnNoGuiBootChanged', Self.OnNoGuiBootChanged);
end;

但是当我尝试调用这样的存储函数时,我得到了访问冲突。

var cbkptr: ^TTriggerCallback;

list := TriggerList.Objects[index] as TList;
for I := list.Count-1 downto 0 do begin
    cbkptr := list.Items[i];
    try
        cbkptr^(Sender, Props);
    finally
    end;
end;

同时,@Callback输入和cbkptr输出地址相同,据我了解,似乎Self对象根本没有传输。因为如果你删除 object 并将 Self 作为第一个参数传递,那么一切正常,但在这种情况下它不会。

有没有人有关于如何解决这个问题的建议?

ps:我使用的是Delphi 7,所以TList<TTriggerCallback>我没有它,必须使用直接地址。

delphi
  • 1 1 个回答
  • 10 Views

1 个回答

  • Voted
  1. Best Answer
    Anton Shchyrov
    2020-07-08T21:17:59Z2020-07-08T21:17:59Z

    procedure of object作为记录实施

    TMethod = record
      Code: Pointer;
      Data: Pointer;
    end;
    

    whereCode是指向方法本身的指针,并且Data是您要为其调用方法的对象

    如果您需要将此回调保存到列表中,则需要此代码

    procedure AddToList(const ACallback: TTriggerCallback);
    var
      LMethod: PMethod;
    begin
      GetMem(LMethod, SizeOf(LMethod^));
      LMethod^ := TMethod(ACallback);
      List.Add(LMethod);
    end;
    

    称呼

    procedure Invoke(AIndex: Integer; Sender: TObject; Props: TBasicTriggerProps);
    var
      LMethod: PMethod;
      LCallback: TTriggerCallback
    begin
      LMethod := TMethod(List[AIndex]);
      LCallback := LMethod^;
      LCallback(Sender, Props);
    end;
    

    好吧,不要忘记调用FreeMem列表的每个元素


    第二种方式是写一个包装对象

    TTriggerCallbackWraper = class
    private
      FCallback: TTriggerCallback;
    public
      constructor Create(const ACallback: TTriggerCallback);
    public
      property Callback: TTriggerCallback read FCallback;
    end;
    
    constructor TTriggerCallbackWraper.Create(const ACallback: TTriggerCallback);
    begin
      inherited Create;
      FCallback := ACallback;
    end;
    

    并添加

    procedure AddToList(const ACallback: TTriggerCallback);
    begin
      List.Add(TTriggerCallbackWraper.Create(ACallback));
    end;
    

    称呼

    (List[Idx] as TTriggerCallbackWraper).Callback(.......)
    

    TTriggerCallbackWraper 类的实例必须通过调用Free. 或者改为TList使用TObjectListwith OwnObjects := True;

    • 4

相关问题

Sidebar

Stats

  • 问题 10021
  • Answers 30001
  • 最佳答案 8000
  • 用户 6900
  • 常问
  • 回答
  • Marko Smith

    是否可以在 C++ 中继承类 <---> 结构?

    • 2 个回答
  • Marko Smith

    这种神经网络架构适合文本分类吗?

    • 1 个回答
  • Marko Smith

    为什么分配的工作方式不同?

    • 3 个回答
  • Marko Smith

    控制台中的光标坐标

    • 1 个回答
  • Marko Smith

    如何在 C++ 中删除类的实例?

    • 4 个回答
  • Marko Smith

    点是否属于线段的问题

    • 2 个回答
  • Marko Smith

    json结构错误

    • 1 个回答
  • Marko Smith

    ServiceWorker 中的“获取”事件

    • 1 个回答
  • Marko Smith

    c ++控制台应用程序exe文件[重复]

    • 1 个回答
  • Marko Smith

    按多列从sql表中选择

    • 1 个回答
  • Martin Hope
    Alexandr_TT 圣诞树动画 2020-12-23 00:38:08 +0000 UTC
  • Martin Hope
    Suvitruf - Andrei Apanasik 什么是空? 2020-08-21 01:48:09 +0000 UTC
  • Martin Hope
    Air 究竟是什么标识了网站访问者? 2020-11-03 15:49:20 +0000 UTC
  • Martin Hope
    Qwertiy 号码显示 9223372036854775807 2020-07-11 18:16:49 +0000 UTC
  • Martin Hope
    user216109 如何为黑客设下陷阱,或充分击退攻击? 2020-05-10 02:22:52 +0000 UTC
  • Martin Hope
    Qwertiy 并变成3个无穷大 2020-11-06 07:15:57 +0000 UTC
  • Martin Hope
    koks_rs 什么是样板代码? 2020-10-27 15:43:19 +0000 UTC
  • Martin Hope
    Sirop4ik 向 git 提交发布的正确方法是什么? 2020-10-05 00:02:00 +0000 UTC
  • Martin Hope
    faoxis 为什么在这么多示例中函数都称为 foo? 2020-08-15 04:42:49 +0000 UTC
  • Martin Hope
    Pavel Mayorov 如何从事件或回调函数中返回值?或者至少等他们完成。 2020-08-11 16:49:28 +0000 UTC

热门标签

javascript python java php c# c++ html android jquery mysql

Explore

  • 主页
  • 问题
    • 热门问题
    • 最新问题
  • 标签
  • 帮助

Footer

RError.com

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

帮助

© 2023 RError.com All Rights Reserve   沪ICP备12040472号-5