WCF數據序列

Question

與WCF的工作應該如何修改這個DataContract或代碼：

<DataContract()> 
Public Class listaActos 
Private _codigoActo As List(Of String) 

<DataMember(IsRequired:=True)> 
Public Property codigoActo() As List(Of String) 
    Get 
     Return _codigoActo 
    End Get 

    Set(ByVal value As List(Of String)) 
     _codigoActo = value 
    End Set 
End Property ... 

序列化時產生以下響應XML：

<a:listaActos> 
    <a:codigoActo xmlns:b="http://schemas.microsoft.com/2003/10/Serialization/Arrays"> 
      <b:string>01672</b:string> 
    </a:codigoActo> </a:listaActos> 

但我想博如下：

<a:listaActos> 
    <a:codigoActo>01672</a:codigoActo> 
    <a:codigoActo>01673</a:codigoActo> 
    <a:codigoActo>01674</a:codigoActo></a:listaActos> 

在此先感謝！

Answer 1

如果您的類listaActos只包含其中的codigoActo列表，則可以將其設置爲集合類型（例如，使其繼承自List(Of String)）。這將爲您帶來想要的DataContractSerializer的XML形狀。

如果它有更多的成員，那麼你需要使用XmlSerializer，並定義類。

下面的代碼顯示了列表選項。

Public Class StackOverflow_10554490 
    <CollectionDataContract(Name:="listaActos", Namespace:="http://my.namespace", ItemName:="codigoActo")> _ 
    Public Class listaActos 
     Inherits List(Of String) 
    End Class 

    <DataContract(Name:="Root", Namespace:="http://my.namespace")> _ 
    Public Class Root 
     <DataMember()> _ 
     Public Property listaActos As listaActos 
    End Class 

    Public Shared Sub Test() 
     Dim list As listaActos = New listaActos() 
     list.Add("01672") 
     list.Add("01673") 
     list.Add("01674") 
     Dim root = New Root With {.listaActos = list} 
     Dim dcs = New DataContractSerializer(GetType(Root)) 
     Dim ms = New MemoryStream() 
     dcs.WriteObject(ms, root) 
     Console.WriteLine(Encoding.UTF8.GetString(ms.ToArray())) 
    End Sub 
End Class