https://github.com/hemulgm/hgmasync

Async wrapper
https://github.com/hemulgm/hgmasync

async delphi tasks

Last synced: 7 months ago
JSON representation

Async wrapper

• Host: GitHub
• URL: https://github.com/hemulgm/hgmasync
• Owner: HemulGM
• License: mit
• Created: 2022-05-04T12:13:24.000Z (over 3 years ago)
• Default Branch: main
• Last Pushed: 2023-01-17T12:26:27.000Z (over 2 years ago)
• Last Synced: 2025-01-10T12:42:50.430Z (9 months ago)
• Topics: async, delphi, tasks
• Language: Pascal
• Homepage:
• Size: 4.88 KB
• Stars: 8
• Watchers: 3
• Forks: 2
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

          
# HGMAsync

 Async wrapper

### Samples

```Pascal

Async.Sync(GlobalWaitBegin);

Async.Run(

  function: Boolean

  begin

    Result := LongWorkWithBooleanResult;

  end,

  procedure(Result: Boolean)

  begin

    try

      if Result then

      begin

        ShowAllFine;

      end

      else

        ShowError;

    finally

      GlobalWaitEnd;

    end;

  end);

```

```Pascal

Async.Run(ConnectChatAsync);

```

```Pascal

procedure TFormMain.LogAsync(const Text: string);

begin

  Async.Sync(MemoLog.Lines.Add, FormatDateTime('HH:NN:SS.ZZZZZZ', Now) + #13#10 + Text);

end;

```

```Pascal

GlobalWaitBegin;

Async.Run(LoadServersAsync, GlobalWaitEnd);

```