Как использовать TIdNotify

Question

Я пытаюсь написать потоковое приложение в Delphi 2010, используя Indy. Оба из них являются новыми для меня, и я борюсь с синхронизацией Vcl. Я читал о синхронизации с Vcl, используя критические разделы, TThread.Synchronize, TIdNotify и т. Д. Я хотел бы увидеть пример того, как использовать 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;