How to perform a query in my background bank?

[eduardosuruagy]

I would like to execute a query in my background bank, when the user confirms his login the system executes this query to show statistics to the user, and this query can take a long time leaving my application frozen, it can be done without my screen freezing ?

[Hayri ASLAN]

Before query you can call showmask and syncronize and end of the query you can call hide mask

[eduardosuruagy]

32 minutes ago, Hayri ASLAN said:

Antes da consulta, você pode chamar showmask e sincronizar. No final da consulta, você pode chamar hide mask

I did so, put a UniTimer in my MainForm, when I enter my MainForm I activate my UniTimer in the MainForm.UniFormActivate event.

Inside UniTimer I make my select and update some information on the screen. But I realize that my screen freezes for a while even the SQL command inside UniTimer. This way I made this correct?

[Sherzod]

20 minutes ago, eduardosuruagy said:

Inside UniTimer I make my select and update some information on the screen. But I realize that my screen freezes for a while even the SQL command inside UniTimer. This way I made this correct?

Please see this demo:

\FMSoft\Framework\uniGUI\Demos\Desktop\ThreadTimer-2

 

[eduardosuruagy]

On 28/12/2019 at 12:42, Sherzod said:

Por favor, veja esta demonstração:

 

Using the example you indicated I made a change, I put UniThreadTimer1 in MainForm, but it crashes when trying to access some information from UniMainModule. How can I access a variable that is in UniMainModule?

 

procedure TMainForm.UniThreadTimer1Timer(Sender: TObject);
var
  FS : TUniGUISession;
  B : TBookmark;
begin
  if Assigned(UniMainModule.UniApplication) then
  begin
    FS := (UniMainModule.UniApplication as TUniGUIApplication).UniSession; // This is the uniSession instance which is the owner of this UniMainModule
    FS.LockSession;   // make sure session is not busy
    try
      B := UniMainModule.ClientDataSet1.GetBookmark;
      try
        UniMainModule.ClientDataSet1.Append;
        UniMainModule.ClientDataSet1.FieldByName('F1').AsInteger := UniMainModule.ClientDataSet1.RecordCount;
        UniMainModule.ClientDataSet1.FieldByName('F2').AsString := TimeToStr(Now);
        UniMainModule.ClientDataSet1.Post;
        UniMainModule.ClientDataSet1.GotoBookmark(B);
      finally
        UniMainModule.ClientDataSet1.FreeBookmark(B);
      end;
    finally
      FS.ReleaseSession;
    end;
  end;
end;
 

[RobertoLopes]

Can I pass a reference to a UniSession into a Thread so I can update forms and stuff from inside the thread ?