Jak przekazać wyjątek z wątku do wątku (dzwoniącego) w Delphi?

Question

Mam kolejne pytanie! Proszę spojrzeć na ten przykład:

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

Wszystko czego chcę - jest, aby podniesiony wyjątek w TMyClass.Proc1 i rzucać go tak:

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; 

Proszę mi powiedzieć w jaki sposób mogę zrobić coś lubię to? Wielkie dzięki!

o! jeszcze jedno - im kodowanie na Delphi 5, więc nie mam "FatalException" właściwość TThread lub coś o ..

Answer 1

W skrócie, nie można zrobić tak, jak chcesz.

Należy sklonować obiekt wyjątku, przekazać go do innego wątku (np. Za pomocą metody Synchronizuj lub używając innej techniki synchronizacji) i podnieść tam obiekt wyjątku.

Answer 2

Można użyć AcquireExceptionObject():

AcquireExceptionObject zwraca wskaźnik do bieżącego obiektu wyjątku i zapobiega obiekt wyjątku przed dealokowane gdy prąd wyjścia obsługi wyjątku.

Następnie można wysłać wskaźnik do innego wątku, a jeśli go nie podniesie zostanie uwolniony dla ciebie, w przeciwnym razie trzeba by go nazwać ReleaseExceptionObject() uwolnić.

Answer 3

Twoje najlepsze zalepienie wyjątku w pętli wykonywania w wątku i zapisanie właściwości komunikatu i nazwy klasy w prywatnym polu ciągu. Można to następnie upublicznić za pomocą właściwości o krytycznych sekcjach w programach pobierających i ustawiających, zapewniając dostęp do wątków bezpiecznie. Teraz wystarczy, że przekażesz wątkowi proces obsługujący wyjątek i wywołasz go zsynchronizowaniem. Wezmę przykładowy kod, gdy dotrę do mojego komputera, ponieważ ja, m używając mojego iPhone'a w tej chwili,

Answer 4

Robię coś takiego natywnie w mojej wielowątkowej strukturze (http://www.csinnovations.com /framework_overview.htm).