asked on

CallByName Help?

Can someone help me figure this out here.

I am trying to pass some parameters to a CallByName return as the parameters to a function that it should be calling

The function I am trying to run is called Test, and is simply the following:
Public Shared Function Test(ByVal str As String) As String
Return str.ToString()
End Function

The problem I am having is that it should be returning what is passed to it as a parameter, (which is simply the string "This Is A Test"), but nothing is getting displayed to me.

Here's the class doing the work:

Imports System.Web
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Threading
Imports System.Threading.Tasks

Namespace ZipCM

    Public Class Tokenator
        Implements System.IDisposable

        Private objXml As XDocument
        Private _IT As Type = Nothing
        Private _Token() As Object
        Private _TokenQuery() As Object
        Private _Template As String

        Public Sub New(ByVal Template As String)
            objXml = XDocument.Load(HttpContext.Current.Server.MapPath("/Scripts/Tokens.config"))
            Dim _TokenRE As New Regex("\#\#([^&\n]*?)(&.*?)?\#\#")
            Dim _RCt As Long = 0
            Dim _TokenMatches As MatchCollection = _TokenRE.Matches(Template)
            Dim _T(_TokenMatches.Count - 1) As String
            Dim _TQ(_TokenMatches.Count - 1) As String
            For i As Integer = 0 To _TokenMatches.Count - 1
                _T(i) = _TokenMatches(i).Groups(1).Value
                _TQ(i) = _TokenMatches(i).Groups(2).Value
            Next
            _Token = _T
            _TokenQuery = _TQ
            _Template = Template
            Erase _T : Erase _TQ
        End Sub

        ''' <summary>
        ''' Process out tokens
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Tokenator() As String
            Dim tmpI As Long
            For i As Long = 0 To _Token.GetUpperBound(0)
                tmpI = i
                Dim _Qry = (From n In objXml...<Token>.AsParallel().WithExecutionMode(ParallelExecutionMode.ForceParallelism) _
                           Where n.@active = 1 And n.<Name>.Value.Contains(_Token(tmpI)) _
                            Select n.<Name>, n.<Namespace>, n.<Class>, n.<Property>, n.<Method>, StrValue = n.<String>).ToList()
                If _Qry.Count > 0 Then
                    For Each r In _Qry
                        If Security.Required(_TokenQuery(i)) Then
                            'Process the QueryStrings attached to the tokens
                            Dim _TmpTok = Invoker(r.Method.Value, r.Namespace.Value, r.Class.Value, r.Property.Value, r.StrValue.Value, New Object() {_TokenQuery(i)}) & ":::" & tmpI
                            _Template = _Template.Replace(r.Name.Value.Replace("##", String.Empty), _TmpTok).Replace(_TokenQuery(i), String.Empty)
                        Else
                            Dim _TmpTok = Invoker(r.Method.Value, r.Namespace.Value, r.Class.Value, r.Property.Value, r.StrValue.Value) & ":::" & tmpI
                            _Template = _Template.Replace(r.Name.Value.Replace("##", String.Empty), _TmpTok)
                        End If
                    Next
                End If
            Next
            Return _Template.Replace("##", String.Empty)
        End Function

        ''' <summary>
        ''' Invoke everything
        ''' </summary>
        ''' <param name="MethodName"></param>
        ''' <param name="NamespaceName"></param>
        ''' <param name="ClassName"></param>
        ''' <param name="PropertyName"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Private Function Invoker(ByVal MethodName As String, Optional ByVal NamespaceName As String = Nothing, Optional ByVal ClassName As String = Nothing, Optional ByVal PropertyName As String = Nothing, Optional ByVal StringValue As String = Nothing, Optional ByVal Params() As Object = Nothing) As String
            If (Len(PropertyName) > 0) Then
                If (Len(ClassName) > 0) Then
                    If Not (Len(NamespaceName) > 0) Then
                        _IT = Type.GetType(ClassName, True, True)
                    Else
                        _IT = Type.GetType(NamespaceName & "." & ClassName, True, True)
                    End If
                Else
                    _IT = Type.GetType(Me.ToString, True, True)
                End If
                Return CallByName(Activator.CreateInstance(_IT), PropertyName, CallType.Get)
            ElseIf Len(StringValue) > 0 Then
                Return StringValue
            Else
                If (Len(ClassName) > 0) Then
                    If Not (Len(NamespaceName) > 0) Then
                        _IT = Type.GetType(ClassName, True, True)
                    Else
                        _IT = Type.GetType(NamespaceName & "." & ClassName, True, True)
                    End If
                Else
                    _IT = Type.GetType(Me.ToString, True, True)
                End If
                If IsNothing(Params) Then
                    Return CallByName(Activator.CreateInstance(_IT), MethodName, CallType.Get)
                Else
                    Return CallByName(Activator.CreateInstance(_IT), MethodName, CallType.Get, Params)
                End If
            End If
        End Function

#Region "IDisposable Support"
        Private disposedValue As Boolean ' To detect redundant calls

        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: dispose managed state (managed objects).
                End If
                Erase _Token
                Erase _TokenQuery
                _Template = String.Empty
                objXml = Nothing
                ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
                ' TODO: set large fields to null.
            End If
            Me.disposedValue = True
        End Sub

        ' This code added by Visual Basic to correctly implement the disposable pattern.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub

#End Region

    End Class

End Namespace

Open in new window

Carl Tawn

CallType.Get refers to a property get accessor. What you need is CallType.Method.