PB调用C#编写的Dll类库

Posted 2022-06-04 violety

在c# 中编写com组件，供PB调用实例

前言：c#中写的dll直接是不能被pb调用的，只有写成com组件才可以调用，所以用c#写dll时要注意。

c#中新建类库

　　类库类型为通用类库，项目名为AddCom

 

1、配置：右键点击解决方案资源管理器中的AddCom，选择“属性”，选择“应用程序”->“程序集信息”，勾选“使程序集COM可见”，然后点击“生成”，选择“为COM互操作注册”

 

2、打开AssemblyInfo.cs文件，设置[assembly: ComVisible(true)]，如果不改则不能被其他程序调用

 

3、编写com组件会用到guid(全球唯一ID)，编写com组件必须要用到。c#会默认生成一个放在AssemblyInfo.cs，如没有生成，可以用GUID生成器生成，也可以网上下一个生成guid的软件

4、c#中源代码如下

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
namespace AddCom

    [Guid("298D881C-E2A3-4638-B872-73EADE25511C")]
    public interface AddComInterface
    
        [DispId(1)]
        int iadd(int a, int b);
    
    [Guid("2C5B7580-4038-4d90-BABD-8B83FCE5A467")]
    [ClassInterface(ClassInterfaceType.None)]

    public class AddComService : AddComInterface
    
        public AddComService()
        
        
        public int iadd(int a, int b)
        
            int c = 0;
            c = a + b;
            return c;
        
    

至此，关于C#的Dll已经操作完成，下面开始注册

注册DLL

注册有两种方法

1、C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe E:\Test\MyLib.dll /tlb: E:\Test\MyLib.tlb

反注册:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe /u E:\Test\MyLib.dll /tlb: E:\Test\MyLib.tlb

（   这个地址是安装Framework的物理地址，根据自己电脑不同进行修改）得到下面图所示即成功注册

2、run("regasm MyLib.dll /tlb: MyLib.tlb",minimized!)

前提是把regasm.exe文件复制到当前项目中

PB调用DLL

pb中利用ole调用来调用com组件

OLEObject OLEObject 
long li_status
int li_reg
int li_cel

string a = "aa"
string b = "bb"

//创建OLEObject对象
OLEObject = Create OLEObject
//创建连接
li_status= OLEObject.ConnectToNewObject("RakbLibrary.Class1")

if li_status<>0 then
    
    //连接不成功,先反注册组件，再重新注册组件
    li_cel = run("regasm /u RakbLibrary.dll /tlb:RakbLibrary.tlb",minimized!)
    if li_cel <> 1 then
        messagebox(‘提示‘,‘反注册失败！‘)
        return
    
    else
        messagebox(‘提示‘,‘反注册成功！‘)
        
        li_reg = run("regasm RakbLibrary.dll /tlb:RakbLibrary.tlb",minimized!)
        if li_reg<>1 then
            messagebox(‘提示‘,‘组件注册失败！‘)
            return
        else
            messagebox(‘提示‘,‘组件注册成功！‘)
        end if
    end if
else
    //调用类内的公共函数
 li_res = OLEObject.getForm(a,b)
end if
//释放资源
OLEObject.DisConnectObject()

如果返回值是-3 ，Object could not be created   生成exe执行文件就好了

注意：li_status 连接状态是0则说明连接DLL成功，否则可能就是DLL没有注册成功，需要重新注册一下(注册是时候最好先反注册一下)

　　　li_cel 注册状态为1则说明注册成功　

OLEObject.DisConnectObject()释放资源要放在调用DLL类库的函数之后，否则会接收不到该函数的返回值

　 所有需要的文件（C#的dll文件和tlb文件，regasm.exe）要放在工程的根目录下，且这几个文件要放在同一目录下