OnSlppEventのエラー詳細を出すように変更

diff --git a/sakurasuite/IdSLPP20.pas b/sakurasuite/IdSLPP20.pas
index 3c4989d..40a230e 100644 (file)
--- a/sakurasuite/IdSLPP20.pas
+++ b/sakurasuite/IdSLPP20.pas
@@ -165,7 +165,9 @@ begin
     FOnSlppEvent(self, FSLPPThread.FEvent, FSLPPThread.FParam);
   except
     on E: Exception do
-      ShowMessage('Exception occured in OnSlppEvent: '#13#10 + E.Message);
+      ShowMessage(Format('Exception occurred in OnSlppEvent: %s'#13#10 +
+        'Event type: %d'#13#10'%s',
+        [E.Message, Ord(FSLPPThread.FEvent), FSlppThread.Fparam]));
   end;
 end;