Error logging

craigmox · Feb 14, 2020 · 0c84a39 · 0c84a39
1 parent 5fa4b1c
commit 0c84a39
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ProxyWebModuleUnit.pas b/ProxyWebModuleUnit.pas
@@ -243,6 +243,8 @@ procedure TProxyWebModule.ProxyWebModuleAutoActionAction(Sender: TObject;
 
 procedure TProxyWebModule.HandleException;
 begin
+  Log.D('Service handler error: %s', [Exception(ExceptObject).Message]);
+
   // Send the response ourselves in an exception handler that eats all exceptions to
   // prevent the default handler from doing it and showing an error message box
   if not Response.Sent then