8 respuestas en este tema

[el-mono]

Buenas tardes gente linda.

 

Tengo un método que recibe por parámetro una consulta SQL, ejecuto la consulta, trae los datos y formateo un Stringgrid para mostrar el resultado. 

Lo que quería hacer es meter en un hilo para evitar que se congele la interfaz grafica cuando los datos a traer son bastante, lo que dejo a continuación me trae los datos la primera vez que lo llamo pero cuando edito algún registro y llamo nuevamente a este método me tira un error y se me cierra el sistema.

 

Obviamente algo estoy haciendo mal, pero mi escaso conocimiento sobre hilos no me deja encontrar el error, uso Delphi 10.1 Berlin, Firemonkey y firebird. 

delphi

procedure Tfrm_Edicion.Carga(Consulta: String);
begin
        TThread.CreateAnonymousThread(
      procedure
        begin
           // Lo pirmero - limpiamos la grilla
           grilla.Clear;
 
           with dmdatos.qConsulta do
                begin
                  close;
                  sql.Clear;
                  sql.add(Consulta);
                  open;
                  if not eof then
                     begin
                       grilla.BeginUpdate;
                       TThread.Synchronize(TThread.CurrentThread,
                            procedure
                               var i: Integer;
                               begin
                                   grilla.columncount := dmdatos.qConsulta.Fields.Count;
                                   grilla.RowCount := dmdatos.qConsulta.recordcount+1;
                                   FetchOptions.RowsetSize := grilla.RowCount;
                                   lblRegistros.Text := 'Registros: ' + inttostr(grilla.RowCount);
 
                                   for I := 0 to fields.Count-1 do
                                       grilla.Cells[i,0] := Fields.Fields[i].FieldName;
 
                                    First;
 
                                   while not EOF do
                                     begin
                                        for i := 0 to (dmdatos.qConsulta.Fields.Count - 1) do
                                              grilla.Cells[i,RecNo] := FieldByName(dmdatos.qConsulta.Fields.Fields[i].FieldName).AsString;
                                              Next
                                     end;
                                     grilla.EndUpdate;
                                 end
                            );
                        end;
                      wait('',False);
 
                    end;
        end).Start;
 
end;

[el-mono]

Me auto-respondo, si alguien necesita ejecutar una consulta que trae muchos datos y paraliza la interfaz gráfica. Con mis pocos conocimientos del tema y revisando los siguiente enlaces:

 

Interesante articulo sobre hilos del señor Malcolm  Groves

 

http://www.malcolmgr...om/blog/?p=1678

 

Y un vídeo indispensable sobre hilos 

 

https://www.youtube....2&v=rZfux4by0po

 

 

 

 

Yo lo resolví así:

delphi

procedure TForm7.Button1Click(Sender: TObject);
var
  aTask: ITask;
 
begin
   Rwait.Visible := True;
 
  aTask := TTask.Create(procedure
                          var i: Integer;
                        begin
                   //       sleep (5000);
                          // Aqui realizamos la consulta
                         if TTask.CurrentTask.Status = TTaskStatus.Canceled then
                            exit;
                         with qConsulta do
                              begin
                                close;
                                sql.Clear;
                                sql.add('Select * from pacientes');
                                open;
                                if not eof then
                                   begin
                                    grilla.BeginUpdate;
                                    begin
                                         grilla.columncount := qConsulta.Fields.Count;
                                         grilla.RowCount := qConsulta.recordcount+1;
                                         FetchOptions.RowsetSize := grilla.RowCount;
                                         label1.Text := 'Registros: ' + inttostr(grilla.RowCount);
 
                                         for I := 0 to fields.Count-1 do
                                             grilla.Cells[i,0] := Fields.Fields[i].FieldName;
                                         First;
 
                                        while not EOF do
                                           begin
                                              for i := 0 to (qConsulta.Fields.Count - 1) do
                                                    grilla.Cells[i,RecNo] := FieldByName(qConsulta.Fields.Fields[i].FieldName).AsString;
                                                    Next
                                           end;
 
                                    end;
//
                                 end;
                              end;
                                 if tTask.CurrentTask.Status <> TTaskStatus.Canceled then
                                     begin
                                        TThread.Queue(nil,
                                                      procedure
                                                      begin
 
                                                        //   grilla.EndUpdate;
                                                       //    ShowMessage ('Hello');
                                                           grilla.EndUpdate;
                                                           rwait.Visible := false;
                                                      end);
                                    end;
                            end);
                               aTask.Start;
end; 

[enecumene]

Vaya, me será de utilidad justamente ahora, intentaba hacerlo de la manera siguiente:

Tthread.synchronize(Tthread.currentThread,<procedimiento>);

Pero igual me frizaba la aplicación.

[el-mono]

Mira el articulo de Groves donde aconseja utilizar en lugar de synchronize cambiar por TThread.Queue

 

En este otro articulo llego a la misma conclusión ademas de preguntar por el estado del hilo antes de continuar

 

http://robstechcorner.blogspot.com.ar/2015/02/tpl-ttask-example-in-how-not-to-use.html

[Agustin Ortu]

Cuidado con reutilizar la misma conexion para distintos hilos. Para ADO por ejemplo hay que crear una conexion dedicada por hilo

[enecumene]

Acabo de hacer la prueba con ése método, wow, que funciona de perlas.

[el-mono]

Buenisimo Enecumene.

 

Agustin sabes que estoy probando todavía ese manera de trabajar y no me tira error y me trae los datos correctamente, lo pruebo en red también por las dudas. Pero si es posible me gustaría saber tu opinión al respecto.

[moscomx]

Hola, muy buena la información. ¿sera que tengan una versión equivalente para delphi 2007? ya que el código no funciona debido a que la clase(o interface) ITask no está disponible en Delphi 2007

[enecumene]

Hola, muy buena la información. ¿sera que tengan una versión equivalente para delphi 2007? ya que el código no funciona debido a que la clase(o interface) ITask no está disponible en Delphi 2007

 

Porque eso es parte de FMX no de VCL.