HGMAsync

HGMAsync

Асинхронная оболочка

Образцы

Async.Sync(GlobalWaitBegin);

Async.Run<Boolean>(
  function: Boolean
  begin
    Result := LongWorkWithBooleanResult;
  end ,
  procedure(Result: Boolean)
  begin
    try
      if Result then
      begin
        ShowAllFine;
      end
      else
        ShowError;
    finally
      GlobalWaitEnd;
    end ;
  end );

Async.Run(ConnectChatAsync);

 procedure TFormMain.LogAsync ( const Text: string);
begin
  Async.Sync<string, integer>(MemoLog.Lines.Add, FormatDateTime( ' HH:NN:SS.ZZZZZZ ' , Now) + # 13 # 10 + Text);
end ;

GlobalWaitBegin;
Async.Run(LoadServersAsync, GlobalWaitEnd);