TApdComPort Exception

[DaCoda]

Ich habe im Netz einen Lösungsansatz gefunden, der für meine Zwecke nützlich war.

Code:

uses AwUser;

type
TReaderException = procedure(ExceptObject: TObject; ExceptAddr: Pointer) of object;

type
TForm1 = class(TForm)
private
FOnReaderException:TReaderException;
procedure OnReaderException(ExceptObject: TObject; ExceptAddr: Pointer);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FOnReaderException:=OnReaderException;
// Set global exception handler for AsyncPro
GShowExceptionHandler:=@FOnReaderException;
end;

procedure TMainWin.OnReaderException(ExceptObject: TObject;
ExceptAddr: Pointer);
begin
// Eigenes Exception-Handling
end;

Vielleicht ist das ja für Andere auch nützlich...

[himitsu]

Ein Zeiger auf eine Variable in der ein Zeiger zur Methode steht

[DaCoda]

Also, alles zurück...

Die vorgeschlagene Lösung macht alles noch schlimmer... Ich habe es jetzt aus meinem Projekt wieder entfernt.

Also muss ich weiter nach einer richtigen Lösung suchen, oder aber niemals das Kabel abziehen

[himitsu]

Da hilft Heißkleber
oder ein "Nicht rausziehen!"-Aufkleber.

Application.OnException TApplicationEvents.OnException

[jaenicke]

Ich schlage vor, dass du das im Quelltext selbst anpasst. Ich finde die Architektur der Klasse wirklich schlimm. Eine Exception zu werfen, die man nirgends optional einfach behandeln kann... brr, da schüttelt es mich.

Du könntest z.B. CheckException ändern und dort einen von außen zuweisbaren Handler einbauen (quasi ein Eventhandler oder ein Callback), mit dem du die weitere Behandlung umbiegen kannst.

Zitat von DaCoda:

Ich habe jetzt mal MadExcept benutzt und der zeigt mir dann an, siehe beigefügtes Bild.

Hast du auf dem entsprechenden Rechner kein Delphi? Dann wäre das Debuggen deutlich einfacher als mit MadExcept.