Cómo pasar la excepción de un hilo a otro (el que llama) el hilo en Delphi?

Question

¡Tengo otra pregunta! Por favor mira este ejemplo:

// There is a class with some method: 
type 
    TMyClass = class 
    public 
    procedure Proc1; 
    end; 

    // There is a some thread class: 
    TMyThread = class(TThread) 
    protected 
    procedure Execute; override; 
    end; 

procedure TMyClass.Proc1; 
begin 
    // this method is just calling another thread: 
    with TMyThread.Create(True) do 
    begin 
    FreeOnTerminate := True; 
    Resume; 
    end; 
    // + there are some more actions 
end; 

procedure TMyThread.Execute; 
begin 
    // in this example this thread just throws exception: 
    raise Exception.Create('Some exception'); 
end; 

Todo lo que quiero - es conseguir excepción planteada en la TMyClass.Proc1 y tirarlo así:

var 
    myObject: TMyClass; 
begin 
    myObject := TMyClass.Create; 
    try 
    myObject.Proc1; // launch and watch what happenings 
    except 
    on E: Exception do 
     WriteErrorLog(E.Message); 
    end; 
    FreeAndNil(myObject); 
end; 

Por favor, dígame cómo puedo hacer algo ¿Me gusta esto? Muchas gracias!

oh! una cosa más: estoy codificando en Delphi 5 así que no tengo la propiedad "FatalException" de TThread o algo así ...

Answer 1

En resumen, no puedes hacer esto de la manera que quieras.

Necesita clonar el objeto de excepción, pasar la copia a su otro hilo (por ejemplo, utilizando el método Synchronize o utilizando otra técnica de sincronización) y elevar ese objeto de excepción allí.

Answer 2

Puede utilizar AcquireExceptionObject():

AcquireExceptionObject devuelve un puntero al objeto excepción actual y evita que el objeto de excepción de ser desasignado al salir del gestor de excepciones actuales.

A continuación, puede enviar el puntero a otro hilo y si se eleva allí que serán liberados para usted, de lo contrario debe llamar ReleaseExceptionObject() para liberarla.

Answer 3

Lo mejor es atrapar la excepción en el bucle de ejecución en el hilo y escribir la propiedad del mensaje y el nombre de clase en un campo de cadena privada. Esto se puede hacer público usando una propiedad con secciones críticas en getters y setters, asegurando que el acceso sea seguro para los hilos. Ahora todo lo que tiene que hacer es pasar a la secuencia un proceso para manejar la excepción y llamarla con una sincronización. Voy a publicar un código de ejemplo cuando llegue a mi computadora, ya que estoy usando mi iPhone en el momento

Answer 4

Hago este tipo de cosas de forma nativa en mi marco multi-hilo (http://www.csinnovations.com /framework_overview.htm).