|
|
Imports System.Reflection
|
|
|
Imports Microsoft.VisualBasic.Linq
|
|
|
Imports Microsoft.VisualBasic.Serialization
|
|
|
Imports Microsoft.VisualBasic.Scripting
|
|
|
|
|
|
Namespace TaskHost
|
|
|
|
|
|
''' <summary>
|
|
|
''' Json value of the function parameter, and the type information is also included in this property.
|
|
|
''' </summary>
|
|
|
Public Class Argv
|
|
|
|
|
|
''' <summary>
|
|
|
''' <see cref="System.Type.FullName"/>
|
|
|
''' </summary>
|
|
|
''' <returns><see cref="System.Type.FullName"/></returns>
|
|
|
Public Property Type As String
|
|
|
''' <summary>
|
|
|
''' Json string
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
Public Property value As String
|
|
|
|
|
|
Sub New()
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Creates the function remote calls one of its parameter value.
|
|
|
''' </summary>
|
|
|
''' <param name="o"></param>
|
|
|
Sub New(o As Object)
|
|
|
Dim type As Type = o.GetType
|
|
|
|
|
|
Me.Type = type.FullName
|
|
|
Me.value = Serialization.GetJson(o, type)
|
|
|
End Sub
|
|
|
|
|
|
Public Overrides Function ToString() As String
|
|
|
Return $"[{Type.Split("."c).Last}] " & value
|
|
|
End Function
|
|
|
|
|
|
Public Function GetValue() As Object
|
|
|
Dim type As Type = Type.GetType(Me.Type, True, False)
|
|
|
Dim o As Object = JsonContract.LoadObject(value, type)
|
|
|
Return o
|
|
|
End Function
|
|
|
End Class
|
|
|
|
|
|
''' <summary>
|
|
|
''' 分布式计算框架之中的远程调用的参数信息
|
|
|
''' </summary>
|
|
|
Public Class InvokeInfo : Inherits MetaData.TypeInfo
|
|
|
|
|
|
''' <summary>
|
|
|
''' 函数名
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
Public Property Name As String
|
|
|
''' <summary>
|
|
|
''' json value.(函数参数)
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
Public Property Parameters As Argv()
|
|
|
|
|
|
Public Function GetMethod() As MethodInfo
|
|
|
Dim type As Type = [GetType]()
|
|
|
Dim func As MethodInfo = type.GetMethod(Name, BindingFlags.Public Or BindingFlags.Static)
|
|
|
Return func
|
|
|
End Function
|
|
|
|
|
|
Public Overrides Function ToString() As String
|
|
|
Return $"{assm}!{FullIdentity}::{Name}"
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
'''
|
|
|
''' </summary>
|
|
|
''' <param name="method"></param>
|
|
|
''' <param name="args">json</param>
|
|
|
''' <returns></returns>
|
|
|
Public Shared Function GetParameters(method As MethodInfo, args As String()) As Object()
|
|
|
Dim params As Type() = method.GetParameters.ToArray(Function(x) x.ParameterType)
|
|
|
Dim values As Object() = args.ToArray(Function(x, idx) Serialization.LoadObject(x, params(idx)))
|
|
|
Return values
|
|
|
End Function
|
|
|
|
|
|
Public Sub SetArgs(ParamArray args As Object())
|
|
|
Me.Parameters = args.ToArray(Function(x) New Argv(x))
|
|
|
End Sub
|
|
|
|
|
|
Public Shared Function CreateObject(func As [Delegate], args As Object()) As InvokeInfo
|
|
|
Dim type As Type = func.Method.DeclaringType
|
|
|
Dim assm As Assembly = type.Assembly
|
|
|
Dim name As String = func.Method.Name
|
|
|
Dim params As Argv() = args.ToArray(Function(x) New Argv(x)) ' 由于函数调用的参数的类型可能是基类，所以json序列化操作会存在问题，在这里使用这个新的参数构建模块来避免这个问题
|
|
|
Return New InvokeInfo With {
|
|
|
.assm = FileIO.FileSystem.GetFileInfo(assm.Location).Name,
|
|
|
.Name = name,
|
|
|
.Parameters = params,
|
|
|
.FullIdentity = type.FullName
|
|
|
}
|
|
|
End Function
|
|
|
End Class
|
|
|
End Namespace |
