通过Fsharp探索Enterprise Library Exception

标签：fsharp   f#   enterprise library   exception   

let exceptionShielding = [new ExceptionPolicyEntry(typeof<Exception>,
                                                        PostHandlingAction.ThrowNewException,
                                                        [|new WrapHandler("Application Error. Please contact rigid", typeof<Exception>)|])]

let policies = [new ExceptionPolicyDefinition("Wrap Exception", exceptionShielding)]

let exceptionManager = new ExceptionManager(policies)
ExceptionPolicy.SetExceptionManager(exceptionManager)

//most simple example
exceptionManager.Process((fun () -> 1/0 ), "Wrap Exception")

#if COMPILED
#else
#r "[Xpath]/packages/EnterpriseLibrary.Data.6.0.1304.0/lib/NET45/Microsoft.Practices.EnterpriseLibrary.Data.dll"
#r "[Xpath]/packages/EnterpriseLibrary.Common.6.0.1304.0/lib/NET45/Microsoft.Practices.EnterpriseLibrary.Common.dll"
#r "[Xpath]/packages/EnterpriseLibrary.ExceptionHandling.6.0.1304.0/lib/NET45/Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.dll"
#r "[Xpath]/packages/EnterpriseLibrary.ExceptionHandling.Logging.6.0.1304.0/lib/NET45/Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.Logging.dll"
#r "[Xpath]/packages/EnterpriseLibrary.Logging.6.0.1304.0/lib/NET45/Microsoft.Practices.EnterpriseLibrary.Logging.dll"
#r "System"
#r "System.Data"
#r "System.Configuration"
#r "System.ServiceModel"
#endif

open System
open System.Configuration
open Microsoft.Practices.EnterpriseLibrary.ExceptionHandling
open Microsoft.Practices.EnterpriseLibrary.ExceptionHandling.Logging
open Microsoft.Practices.EnterpriseLibrary.Logging
open Microsoft.Practices.EnterpriseLibrary.Logging.Formatters
open Microsoft.Practices.EnterpriseLibrary.Logging.TraceListeners
open System.Diagnostics

//make logger
//format
let formatter = new TextFormatter("TimeStamp: {timestamp}{newline}Message:{message}{newline}Category:{category}{newline}Priority:{priority}{newline}EventID:{eventid}{newline}Severity:{severity}{newline}Title:{title}{newline}Machine:{machine}{newline}App Domain:{localAppDomain}{newline}ProcessID:{localProcessId}{newline}Process Name:{localProcessName}{newline}Thread Name:{threadName}{newline}Win32 ThreadID:{win32Thread}{newline}Extended Properties:{dictinary({key}-{value}{newline})}")
//listener
let flatFileTraceListener = new FlatFileTraceListener(@"c:\Temp\this.log", "------------------------------", "------------------------------",formatter)
let eventlog = new EventLog("Application", ".", "Enterprise Libray Logging")
let eventlogTraceListener = new FormattedEventLogTraceListener(eventlog)
//configuration
let config = new LoggingConfiguration()
config.AddLogSource("General", SourceLevels.All, true, [|flatFileTraceListener :> TraceListener|]) |> ignore
let logWriter = new LogWriter(config)

let exceptionShielding = [new ExceptionPolicyEntry(typeof<Exception>,
                                                        PostHandlingAction.ThrowNewException,
                                                        [|new WrapHandler("Application Error. Please contact rigid", typeof<Exception>)|])
                         ]

let replacingException = [new ExceptionPolicyEntry(typeof<Exception>,
                                                        PostHandlingAction.ThrowNewException,
                                                        [|new ReplaceHandler("Application Error. Please contact rigid", typeof<Exception>)|])
                         ]
let loggingAndReplacing = [new ExceptionPolicyEntry(typeof<Exception>,
                                                        PostHandlingAction.NotifyRethrow,
                                                        [|new LoggingExceptionHandler("General", 1000, TraceEventType.Error, "Rigid Service", 5, typeof<TextExceptionFormatter>, logWriter);
                                                          new ReplaceHandler("Application Error. Please contact rigid", typeof<Exception>)|])
                         ]

let policies = [new ExceptionPolicyDefinition("Wrap Exception", exceptionShielding);
                new ExceptionPolicyDefinition("Replace Exception", replacingException);
                new ExceptionPolicyDefinition("Log and Replace Exception", loggingAndReplacing)]

let exceptionManager = new ExceptionManager(policies)
ExceptionPolicy.SetExceptionManager(exceptionManager)

//most simple example
exceptionManager.Process((fun () -> 1/0 ), "Log and Replace Exception")

通过Fsharp探索Enterprise Library Exception

标签：fsharp   f#   enterprise library   exception   

原文地址：http://blog.csdn.net/samwell/article/details/40536185