Multihilos

[noshy]

Hola nuevamente, y con una duda, estoy diseñanado un sistem,a y necesito realizar una consulta a traves de un Query con ADO hacia SQL 2000, el tema es que es una consulta que dura bastante tienpo, por eso decidi realizarla en un hilo de ejecucion aparte para que el usuario pueda seguir realizando cosas en el sistema mientra se ejecuta la consulta, el tema es que cuando inicia la consulta y el hilo tiene que quedar en espera hasta que se termine dicha consulta, ésta se cancela, no se porque pero no queda esperando que se termine la consulta y se cancela todo, como si hubiera terminado de ejecutarse el hilo. Les dejo el Fuente para ver si pueden detectar el error. Gracias. Noshy.

Código Delphi [-]
public
     busquedas : TThread;

procedure Tprincipal.bvebuscarClick(Sender: TObject);
     busquedas := Busquedahistorico.Create(true);
     busquedas.Priority := tpIdle;
     busquedas.Resume;


//en la Clase Busquedahistorico
procedure Busquedahistorico.Execute;
var
   sigue : integer;
begin
  { Place thread code here }
  try
      with principal.ADOQViajesEnviados
             begin
                    Close;
                    SQL.Clear;
                    SQL.Add('Select * from tabla  ');
                    Open; 
              end;
      principal.busquedas.Terminate;
      principal.busquedas.Free;
  except
        on e: exception do
           begin
                showmessage(e.Message);
                principal.busquedas.Terminate;
                principal.busquedas.Free;
           end;
  end;
end;

[waltergomez]

Tal vez deberias usar Synchronize.

Salu2,