Ver Mensaje Individual
  #3  
Antiguo 23-04-2007
jmlifi jmlifi is offline
Miembro
 
Registrado: abr 2005
Posts: 188
Reputación: 22
jmlifi Va por buen camino
Cita:
Empezado por droguerman
has intentado poner un bucle infinito dentro de execute??
while true do
begin
...
end;
asi?

Código Delphi [-]
procedure TThread6.Execute;
begin
while True do begin
  sleep(20000);
  CoInitialize(nil);
  RecepAutoVeriOferta;
  CoUninitialize;
end;
end;

sigue sin repertirse. Sólo se ejecuta una vez
Responder Con Cita