博客园_jasonBlog

Delphi调用C#dll的问题

2011-08-26T03:50:00Z

转载:

近来，因工作需要，必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索，又经过种种试验，最终证明有以下两种方法可行：
    编写C#dll的方法都一样，首先在vs2005中创建一个“类库”项目TestDll，
using System.Runtime.InteropServices;
namespace TestDll
{
     public   interface I TestClass
     {
       void YourProcedure(stirng param1);
    }
   [ClassInterface(ClassInterfaceType.None)]
    public   class TestClass:I TestClass
     {
       public void YourProcedure (stirng param1);
        {    //自己的代码    }
    }
}
完成之后，设置项目的属性“Make assembly COM-Visible”为选中状态。编译之后得到 TestClass.dll,把此dll放到Delphi主程序目录下。打开vs2005自带的工具“Visual Studio 2005命令提示”，输入
Regasm 路径\TestClass.dll 向系统注册此dll。

Delphi程序调用此Dll方式有两种：
一、打开vs2005自带的工具“Visual Studio 2005命令提示”，输入 TlbExp 路径\TestClass.dll 得到一个TestClass.tlb 文件。打开Delphi，选择“Project”--“import type library”找到刚才的TestClass.tlb,点击 CreateUnit，向delphi中引入一个com接口。
delphi 调用代码如下：
var aClass: TestClass;
begin
aClass : = CoTestClass.Create;
aClass. YourProcedure ('参数');
end;
二、不需生成tlb文件，仿照调用Excel的方式。代码如下：
var aClass: Variant;
begin
aClass:= CreateOleObject('TestDll.TestClass');
aClass.YourProcedure ('参数');
end;

以上两种方法都可以调用成功，其中调用regasm.exe向系统注册dll是必需的。第一种方法需要生成tlb文件，并引入delphi中，操作繁琐，但可以看到接口的定义。第二种方法操作简单，但看不到接口的定义。
==============================================================
本人用第二种方法已正常实现功能，但DLL中一些自动创建的方法无法在外部直接调用，需要DLL准备特定的接口函数

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/genispan/archive/2009/06/24/4294487.aspx

最近公司进行产品改造，由于存在部分代码是用delphi写的Com+需要调用C#写的Dll方法，经过网上一些搜索和摸索，调用已经OK。但是至于两者之间的事务问题还需要用到的朋友深入研究。
    现在来说一下调用过程：【本地调试通过，环境是XP，delphi7.0,vs2005】
    首先在vs2005中创建一Class Library项目，添加2个cs文件，代码分别为：
声明一个接口
1using System;
2using System.Collections.Generic;
3using System.Text;
4namespace beep_Class
5{
6    public interface IGO
7    {
8        string GO();
9    }
10}实现该接口
1using System.Runtime.InteropServices;
2namespace beep_Class
3{
4    [ClassInterface(ClassInterfaceType.None)]
5    public class Class1:IGO
6    {
7
8        public string GO()
9        {
10            return "aaaaabbbb";
11        }
12    }
13}然后在生成类库之前设置一下该项目的属性，如下图所示：

注意红线标示的部分。
然后对此编译成功的DLL【beep_Class.dll】进行处理，打开vs2005自带的命令行工具。输入 tlbexp beep_Class.dll
生成 beep_Class.tlb文件。
元宝注解：
这一步有个更好的方法，即在VS2005中DLL的“项目属性”下“生成事件”添加“生成后事件命令行”：
"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\tlbexp" "$(TargetPath)"
下一步是打开delphi7，新建一个Application，在Form上增加一Button。然后选择Project下的，import type library，把刚才生成的Tlb文件【beep_Class.tlb】添加进来，然后点击 CreateUnit就ok了
delphi中的Button事件代码如下：
1procedure TForm1.Button1Click(Sender: TObject);
2var
3  co:Class1;
4  a:string;
5begin
6  co:= CoClass1.Create;
7  a:=co.GO();
8  showmessage(a);
9end;
10end.编译通过，运行结果如下图：

注意：运行的时候要把Beep_Class.dll放在程序目录中。

本文链接

Windows驱动开发,几个BLOG值得经常看看

2008-07-21T10:07:00Z

对于从事Windows驱动开发的朋友，或者是对Windows内核感兴趣的朋友，以下几个BLOG值得经常看看！1，Kernel Mustard by Steve Dispensa link: http://kernelmustard.com/category/ddk/他以前的BLOG地址为：http://msmvps.com/blogs/kernelmustard/default.aspx2，Lar...

IIS的ISAPI接口简介

2008-07-18T01:34:00Z

ISAPI（Internet Server Application Programming Interface）作为一种可用来替代CGI的方法，是由微软和Process软件公司联合提出的Web服务器上的API标准。ISAPI与Web服务器结合紧密，功能强大，能够获得大量的信息，因此利用ISAPI可以开发出灵活高效的Web服务器增强程序。由于ISAPI程序与Web服务器的关系，使得ISAPI接口在安...

文件过滤系统驱动开发Filemon学习笔记

2008-06-28T12:58:00Z

WINDOWS文件过滤系统驱动开发，可用于硬盘还原，防病毒，文件安全防护，文件加密等诸多领域。而掌握核心层的理论及实践，对于成为一名优秀的开发人员不可或缺。WINDOWS文件过滤系统驱动开发的两个经典例子，Filemon与SFilter，初学者在经过一定的理论积累后，对此两个例子代码的研究分析，会是步入驱动开发殿堂的重要一步，相信一定的理论积累以及贯穿剖析理解此两个例程后，就有能力开始进行文件过滤...

Windows平台内核级文件访问

2008-06-28T12:56:00Z

Windows平台内核级文件访问作者：baiyuanfan (baiyuanfan@163.com)日期：2.1,20061.背景在windows平台下，应用程序通常使用API函数来进行文件访问，创建，打开，读写文件。从kernel32的CreateFile/ReadFile/WriteFile函数，到本地系统服务，再到FileSystem及其FilterDriver，经历了很多层次。在每个层次上...

Windows文件系统过滤驱动开发教程(11)

2008-06-28T12:53:00Z

11.文件和目录的生成打开，关闭与删除我们已经分析了读，写与读类似。文件系统还有其他的操作。比如文件或目录的打开（打开已经存在的或者创建新的）,关闭。文件或目录的移动，删除。实际上FILE_OBJECT并不仅仅指文件对象。在windows文件系统中，目录和文件都是用FileObject来抽象的。这里产生一个问题，对于一个已经有的FileObject,我如何判断这是一个目录还是一个文件呢? 对于...

Windows文件系统过滤驱动开发教程(10)

2008-06-28T12:53:00Z

Windows文件系统过滤驱动开发教程注: 有任何问题与建议请加QQ16191935,邮箱MFC_Tan_Wen@163.com 工作忙，好久没有来过了，请大家谅解。 10 自己发送Irp完成读请求关于这个有一篇文档解释得很详细，不过我认为示例的代码有点太简略了，这篇文档在IFS所附带的OSR文档中，请自己寻找。为何要自己发送Irp?在一个文件过滤驱动中，如果你打算读写文件，可以试用ZwRe...

Windows文件系统过滤驱动开发教程(9)

2008-06-28T12:52:00Z

Windows文件系统过滤驱动开发教程注: 有任何问题与建议请加QQ16191935,邮箱MFC_Tan_Wen@163.com 9 完成读操作除非是一个完整的文件系统，完成读操作似乎是不必要的。过滤驱动一般只需要把请求交给下层的实际文件系统来完成。但是有时候比如加解密操作，我希望从下层读到数据，解密后，我自己来完成这一IRP请求。这里要谈到IRP的minor function code.以...

Windows文件系统过滤驱动开发教程(8)

2008-06-28T12:52:00Z

Windows文件系统过滤驱动开发教程注: 有任何问题与建议请加QQ16191935,邮箱MFC_Tan_Wen@163.com 8 终于绑定了Volume,读操作的捕获与分析上文已经讲到绑定Volume之前的关键操作.我们一路逢山开路,逢水架桥,相信你从中也学到了驱动开发的基本方法.以后的工作,无非灵活运用这些方法而已.前边已经举出过绑定FS CDO的操作.那么现在绑定Volume,无非照...

Windows文件系统过滤驱动开发教程(7)

2008-06-28T12:50:00Z

Windows文件系统过滤驱动开发教程 7.IRP完成函数,中断级,如何超越中断级别的限制先讨论一下Volumne设备是如何得到的.首先看以下几个函数: // ------------------wdf.h 中的内容 ------------------------- typedef VPB wd_vpb; _inline wd_vpb * wd_dev_vbp(wd_dev *dev) { r...