C#写的dll跨语言调用

C#写的dll为非标准的windows下dll，故一般其他语言不能直接调用，当然基于.net平台下的编程语言是可以调用，要让其他语言调用C#写的dll一般通过webservice服务或者是Com方式。经过在网上找资料以及自身的实践发现可以通过以下方式在Delphi和VB语言中调用。

1.编写C#写dll，用VS新建一个类库项目TestDll，源码如下：

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

namespace TestDll
{
    /*
    1。所要导出的类必须为公有；
    2。所有属性、方法也必须为公有；
    3。要导出的属性、方法必须用接口方式；如果没有在接口中声明，即使该方法（属性）为公有，也不能正常导出到COM。但他们可以被别的.NET程序所使用；
    4。所有的事件也必须用接口方式；
    */
    public interface ITestClass
    {
        int Get(int a);
        string GetString();
    }
    [ClassInterface(ClassInterfaceType.None)]
    public class TestClass:ITestClass
    {
        public int Get(int a)
        {
            return ++a;
        }

        public string GetString()
        {
            return "test";
        }
    }
}
设置项目属性，选中项目-属性-应用程序-程序集信息，勾选"使程序集Com可见";属性-生成，勾选为com互操作注册。设置后重新生成项目，即会向系统注册此dll，Debug目录下会生成TestDll.dll和TestDll.tlb两个文件。

 

2.用Delphi新建一个应用程序，保存应用程序，然后选择"Project"-"Import type library",在弹出的对话框中选择上步生成的TestDll.tlb，并进行类名和输出目录等设置，点击“Create unit”，即会创建一个Delphi的tlb文件，在应用程序窗体界面放置2个按钮。一个按钮采用引入tlb文件方式调用，引入生成的tlb文件，一个按钮采用ole方式调用。

源码如下。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses TestDll_TLB;

procedure TForm1.btn1Click(Sender: TObject);
var
  aClass:TTestClass;
begin
  aClass:=TTestClass.Create(nil);
  ShowMessage(IntToStr(aClass.Get(5)));
  ShowMessage(aClass.GetString);
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  t:Variant;
begin
  t:=CreateOleObject('TestDll.TestClass');
  ShowMessage(IntToStr(t.Get(5)));
  ShowMessage(t.GetString);
end;

end.

编译运行，即可看到效果。采用tlb方式调用可以看到dll提供的方法，但操作步骤繁琐，而采用ole方式不能看到接口的定义但调用简单。

          

 

3.在VB中调用该dll，用VB新建一个Exe程序，然后点击“工具”-“引用”，定位到TestDll.tlb文件，在窗体上放置一按钮，按钮事件源码如下：

Private Sub CommandButton1_Click()
Dim o
Set o = CreateObject("TestDll.TestClass")
MsgBox o.Get(5)
MsgBox o.GetString
End Sub

编译运行即可看到效果。