Skip to Main Content
Delphi High Performance
book

Delphi High Performance

by Primož Gabrijelčič
February 2018
Intermediate to advanced content levelIntermediate to advanced
336 pages
7h 52m
English
Packt Publishing
Content preview from Delphi High Performance

Creating the pipeline

Let's look at the code now. The user interface has one button that can both start and stop the parallel operation. It's OnClick event is shown as follows. When starting the process, it calls the CreatePipeline method. To stop the process, it just calls the pipeline's Cancel method. The pipeline object will be destroyed later, through a termination event. I'll return to that part later.

procedure TfrmPipeline.btnStartClick(Sender: TObject);begin  if btnStart.Tag = 0 then begin    ListBox1.Items.Add(inpStartFolder.Text);    CreatePipeline;    btnStart.Caption := 'Stop';    btnStart.Tag := 1;    TimerUpdateProcessing.Enabled := true;  end  else    if assigned(FPipeline) then      FPipeline.Cancel;end;

The CreatePipeline method (shown as follows) ...

Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Delphi Cookbook

Delphi Cookbook

Daniele Teti

Publisher Resources

ISBN: 9781788625456Supplemental Content