From cce262ecf37b254347a3f7c68e8242cfaf571206 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 24 Jul 2008 14:39:22 +0000
Subject: [PATCH] =?UTF-8?q?Cada=20vez=20que=20se=20produce=20una=20excepci?=
 =?UTF-8?q?=C3=B3n=20en=20el=20servidor,=20se=20vuelca=20en=20el=20log=20a?=
 =?UTF-8?q?utom=C3=A1ticamente.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@292 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Servidor/uDataModuleServer.dfm | 1 +
 Source/Servidor/uDataModuleServer.pas | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm
index 01de9c07..85e735dd 100644
--- a/Source/Servidor/uDataModuleServer.dfm
+++ b/Source/Servidor/uDataModuleServer.dfm
@@ -21,6 +21,7 @@ object dmServer: TdmServer
     Top = 16
   end
   object BINMessage: TROBinMessage
+    OnWriteException = BINMessageWriteException
     Left = 136
     Top = 16
   end
diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas
index 731dc3e4..0ab8494f 100644
--- a/Source/Servidor/uDataModuleServer.pas
+++ b/Source/Servidor/uDataModuleServer.pas
@@ -33,6 +33,8 @@ type
       IsExpired: Boolean);
     procedure ConnectionManagerConnectionAcquired(Sender: TDAConnectionManager;
       const Connection: IDAConnection);
+    procedure BINMessageWriteException(Sender: TROMessage; aStream: TStream;
+      E: Exception);
   private
     FEscribirLog : TCriticalSection;
     FConnectionName : string;
@@ -144,6 +146,12 @@ begin
     Result := Result + chr(ord(Source[i]) - Random(10) - 1);
 end;
 
+procedure TdmServer.BINMessageWriteException(Sender: TROMessage;
+  aStream: TStream; E: Exception);
+begin
+  EscribirLog(E.Message);
+end;
+
 procedure TdmServer.ConnectionManagerConnectionAcquired(
   Sender: TDAConnectionManager; const Connection: IDAConnection);
 begin