Ver Mensaje Individual
  #1  
Antiguo 23-04-2005
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Reputación: 21
AGAG4 Va por buen camino
Como Liberar un Tthread????

Aqui ando de nuevo, alguien sabe como liberar un Hilo????, lo creo de la siguiente manera:
Código Delphi [-]
//Declaracion en unidad aparte
TPeticion = class(TThread)
private
AvancePeti:Integer;
lEstatus:String;
protected
procedure Proceso;
procedure Execute; override;
end;
 
procedure TPeticion.Proceso;
begin
  ....
  ....
  Transaccion.Commit;//Aqui se Cuelga la Aplicación
end;
 
procedure TPeticion.Execute;
begin
FreeOnTerminate:=true;
Proceso;//Llamar Proceso
end;
....
{En una Aplicación Creo el Hilo de la Siguiente Manera, para llamar el:
procedimiento PROCESO que esta dentro del Hilo}
procedure IniciaProceso ; 
....
THiloPet:=TPeticion.Create(False);
....
end;

Pero cuando el Compilador llega a la línea de Commit dentro del procedimiendo "PROCESO" se CUELGA la Aplicación.....

No permiten en los hilos hacer procesos de Base de Datos, bien los componentes IBX no son recomendados en el uso de Hilos????

Agradezco cualquier sugerencia.

Última edición por AGAG4 fecha: 23-04-2005 a las 16:50:40. Razón: Corrección
Responder Con Cita