添加的功能未显示在 COM 对象中

Question

我在 VB.Net 中创建了一个用于 Visual Foxpro 应用程序的 dll。最近我添加了一些功能来帮助清理数据和清除来自用户控件的输入并重新构建项目。我目前正在使用 Regasm 注册 dll，这似乎工作正常。但是，当我注册 dll 时，没有显示新功能，看起来好像仍在使用旧的、以前注册的 dll。有什么我做的不对吗？ 这是代码的摘录。

    <ClassInterface(ClassInterfaceType.AutoDispatch), ProgId("LPFPasserelle.FicheEtablissement")>
    Public Class FicheEtablissement
      Private mCreateInstitution As New CreateInstitution
       <ComRegisterFunction()>
    Public Shared Sub RegisterClass(ByVal key As String)

    Dim sb As StringBuilder = New StringBuilder(key)
    sb.Replace("HKEY_CLASSES_ROOT\", "")

    '// Open the CLSID\{guid} key for write access  
    Dim k As RegistryKey = Registry.ClassesRoot.OpenSubKey(sb.ToString(), True)
    Dim ctrl As RegistryKey = k.CreateSubKey("Control")
    ctrl.Close()

    '// Next create the CodeBase entry - needed if not string named and GACced.  
    Dim inprocServer32 As RegistryKey = k.OpenSubKey("InprocServer32", True)
    inprocServer32.SetValue("CodeBase", Assembly.GetExecutingAssembly().CodeBase)
    inprocServer32.Close()

    k.Close()
End Sub

<ComUnregisterFunction()>
Public Shared Sub UnregisterClass(ByVal key As String)

    Dim sb As StringBuilder = New StringBuilder(key)
    sb.Replace("HKEY_CLASSES_ROOT\", "")

    '// Open HKCR\CLSID\{guid} for write access  
    Dim k As RegistryKey = Registry.ClassesRoot.OpenSubKey(sb.ToString(), True)

    '// Delete the 'Control' key, but don't throw an exception if it does not exist  
    If k Is Nothing Then
        Return
    End If
    k.DeleteSubKey("Control", False)

    '// Next open up InprocServer32  
    Dim inprocServer32 As RegistryKey = k.OpenSubKey("InprocServer32", True)

    '// And delete the CodeBase key, again not throwing if missing   
    inprocServer32.DeleteSubKey("CodeBase", False)

    '// Finally close the main key   
    inprocServer32.Close()
    k.Close()

End Sub

我添加的清理字符串数据的功能如下。

 Function SanitizeStringData(ByVal StringToSanitize As String)
    Dim mSanitizedString As String = String.Empty
    mSanitizedString = Trim(StringToSanitize)
    If Trim(StringToSanitize).Contains("'") Then
        mSanitizedString = Trim(StringToSanitize).Replace("'", "''")
    End If
    Return mSanitizedString
End Function

Answer 1

不确定你的清理 dll/COM 问题，但对于你的清理字符串，我不知道你为什么不只是使用 VFP 的函数 STRTRAN()

someString = [发生了什么]

？ STRTRAN(someString, "'", "''" )

会导致

发生了什么

Help on StrTran() function

Another cool one is CHRTRAN() 并通过将字符串中的每个字符替换为其他字符来从字符串中剥离无效字符到伪加密，从而具有广泛的好处......