Könnte daran liegen, daß du die Destination erst im finally zuweist, nachdem du die Daten gesendet hast.
Joar, erst versuchen zu loggen und danach sagen wohin das Log und alle zukünftigen Logs sollen.
Warum ignorierst du die Warnungen des Compilers?
Zitat:
Delphi-Quellcode:
var
Dest: TCodeSiteDestination;
begin
try
Dest := TCodeSiteDestination.Create(Self);
...
finally
CodeSite.Destination := Dest;
end;
end;
Variable nicht initialisiert und was glaubst du was mit Dest ist, wenn es beim Create geknallt hat?
Eine uninitialisierte Variable da zuweisen und dann hoffen dass CodeSite nicht komplett abraucht.
Zitat:
Delphi-Quellcode:
except
CodeSite.SendException(E);
Hmmmm, wenn es da beim Einrichten von CodeSite geknallt hat, glaubst du dann wirklich, dass diese dann nicht auch noch knallt?
Und warum erstellst du die Destination mehrfach?
Beim zweiten Klick liegt das alte Dest als Leiche bis zum Programmende im Speicher, usw.