omnithreadlibrary

I have an issue with a simple TTimer that's initiated and have its OnTimer event executed in the main app thread , the code looks like this: procedure TForm1.DoSomeStuff(); begin OmniLock.Acquire; try Parallel.Pipeline.NumTasks(MaxThreads).Stage(StageProc).Run; if (MyTimer = nil) then begin MyTimer := TTimer.Create(nil); MyTimer.Interval := 60 * 1000; // timer fired every 60 seconds MyTimer.OnTimer := MyTimerEvent; MyTimer.Enabled := True; end; finally OmniLock.Release; end; // try/finally end; Everthing work just fine when I execute the code in a simple project/demo, but in my app (which uses

Is it possible to monitor Pipeline tasks somehow? I tried to add monitors to each task like this FPipeline := Parallel.Pipeline() .Stage(StageWorker1, Parallel.TaskConfig.MonitorWith(MyMonitor)) .NumTasks(MaxReadThreadCount) .Stage(StageWorker2, Parallel.TaskConfig.MonitorWith(MyMonitor)) .Run(); but getting the exception "Task can be only monitored with a single monitor" (as I understand, it happens because the internal hidden monitor is already installed for pipeline stages). Use Parallel.TaskConfig.OnMessage and provide a common message processing function. FPipeline := Parallel.Pipeline()

how to stop Pipleline tasks correctly, I've tried but when i press Abort button i get an AV, i'm not too good at debugging,i have reached to DoOnStop(task); in OtlParallel then i couldn't figure out what to do next, i believe there is something missing ? type procedure SetInProcess(const Value: Boolean); private FInProcess: Boolean; property inProcess: Boolean read FInProcess write SetInProcess; public FStopAll: Boolean; procedure FlushData; procedure Retriever(const input: TOmniValue; var output: TOmniValue); ... procedure TForm1.SetInProcess(const Value: Boolean); var I: Integer; begin if

Using the OmniThreadLibrary and Delphi XE4, I am hoping to run multiple threads that process data in the background, adding speed increases to my already existing code. When calling the procedure below, the Application GUI stops processing any input until all of the threads have completed. My understanding is that using .NoWait should allow the procedure to exit even when the threads are running. procedure Test(input: TStringList; output: TList<TMaintFore>); var outQueue: IOmniBlockingCollection; transaction: TOmniValue; begin outQueue := TOmniBlockingCollection.Create; Parallel.ForEach(0,

I would like to have a thread running in background which will check connection to some server with given time interval. For example for every 5 seconds. I don't know if there is a good "desing pattern" for this? If I remember corretly, I've read somewehere that sleeping thread in its execute method is not good. But I might be wrong. Also, I could use normal TThread class or OTL threading library. Any ideas? Thanks. You could use an event and implement the Execute method of the TThread descendant by a loop with WaitForSingleObject waiting for the event, specifying the timeout. That way you can