commit 79655fbe0b9bf0ca310ce35bafcfb47f76642e6d
author Roger Meier <roger@apache.org> Sat Oct 20 20:59:41 2012 +0000
committer Roger Meier <roger@apache.org> Sat Oct 20 20:59:41 2012 +0000
tree c0819781e03b58e5b34adfb7a80497b8ae826ffa
parent 98f93778e1ea5b8b3dbed7bb946cddf6208fbe42

THRIFT-1713 Named and Anonymous Pipe transport (Delphi)
Patch: Jens Geyer


git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1400514 13f79535-47bb-0310-9956-ffa450edef68

lib/delphi/src/Thrift.Server.pas

diff --git a/lib/delphi/src/Thrift.Server.pas b/lib/delphi/src/Thrift.Server.pas
index d437527..8af399e 100644
--- a/lib/delphi/src/Thrift.Server.pas
+++ b/lib/delphi/src/Thrift.Server.pas
@@ -287,14 +287,13 @@
     except
       on E: TTransportException do
       begin
-        if FStop then
-        begin
-          FLogDelegate('TSimpleServer was shutting down, caught ' + E.ClassName);
-        end;
+        if FStop
+        then FLogDelegate('TSimpleServer was shutting down, caught ' + E.ToString)
+        else FLogDelegate( E.ToString);
       end;
       on E: Exception do
       begin
-        FLogDelegate( E.ToString );
+        FLogDelegate( E.ToString);
       end;
     end;
     if InputTransport <> nil then