Firedac

[MOGSY]

Hi

I would appreciate an example of multi thread data base access example for Firedac.

Regards

[Tokay]

type
 THelpThread = class(TThread)
 private
  FSessionName: string;
  FDataSource:  TDataSource;
  FSQL:         string;
 protected
  procedure Execute; override;
 public
  property DataSource: TDataSource Read FDataSource Write FDataSource;
  property SessionName: string Read FSessionName Write FSessionName;
  property SQL: string Read FSQL Write FSQL;
 end;
{ THelpThread }

procedure THelpThread.Execute;
var
 Session: TUniGUISession;
 MainModule: TUniMainModule;
 i: integer;
begin
 inherited;
 MakeQuery(FDataSource.DataSet as TFDQuery, FSQL, True);
 FDataSource.DataSet.Last;
 FDataSource.DataSet.First;
 Session := UniServerModule.GetSession(SessionName);
 MainModule := TUniMainModule(Session.UniApplication.UniMainModule);
 with TUniForm2(MainModule.GetFormInstance(TUniForm2)) do
   UniDBGrid1.DataSource := FDataSource
end;

This code works for me.

[MOGSY]

Hi Tokay

Thank you very much for your reply.

Will the following function is running outside of the thread? 

MakeQuery(FDataSource.DataSet as TFDQuery, FSQL, True);

Regards

[Oliver Morsch]

I think this code is not thread safe...

[MOGSY]

I believe a working multi threaded Firedac code will be useful for all Unigui users.

[rgreat]

Just create all firedac components from inside thread and work as usual.