How to Create an Asynchronous Unit in Delphi

Defining a Unit to provide await functionality to your Delphi applications. Edijs Kolesnikovičs was kind enough to post this on linkedin, something I did not have thought about. Please look into my Medium article if you have a subscription.

How to use it

    Async(procedure begin 
       { Call long processing function/procedure }
        YourUiBlockingProcedure();
    end).Await(procedure begin
        { Do Something After Completion }
    end);

Alternative with Delphi FMX

As an alternative we can also use a TThread to accomplish processing, such as a REST request, without blocking the main UI as shown in the code below.

This can be easily used within a procedure or function to wrap up a process heavy computation and update the UI accordingly without blocking the main thread.

References

• https://www.linkedin.com/feed/update/urn:li:activity:7286147143088656385

• https://www.linkedin.com/in/edijs-kolesnikovi%C4%8Ds-26739b216

• https://medium.com/@alessandro-negri-34754/how-to-create-an-asynchronous-unit-in-delphi-51a1846bce35