如何从WCF客户端向服务器发送托管异常（用于日志记录）？

好吧，那是一个半程。希望我带来一些TrailMix。

解决方案原来是Microsoft的红发继子，在此NetDataContractSerializer简要提及。您可以在这里阅读有关我为何称其为“为什么”的信息。

Ron Jacobs帖子的底部（到Aaron Skonnard的帖子）有一个重要链接，该链接现已过期。我在这里找到了一个副本（评论很重要，请看一下）。看来蒂姆·斯科特（Tim Scott）也使用了亚伦（Aaron）的代码。

正是在蒂姆更彻底的解释中，我找到了圣杯。（我一直想这样做！）

Tim正在使用Attribute装饰，但是仅当在服务器上使用CLR对象时，这些装饰才适用。在这种情况下，我们正在为客户工作。

因此，最终，此修复程序简单易用。只需使用NetDataContractSerializer将打包System.Exception为Byte()，将数据发送到服务器，然后在其中反序列化即可。无需高呼，不需要硝烟的镜子，只需一眼即可。

这会降低性能，因此请尽量减少Exception！

这是我最终得到的结果，然后是蒂姆针对可能需要它的任何人的代码：

System.Exception从客户端发送到服务器

Public Class Client
  Private Sub ClientTest()
    Dim i As Integer

    Try
      i = String.Empty

    Catch ex As Exception
      Client.Create.Call(Sub(S As IService)
                           S.Log(LogLevels.Error, ex.Message, ex.ToBytes)
                         End Sub)
    End Try
  End Sub
End Class



<ServiceContract>
Public Interface IService
  <OperationContract> Sub Log(Level As LogLevels, Message As String, Data As Byte())
End Interface



Public Class Service
  Implements IService

  Public Sub Log(Level As LogLevels, Message As String, Data As Byte()) Implements IService.Log
    ' Log4Net logger created separately, out of scope of this question '
    Select Case Level
      Case LogLevels.Debug : Main.Logger.Debug(Message, Data.ToException)
      Case LogLevels.Info : Main.Logger.Info(Message, Data.ToException)
      Case LogLevels.Warn : Main.Logger.Warn(Message, Data.ToException)
      Case LogLevels.Error : Main.Logger.Error(Message, Data.ToException)
      Case LogLevels.Fatal : Main.Logger.Fatal(Message, Data.ToException)
    End Select
  End Sub
End Class



Public Module Extensions
  <Extension>
  Public Function ToBytes(Instance As Exception) As Byte()
    Using oStream As New MemoryStream()
      With New NetDataContractSerializer
        .Serialize(oStream, Instance)
      End With

      Return oStream.ToArray
    End Using
  End Function



  <Extension>
  Public Function ToException(Data As Byte()) As Exception
    Using oStream As New MemoryStream(Data)
      With New NetDataContractSerializer
        Return .Deserialize(oStream)
      End With
    End Using
  End Function
End Module

将CLR对象（包括泛型）发送给客户端

public class NetDataContractOperationBehavior : DataContractSerializerOperationBehavior
{
    public NetDataContractOperationBehavior(OperationDescription operation)
        : base(operation)
    {
    }   

    public NetDataContractOperationBehavior(OperationDescription operation, DataContractFormatAttribute dataContractFormatAttribute)
        : base(operation, dataContractFormatAttribute)
    {
    }   

    public override XmlObjectSerializer CreateSerializer(Type type, string name, string ns,
        IList<Type> knownTypes)
    {
        return new NetDataContractSerializer(name, ns);
    }   

    public override XmlObjectSerializer CreateSerializer(Type type, XmlDictionaryString name,
        XmlDictionaryString ns, IList<Type> knownTypes)
    {
        return new NetDataContractSerializer(name, ns);
    }
}   



public class UseNetDataContractSerializerAttribute : Attribute, IOperationBehavior
{
    public void AddBindingParameters(OperationDescription description, BindingParameterCollection parameters)
    {
    }   

    public void ApplyClientBehavior(OperationDescription description,
        System.ServiceModel.Dispatcher.ClientOperation proxy)
    {
        ReplaceDataContractSerializerOperationBehavior(description);
    }   

    public void ApplyDispatchBehavior(OperationDescription description,
        System.ServiceModel.Dispatcher.DispatchOperation dispatch)
    {
        ReplaceDataContractSerializerOperationBehavior(description);
    }   

    public void Validate(OperationDescription description)
    {
    }   

    private static void ReplaceDataContractSerializerOperationBehavior( OperationDescription description)
    {
        DataContractSerializerOperationBehavior dcsOperationBehavior =
        description.Behaviors.Find<DataContractSerializerOperationBehavior>();   

        if (dcsOperationBehavior != null)
        {
            description.Behaviors.Remove(dcsOperationBehavior);
            description.Behaviors.Add(new NetDataContractOperationBehavior(description));
        }
    }
}


// Then in the service contract, to every method we added the UseNetDataContractSerializer attribute, like so:
[UseNetDataContractSerializer]
[OperationContractAttribute]
Company SaveCompany(CompanyUpdater companyUpdater);