Abortar Select de uma AnonymousThread do delphi usando Firedac

26/02/2020

Bom dia tudo bem?
Estou utilizando Delphi e estou tendo um problema ao fechar um form com uma AnonymousThread executando um Select demorado. Se eu fecho o form antes do Select ser finalizado da um access violation. Algu�m j� passou por isso? Se sim existe alguma forma de abrotar o Select no firedac do delphi? Segue c�digo de como estou fazendo a AnonymousThread:

  TThread.CreateAnonymousThread(
  procedure
  var
    oConn : TFDConnection;
    query : TFDQuery;
  begin
    oConn := TFDConnection.Create(nil);
    oConn.Params.Text := ParamentrosDeConexao;
    query := TFDQuery.Create(nil);
    query.Connection := oConn;
    query.Close;
    query.SQL.Clear;
    query.SQL.Text := 'select * from v_nfv, v_nfv_item';
    query.Open;
  end).Start;

Se algu�m puder me ajudar eu agradeceria.

Fernando Kerber

Curtir t�pico + 0

Responder