VB.net中的ServiceStack缓存

Question

如何在VB.net中实现ServiceStack缓存？我见过很多C＃示例，但我无法将其转移到vb.net上。

我得到的第1和第ServiceStack.ServiceHost.RequestContextExtensions.ToOptimizedResultUsingCache

• 月1日的第二个参数堆栈中的点应该是：ServiceStack.ServiceHost.IRequestContext - 不知道 什么IRequestContext是
• 第二个应该是： ServiceStack.CacheAccess.Providers.MemoryCacheClient - 我怎么设置 这做缓存默认在配置即MemoryCacheClient

代码下面，任何建议非常赞赏。

Global.asax.vb

Public Class Global_asax 
    Inherits System.Web.HttpApplication 

    Public Class HelloAppHost 
      Inherits AppHostBase 

      Public Sub New() 
       MyBase.New("Web Services", GetType(Wrapper).Assembly) 
      End Sub 

      Public Overrides Sub Configure(ByVal container As Container) 

       Routes.Add(Of GetProduct)("/GetProduct").Add(Of GetProduct)("/GetProduct/{*}") 

       Plugins.Add(New Cors.CorsFeature(allowedHeaders:="Content-Type, Authorization")) 
       container.Register(Of ICacheClient)(New MemoryCacheClient()) 

      End Sub 

    End Class 


    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) 

      Dim apphost = New HelloAppHost() 
      apphost.Init() 

    End Sub 

End Class 

WS.vb

Public Class Wrapper 

    Public Class WrapperGetProduct 
     Implements IService(Of GetProduct) 
     Public Function Execute(ByVal request As GetProduct) As Object Implements ServiceStack.ServiceHost.IService(Of GetProduct).Execute 

      Dim cachekey As String = "some_key" 
      Dim expireInTimespan = New TimeSpan(1, 0, 0) 

      Return ServiceStack.ServiceHost.RequestContextExtensions.ToOptimizedResultUsingCache(
       ServiceStack.ServiceHost.IRequestContext, // not sure what this should be 
       ServiceStack.CacheAccess.Providers.MemoryCacheClient, // not sure what this should be - how do I set this to cache setted in configuration (in memory cache)? 
       cachekey, expireInTimespan, 
       Function() request.HandleRequest() 
      ) 


     End Function 
    End Class 

End Class 

Answer 1

使用new API

ToOptimizedResultUsingCache是RequestContext哪些服务继承/暴露的扩展方法，与缓存相同（通过IO自动解析） C）。

以下示例从C＃转换而来，缓存/封装现有服务（AppConfig和Repository通过IOC解析，在AppHost配置方法中注册）。

Imports System.Collections.Generic 
Imports ServiceStack.Common 
Imports ServiceStack.ServiceHost 
Imports ServiceStack.ServiceInterface.ServiceModel 
Imports ServiceStack.Common.Web 

Public Class SearchTerm 

    Public Property Latitude() As Double 
     Get 
      Return m_Latitude 
     End Get 
     Set 
      m_Latitude = Value 
     End Set 
    End Property 
    Private m_Latitude As Double 

    Public Property Longitude() As Double 
     Get 
      Return m_Longitude 
     End Get 
     Set 
      m_Longitude = Value 
     End Set 
    End Property 
    Private m_Longitude As Double 

    Public Property Term() As String 
     Get 
      Return m_Term 
     End Get 
     Set 
      m_Term = Value 
     End Set 
    End Property 
    Private m_Term As String 

End Class 

<Route("/lookup/searchterm", "GET")> _ 
Public Class SearchTermRequest 
    Implements IReturn(Of SearchTermResponse) 

    Public Property Term() As String 
     Get 
      Return m_Term 
     End Get 
     Set 
      m_Term = Value 
     End Set 
    End Property 
    Private m_Term As String 

End Class 

Public Class SearchTermResponse 
    Implements IHasResponseStatus 

    Public Property ResponseStatus() As ResponseStatus 
     Get 
      Return m_ResponseStatus 
     End Get 
     Set 
      m_ResponseStatus = Value 
     End Set 
    End Property 
    Private m_ResponseStatus As ResponseStatus 

    Public Property Results() As List(Of SearchTerm) 
     Get 
      Return m_Results 
     End Get 
     Set 
      m_Results = Value 
     End Set 
    End Property 
    Private m_Results As List(Of SearchTerm) 

End Class 

<Route("/cached/lookup/searchterm")> _ 
Public Class CachedSearchTermRequest 
    Implements IReturn(Of CachedSearchTermResponse) 

    Public ReadOnly Property CacheKey() As String 
     Get 
      Return UrnId.Create(Of CachedSearchTermRequest)(String.Format("{0}", Me.Term)) 
     End Get 
    End Property 

    Public Property Term() As String 
     Get 
      Return m_Term 
     End Get 
     Set 
      m_Term = Value 
     End Set 
    End Property 
    Private m_Term As String 

End Class 

Public Class CachedSearchTermResponse 
    Implements IHasResponseStatus 

    Public Property ResponseStatus() As ResponseStatus 
     Get 
      Return m_ResponseStatus 
     End Get 
     Set 
      m_ResponseStatus = Value 
     End Set 
    End Property 
    Private m_ResponseStatus As ResponseStatus 

    Public Property Results() As List(Of SearchTerm) 
     Get 
      Return m_Results 
     End Get 
     Set 
      m_Results = Value 
     End Set 
    End Property 
    Private m_Results As List(Of SearchTerm) 

End Class 

Public Class SearchTermService 
    Inherits Service 

    Public Property Repository() As IRepository 
     Get 
      Return m_Repository 
     End Get 
     Set 
      m_Repository = Value 
     End Set 
    End Property 
    Private m_Repository As IRepository 

    Public Function [Get](request As SearchTermRequest) As SearchTermResponse 
      Return New SearchTermResponse() With { _ 
       Key .Results = Me.Repository.SearchTermGet(request) _ 
      } 
    End Function 

End Class 

Public Class CachedSearchTermService 
    Inherits Service 

    Public Property AppConfig() As AppConfig 
     Get 
      Return m_AppConfig 
     End Get 
     Set 
      m_AppConfig = Value 
     End Set 
    End Property 
    Private m_AppConfig As AppConfig 

    Public Function [Get](request As CachedSearchTermRequest) As Object 
     Dim cacheKey As String = request.CacheKey 
     Return Me.RequestContext.ToOptimizedResultUsingCache(
      MyBase.Cache, cacheKey, New TimeSpan(0, Me.AppConfig.CacheTimeMinutes, 0), 
       Function() 
        Using service = Me.ResolveService(Of SearchTermService)() 
         Return service.[Get](request.TranslateTo(Of SearchTermRequest)()).TranslateTo(Of CachedSearchTermResponse)() 
        End Using 
       End Function 
      ) 
    End Function 

End Class