标签:-- XML bean app 对象 实现类 修改 count driver
介绍 本文的目的是帮助有兴趣将VB6应用程序迁移到。net (c#或VB.NET)或使用。net现代资源改进VB6应用程序的团队。将VB6项目完全迁移到。net可能代价高昂且复杂。这里描述的方法允许您每次转换一小段代码。另一种可能是不转换任何代码,而是直接在. net中添加新的需求,避免增加遗留应用程序。 背景 有几篇文章帮助创建。net用户控件,以便在VB6应用程序中使用。这种方法简化了这个过程,使用c#开发的通用COM程序集,它使用反射来调用我们想要的任何另一个DLL。有了这个通用DLL,我们只需要在操作系统中注册一个,并封装了许多复杂的代码。当您的环境中有多台机器时,不需要在OS中注册多个DLL是很有用的。 使用的代码 创建COM程序集 在Visual Studio中,创建一个新的类库项目。在“项目属性”中,单击“应用程序”选项卡,单击“程序集信息”按钮,选中“使程序集COM-Visible”选项。在Build选项卡中,检查COM互操作的选项寄存器。 在项目中添加一个新类CSharpInteropService.cs。 下面的接口公开了用于调用VB6应用程序中的操作的事件。它允许打开一个尚未转换的VB6表单。 隐藏,复制Code
[ComVisible(true), Guid(LibraryInvoke.EventsId), InterfaceType(ComInterfaceType.InterfaceIsIDispatch)] public interface ILibraryInvokeEvent { [DispId(1)] void MessageEvent(string message); }
下面的接口公开了用于调用DLL的方法。 隐藏,复制Code
[ComVisible(true), Guid(LibraryInvoke.InterfaceId)] public interface ILibraryInvoke { [DispId(1)] object[] GenericInvoke(string dllFile, string className, string methodName, object[] parameters); }
下面的类是接口的实现。GenericInvoke接收将使用反射调用的DLL完整补丁、类名和方法名。您可以发送一个参数数组。最后,它会返回一个数组。GenericInvoke期望DLL目标中的MessageEvent方法创建带有OnMessageEvent的委托。只有当您希望与VB6通信时,才需要在目标中声明MessageEvent。 隐藏,收缩,复制Code
[ComVisible(true), Guid(LibraryInvoke.ClassId)] [ComSourceInterfaces("CSharpInteropService.ILibraryInvokeEvent")] [ComClass(LibraryInvoke.ClassId, LibraryInvoke.InterfaceId, LibraryInvoke.EventsId)] public class LibraryInvoke : ILibraryInvoke { public const string ClassId = "3D853E7B-01DA-4944-8E65-5E36B501E889"; public const string InterfaceId = "CB344AD3-88B2-47D8-86F1-20EEFAF6BAE8"; public const string EventsId = "5E16F11C-2E1D-4B35-B190-E752B283260A"; public delegate void MessageHandler(string message); public event MessageHandler MessageEvent; public object[] GenericInvoke(string dllFile, string className, string methodName, object[] parameters) { Assembly dll = Assembly.LoadFrom(dllFile); Type classType = dll.GetType(className); object classInstance = Activator.CreateInstance(classType); MethodInfo classMethod = classType.GetMethod(methodName); EventInfo eventMessageEvent = classType.GetEvent ("MessageEvent", BindingFlags.NonPublic | BindingFlags.Static); if (eventMessageEvent != null) { Type typeMessageEvent = eventMessageEvent.EventHandlerType; MethodInfo handler = typeof(LibraryInvoke).GetMethod ("OnMessageEvent", BindingFlags.NonPublic | BindingFlags.Instance); Delegate del = Delegate.CreateDelegate(typeMessageEvent, this, handler); MethodInfo addHandler = eventMessageEvent.GetAddMethod(true); Object[] addHandlerArgs = { del }; addHandler.Invoke(classInstance, addHandlerArgs); } return (object[])classMethod.Invoke(classInstance, parameters); } private void OnMessageEvent(string message) { MessageEvent?.Invoke(message); } }
注册COM组件 在构建项目之后,您将获得一个DLL和TLB文件。您需要使用regas .exe工具(32位)注册这个程序集。这个工具位于你的。net框架版本的c:c模块。 隐藏,复制Code
C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe /codebase "C:\Temp\CSharpInterop\CSharpInteropService\CSharpInteropService\bin\Debug\CSharpInteropService.dll" /tlb:"C:\Temp\CSharpInterop\CSharpInteropService\CSharpInteropService\bin\Debug\CSharpInteropService.tlb"
要取消注册,请使用/u而不是/codebase。 如果您尝试从一个网络位置注册CSharpInteropService.dll并收到一个错误,可能有必要在regams .exe中包括以下几行。配置键内的配置: 隐藏,复制Code
<runtime> <loadFromRemoteSourcesenabled="true"/> </runtime>
调用DLL 注册了程序集后,只需在VB6项目引用处选择它。下面的代码显示了如何进行基本调用。 隐藏,复制Code
Dim param(0) As Variant param(0) = Me.hWnd ‘To made the c# form a child of vb6 mdi Dim load As New LibraryInvoke Set CSharpInteropServiceEvents = load load.GenericInvoke "C:\Temp\CSharpInterop\ClassLibrary1\ClassLibrary1\bin\Debug\ClassLibrary1.dll", "ClassLibrary1.Class1", "ShowFormParent", param
c# DLL 隐藏,复制Code
[DllImport("user32.dll")] public static extern IntPtr SetParent(IntPtr hWndChild, IntPtr hWndNewParent); public void ShowFormParent(long parent) { Form1 form = new Form1(); form.Show(); IntPtr p = new IntPtr(parent); SetParent(form.Handle, p); } private delegate void MessageHandler(string message); private static event MessageHandler MessageEvent = delegate { }; public static void OnMessageEvent(string message) { MessageEvent(message); }
网络环境 如果您尝试从网络位置加载程序集并接收到异常(System.IO.FileLoadException),请尝试为VB6可执行文件创建配置文件。在我的示例项目中,我创建了一个Project1.exe。为Project1.exe配置如下内容: 隐藏,复制Code
<?xmlversion="1.0"encoding="utf-8"?> <configuration> <runtime> <loadFromRemoteSourcesenabled="true"/> </runtime> </configuration>
限制 在当前阶段,当使用ShowDialog()打开c#表单时,会有一个限制。在这种情况下,VB6中的事件不会在打开表单时调用,而是在打开表单之前和关闭表单之后,通信会正常工作。 本文转载于:http://www.diyabc.com/frontweb/news2206.html
标签:-- XML bean app 对象 实现类 修改 count driver
原文地址:https://www.cnblogs.com/blknemo/p/13454342.html