返回原始JSON字符串，無轉義字符

Question

我在查看此帖子：Returning raw json (string) in wcf。我覺得我運行到一定程度了同樣的問題 我有一個返回JSON REST服務，請參見下面的代碼：

IRestServiceImpl.vb

Imports System.ServiceModel 
Imports System.ServiceModel.Web 

Namespace RestService 
' NOTE: You can use the "Rename" command on the context menu to change the interface name "IRestServiceImpl" in both code and config file together. 
<ServiceContract()> _ 
Public Interface IRestServiceImpl 
    <OperationContract()> _ 
    <WebInvoke(Method:="GET", ResponseFormat:=WebMessageFormat.Xml, BodyStyle:=WebMessageBodyStyle.Wrapped, UriTemplate:="xml/{id}")> _ 
    Function XMLData(ByVal id As String) As String 


    'WebMessageBodyStyle.Bare WAS WebMessageBodyStyle.wrapped 
    <OperationContract()> _ 
    <WebInvoke(Method:="GET", ResponseFormat:=WebMessageFormat.Json, BodyStyle:=WebMessageBodyStyle.Wrapped, UriTemplate:="api/objects/json/?lat={lat}&lon={lon}&radius={radius}&cat={cat}")> _ 
    Function JSONData(ByVal lat As String, ByVal lon As String, ByVal radius As String, ByVal cat As String) As String 
    'radius in meters 


End Interface 
End Namespace 

RestServiceImpl.vb

Namespace RestService 
Public Class RestServiceImpl 
    Implements IRestServiceImpl 


    Public Function XMLData(ByVal id As String) As String _ 
     Implements IRestServiceImpl.XMLData 

     Return "XML You requested product " & id 

    End Function 

    Public Function JSONData(ByVal lat As String, ByVal lng As String, ByVal d As String, ByVal cat As String) As String _ 
     Implements IRestServiceImpl.JSONData 

     'returns the results JSON in format 

     'Return "JSON lat=" + lat + " lng=" + lng + " d=" + d + " cat=" + cat 
     Dim sBuilder As New StringBuilder 

     sBuilder.Append("{""hotspots"": [") 
     sBuilder.Append("{""id"": ""test_1"",") 
     sBuilder.Append("""anchor"": { ""geolocation"": { ""lat"": 52.3729, ""lon"": 4.93 } }, ") 
     sBuilder.Append("""text"": {") 
     sBuilder.Append("""title"": ""The Layar Office"", ") 
     sBuilder.Append("""description"": ""The Location of the Layar Office"", ") 
     sBuilder.Append("""footnote"": ""Powered by Layar"" },") 
     sBuilder.Append("""imageURL"": ""http:\/\/custom.layar.nl\/layarimage.jpeg"",") 
     sBuilder.Append("}") 
     sBuilder.Append("],") 
     sBuilder.Append("""layer"": ""mytest"",") 
     sBuilder.Append("""errorString"": ""ok"", ") 
     sBuilder.Append("""errorCode"": 0") 
     sBuilder.Append("} ") 

     Return sBuilder.ToString 

    End Function 

End Class 
End Namespace 

基於上面的代碼我得到這個迴應：

這給了我在Chrome瀏覽器中的這種響應： {「JSONDataResult 「：」{\「hotspots \」：[{\「id \」：\「test_1 \」，\「anchor \」：{\「geolocation \」：{\「lat \」：52.3729，\「 「：4.93}}，\」text \「：{\」title \「：\」The Layar Office \「，\」description \「：\」Layar Office \「的位置\」腳註\「： \「Powered by Layar \」}，\「imageURL \」：\「http：\/\/custom.layar.nl \ /layarimage.jpeg \」，}]，\「layer \」：\「mytest \」 ，\「errorString \」：\「ok \」，\「errorCode \」：0}「}

我知道反斜槓是在我的迴應中，因爲在其他線程中描述的問題（因爲我使用WebMessageFormat以.json）。

但是我不確定如何實現提供了上http://blogs.msdn.com/b/carlosfigueira/archive/2008/04/17/wcf-raw-programming-model-web.aspx，http://msdn.microsoft.com/en-us/library/ms789010.aspx和http://msdn.microsoft.com/en-us/library/cc681221(VS.90).aspx

現在我改變了我的Irestserviceimpl.vb的代碼示例：

Imports System.ServiceModel 
Imports System.ServiceModel.Web 
Imports System.IO 

Namespace RestService 
' NOTE: You can use the "Rename" command on the context menu to change the interface name "IRestServiceImpl" in both code and config file together. 
<ServiceContract()> _ 
Public Interface IRestServiceImpl 
    <OperationContract()> _ 
    <WebInvoke(Method:="GET", ResponseFormat:=WebMessageFormat.Xml, BodyStyle:=WebMessageBodyStyle.Wrapped, UriTemplate:="xml/{id}")> _ 
    Function XMLData(ByVal id As String) As String 


    'WebMessageBodyStyle.Bare WAS WebMessageBodyStyle.wrapped 
    <OperationContract()> _ 
    <WebInvoke(Method:="GET", ResponseFormat:=WebMessageFormat.Json, BodyStyle:=WebMessageBodyStyle.Bare, UriTemplate:="api/objects/json/?lat={lat}&lon={lon}&radius={radius}&cat={cat}")> _ 
    Function JSONData(ByVal lat As String, ByVal lon As String, ByVal radius As String, ByVal cat As String) As String 
    'radius in meters 
End Interface 


Public Class RawService 
    <OperationContract(), WebGet()> _ 
    Public Function GetValue() As System.IO.Stream 
     Dim result As String = "Hello world" 
     Dim resultBytes As Byte() = Encoding.UTF8.GetBytes(result) 
     WebOperationContext.Current.OutgoingResponse.ContentType = "text/plain" 
     Return New MemoryStream(resultBytes) 
    End Function 
End Class 

End Namespace 

，但我仍然不確定如何調用網址或準確地放置哪些代碼...如果有人可以幫助我在這裏開始？

謝謝！

Answer 1

你的函數正在創建一個巨大的字符串，當它被轉換爲Json時，將創建一個JSON元素（這是正確的詞？）只有一個屬性「JSONDataResult」，它有一個值=你所做的字符串所有這些引號現在都逃脫了）。

你這樣做的方式看起來很辛苦！ 您是否嘗試過使用WCFWebApi？ 它很容易實現，並使得它很容易返回JSON或XML（併爲您處理反序列化）