multithreading - 如何使用 TIdNotify

Question

我正在尝试使用 Indy 在 Delphi 2010 中编写线程应用程序。这两个对我来说都是新的，我正在努力同步 Vcl。我已经阅读了有关使用关键部分、TThread.Synchronize、TIdNotify 等与 Vcl 同步的信息。我想看一个如何使用 TIdnotify 的例子。在我的例子中，我试图从一个线程更新一个 TreeView。我搜索了群组/论坛，但没有成功。任何例子将不胜感激。时间差

Answer 1

type
  TMyNotify = class(TidNotify)
  private
    FMyData: string;
  protected
    procedure DoNotify; override;
  end;

procedure TMyNotify.DoNotify;
begin
  FormMain.TreeView1.Items.Add(nil, FMyData);
end;

在您的主题中:

var
  MyNotify: TMyNotify;
begin
  MyNotify := TMyNotify.Create;
  MyNotify.FMyData := 'A new node';
  MyNotify.Notify;