Threads para Timbrar Documentos

[Neftali [Germán.Estévez]]

Empezado por ludan508

Buen día, definitivamente soy nuevo en esto de los Threads, realice estas modificaciones, y ya no hace nada

Revise tus códigos y veo que usas el Create y Synchonize y me siento muy confundido, como puedo realizar el llamada pTimbrado dentro del hilo.

Lo primero que debes intentar es colocar el código del timbrado dentro del Execute, o hacer la llamada al procedimiento de timbrado dentro de él.
Por otro lado el Synchonize es para sincronizar partes de tu hilo con el hilo prinpical, así que cuando usas el Synchonize, el código que lo utilize pasa a ejecutarse en el hilo prinicipal.
Para que me entiendas y simplificando mucho:

• Lo que hay en Execute se ejecuta en un hilo diferente al principal (lo que quieres).
• Cuando hay algo que no se puede usar dentro de un hilo porque no es "thread-safe" (por ejemplo acceso a componentes visuales) hay que usar Synchonize. Por eso si TODO lo que hay en el Execute lo llamas con Synchonize, le estás diciendo que TODO lo ejecute en el hilo principal.

Tal como o tienes ahora, quita el método Synchonize y has la llamada directamente a pTimbrado:

Código Delphi [-]
procedure TTimbrado.Execute; 
begin     
  FreeOnTerminate := True;     
  pTimbrado; 
end;

Ahora:

(a) Si todo lo que tienes dentro del procedimiento es "Thread-safe", debería funcionar correctamente.
(b) Si hay alguna parte que no es "thread-safe" dentro del procedimiento pTimbrado, esa parte es la que deberás extraer un un segundo procedimiento y llamarla con un Synchonize.

Por ejemplo (sólo para que lo entiendas), imaginemos que estas 2 líneas no fueran "thread-safe":

Código Delphi [-]
if FileExists(sRutaXMLSave + lUUID + '.xml') then   
  CopyFile(PChar(sRutaXMLSave + lUUID + '.xml'), PChar(sRutaSave), True);

Pues las pasarías a un procedimiento:

Código Delphi [-]
procedure CopiarFichero();
begin
  if FileExists(sRutaXMLSave + lUUID + '.xml') then   
    CopyFile(PChar(sRutaXMLSave + lUUID + '.xml'), PChar(sRutaSave), True);
end;

Y en su lugar pondrías:

Código Delphi [-]
...
try  
  Synchonize(CopiarFichero)
except on e: Exception do 
  begin
    wResult := e.Message;   
  end; 
end;
...

Al realizar el Execute, se ejecutaría todo lo que hay dentro en un thread diferente en paralelo con el hilo principal de la aplicación, al llegar al punto del CopiarFichero, se para el thread y el CopiarFichero se ejecuta en el thread principal (por lo tanto en ese punto no hay paralelismo) y seguidamente el resto del código se vuelve a ejecutar en el Thread en paralelo con el principal.

En resumen, el código del thread debe estar dento del Execute y las llamadas con Synchonize deben ser las mínimas posibles y lo más pequeñas posibles dentro del Thread cuando necesitamos que algo que no es "thread-safe" y se ejecute en el hilo principal(por ejemplo como he dicho cuando mosificamos controles visuales).