Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cada vez que se produce una excepción en el servidor, se vuelca en el log automáticamente.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@292 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-24 14:39:22 +00:00
parent 68a25e0444
commit cce262ecf3
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Servidor/uDataModuleServer.dfm
View File

@ -21,6 +21,7 @@ object dmServer: TdmServer
Top = 16 Top = 16
end end
object BINMessage: TROBinMessage object BINMessage: TROBinMessage
OnWriteException = BINMessageWriteException
Left = 136 Left = 136
Top = 16 Top = 16
end end

8
Source/Servidor/uDataModuleServer.pas
View File

@ -33,6 +33,8 @@ type
IsExpired: Boolean); IsExpired: Boolean);
procedure ConnectionManagerConnectionAcquired(Sender: TDAConnectionManager; procedure ConnectionManagerConnectionAcquired(Sender: TDAConnectionManager;
const Connection: IDAConnection); const Connection: IDAConnection);
procedure BINMessageWriteException(Sender: TROMessage; aStream: TStream;
E: Exception);
private private
FEscribirLog : TCriticalSection; FEscribirLog : TCriticalSection;
FConnectionName : string; FConnectionName : string;
@ -144,6 +146,12 @@ begin
Result := Result + chr(ord(Source[i]) - Random(10) - 1); Result := Result + chr(ord(Source[i]) - Random(10) - 1);
end; end;
procedure TdmServer.BINMessageWriteException(Sender: TROMessage;
aStream: TStream; E: Exception);
begin
EscribirLog(E.Message);
end;
procedure TdmServer.ConnectionManagerConnectionAcquired( procedure TdmServer.ConnectionManagerConnectionAcquired(
Sender: TDAConnectionManager; const Connection: IDAConnection); Sender: TDAConnectionManager; const Connection: IDAConnection);
begin begin