consturtor TMyEventerThread.Create;
begin
MyEventer := BestEventerClass.Create; // for Linux epoll eventer will be created
Inherited Create(false);
end;
procedure TMyEventerThread.Execute;
begin
while not Terminated do
begin
if not MyEventer.CallAction then
Sleep(10);
end;
end;
procedure TMyDaemonClass.SomeProc;
var
Http:TLHttp
begin
Http:=TLHttp.Create;
Http.Eventer:=MyEventerThread.MyEventer; // assign shared eventer from eventer thread
// do some work
end;