Comment passer une exception d'un thread à un autre thread (appelant) dans Delphi?

Question

J'ai une autre question! S'il vous plaît consulter cet exemple:

// 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; 

Tout ce que je veux - est de faire exception soulevée dans le TMyClass.Proc1 et le jeter comme ça:

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; 

s'il vous plaît me dire comment puis-je faire quelque chose comme ça? Merci beaucoup!

oh! une chose de plus - im codant sur Delphi 5 donc je n'ai pas la propriété "FatalException" de TThread ou quelque chose à propos de ..

Answer 1

En bref, vous ne pouvez pas faire cela comme vous le souhaitez.

Vous devez cloner l'objet d'exception, transmettre la copie à votre autre thread (par exemple en utilisant la méthode Synchronize ou en utilisant une autre technique de synchronisation) et y lever cet objet d'exception.

Answer 2

Vous pouvez utiliser AcquireExceptionObject():

AcquireExceptionObject renvoie un pointeur sur l'objet d'exception actuelle et empêche l'objet d'exception d'être désallouée lorsque la sortie du gestionnaire d'exception en cours.

Ensuite, vous pouvez envoyer le pointeur à un autre thread et si vous soulevez là il sera libéré pour vous, sinon vous devez appeler ReleaseExceptionObject() pour le libérer.

Answer 3

Votre meilleur interception de l'exception dans la boucle d'exécution du thread et l'écriture de la propriété de message et du nom de classe dans un champ de chaîne privée. Cela peut ensuite être rendu public en utilisant une propriété avec des sections critiques dans les getters et les setters, en s'assurant que l'accès est threadsafe. Maintenant tout ce que vous avez à faire est de passer dans le thread un processus pour gérer l'exception et l'appeler avec une synchronisation. Je vais poster un exemple de code quand j'arriverai à mon ordinateur, comme je l'utilise actuellement avec mon iPhone

Answer 4

Je fais ce genre de chose nativement dans mon framework multi-thread (http://www.csinnovations.com /framework_overview.htm).