C#调用Delphi的dll之详解-完整版_附有可下载Demo

     C#调用Delphi接口方法，有两种解决办法:

    

　　一、将Delphi程序编译成一个COM组件，然后在C＃里引用COM组件。

　　二、非托管调用Dephi的DLL文件。

 

      这里我们主要讲解一下第二种方法，讲第二种方法之前首先讲解下DllImport。

     DllImport是System.Runtime.InteropServices命名空间下的一个属性类，其功能是提供从非托管DLL导出的函数的必要调用信息。

     DllImport属性应用于方法，要求最少要提供包含入口点的dll的名称。
     DllImport的定义如下：

 

代码

 1       [AttributeUsage(AttributeTargets.Method)]
 2     　  public   class  DllImportAttribute: System.Attribute
 3     　 {
 4     　 　 public  DllImportAttribute( string  dllName) {…}  // 定位参数为dllName
 5     　 　 public  CallingConvention CallingConvention;  // 入口点调用约定
 6     　 　 public  CharSet CharSet;                                    // 入口点采用的字符接
 7     　　  public   string  EntryPoint;                                   // 入口点名称
 8     　 　 public   bool  ExactSpelling;                                // 是否必须与指示的入口点拼写完全一致，默认false
 9     　 　 public   bool  PreserveSig;                                   // 方法的签名是被保留还是被转换
10     　 　 public   bool  SetLastError;                                   // FindLastError方法的返回值保存在这里
11     　 　 public   string  Value {  get  {…} }
12     　 } 
13 

 

　　上面DLL的名字有时需要写上路径的如[DllImport(@"C:\OJ\Bin\Judge.dll")]这样指定DLL的绝对路径就可以正常装载。

      假如没有路径的话，DllImport会按照顺序自动去寻找的地方：
     1、exe所在目录
     2、System32目录
     3、环境变量目录
     所以只需要你把引用的DLL 拷贝到这三个目录下， 就可以不用写路径了。

     说明：    
    1、DllImport只能放置在方法声明上。   
    2、DllImport具有单个定位参数：指定包含被导入方法的 dll 名称的 dllName 参数。   
    3、DllImport具有五个命名参数：    
        a、CallingConvention 参数指示入口点的调用约定。如果未指定 CallingConvention，则使用默认值 CallingConvention.Winapi。    
        b、CharSet 参数指示用在入口点中的字符集。如果未指定 CharSet，则使用默认值 CharSet.Auto。   
        c、EntryPoint 参数给出 dll 中入口点的名称。如果未指定 EntryPoint，则使用方法本身的名称。    
        d、ExactSpelling 参数指示 EntryPoint 是否必须与指示的入口点的拼写完全匹配。如果未指定 ExactSpelling，则使用默认值 false。    
　     e、PreserveSig 参数指示方法的签名应当被保留还是被转换。当签名被转换时，它被转换为一个具有 HRESULT返回值和该返回值的一个名为 retval 的附加输出参数的签名。如果未指定 PreserveSig，则使用默认值 true。    
  　   f、SetLastError 参数指示方法是否保留 Win32"上一错误"。如果未指定 SetLastError，则使用默认值 false。    
  　4、它是一次性属性类。    
  　5、此外，用 DllImport 属性修饰的方法必须具有 extern 修饰符。

 

      下面讲解下如何调用：

      用DllImport来调用的  一般是用非托管的。
　　具体形式如下：1.[DllImport("WZFSE.dll", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]。

　　其中第一个参数是指要引用DLL的名字， 这个名字应该是个常量（否则会出错）。

     要想在自己C#页面中引用，那就得在页面中申明这个函数。

　　下面紧接着他的申明函数：
　　2.public static extern void InitDll(IntPtr handle, bool methodAddress);(Dephi里怎么定义的函数在C#这里就要怎么定义：即Dephi的申明函数转换成C#的声明函数)。
　　--申明一个函数就要引用下他的DLL 如1和2是紧密连在一起的。即再写一个函数就相应的应用起对应的DLL。

 

　　下面是参数的引用：即Delphi的类型向C#的转换。

     第一个参数类型：IntPtr这个类型可以申明为其他语言的句柄，指针等。
     若要实现其他语言类似C++的函数指针形式， 这时我们考虑用C#的委托来实现。

　　

　　下面说一下：如何将Dephi的窗体显示在自己的页面中（且不能显示Delphi窗体的标题栏，实现无缝的结合）。

　　将dephi的窗体签入到自己的C#系统里 还有一点比较重要，我们是调用Delphi的窗体，此时显示在我们C#窗体中会有Delphi的窗体，  

这时我们怎么办呢，  怎么去除Delphi中的窗体呢？  这时我们就需要用API函数了。 因为WINDOWS API是一种比较底层的语言，可以通过它进行操作。

 在C#中是这么引用的： [DllImport("user32.dll", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
       　　　　　　　　  public static extern void MoveWindow(IntPtr handler, int x, int y, int width, int height, bool repaint);

　　下面插入一个类，这里面包含了怎么引用dephi的dll 以及怎么申明：

代码

 1    public   class  CompliancePlatDLL
 2      {
 3           public   static   string  strPath  =   "" ;
 4           ///   <summary>
 5           ///  初始化
 6           ///   </summary>
 7           ///   <param name="handle"></param>
 8           ///   <param name="methodAddress"></param>
 9          [DllImport( " WZFSE.dll " , CharSet  =  CharSet.Ansi, CallingConvention  =  CallingConvention.StdCall)]
10           public   static   extern   void  InitDll(IntPtr handle,  bool  methodAddress);
11           ///   <summary>
12           ///  加载相应的服务
13           ///   </summary>
14           ///   <param name="str"></param>
15           ///   <param name="str2"></param>
16           ///   <param name="i"></param>
17           ///   <returns></returns>
18          [DllImport( " WZFSE.dll " , CharSet  =  CharSet.Ansi, CallingConvention  =  CallingConvention.StdCall)]
19           public   static   extern  IntPtr wzLoadModule( string  str,  string  str2,  int  i);
20           ///   <summary>
21           ///  去除相应的服务
22           ///   </summary>
23           ///   <param name="handle"></param>
24           ///   <returns></returns>
25          [DllImport( " WZFSE.dll " , CharSet  =  CharSet.Ansi, CallingConvention  =  CallingConvention.StdCall)]
26           public   static   extern   bool  wzUnloadModule(IntPtr handle);
27 
28           #region  API函数
29           ///   <summary>
30           ///  API函数 设置主辅窗体
31           ///   </summary>
32           ///   <param name="child"></param>
33           ///   <param name="parent"></param>
34          [DllImport( " user32.dll " , CharSet  =  CharSet.Ansi, CallingConvention  =  CallingConvention.StdCall)]
35           public   static   extern   void  SetParent(IntPtr child, IntPtr parent);
36           ///   <summary>
37           ///  API函数 移动窗体
38           ///   </summary>
39           ///   <param name="handler"></param>
40           ///   <param name="x"></param>
41           ///   <param name="y"></param>
42           ///   <param name="width"></param>
43           ///   <param name="height"></param>
44           ///   <param name="repaint"></param>
45          [DllImport( " user32.dll " , CharSet  =  CharSet.Ansi, CallingConvention  =  CallingConvention.StdCall)]
46           public   static   extern   void  MoveWindow(IntPtr handler,  int  x,  int  y,  int  width,  int  height,  bool  repaint);
47 
48          [DllImport( " user32.dll " , EntryPoint  =   " GetWindowLong " )]
49           public   static   extern   long  GetWindowLong(IntPtr hwnd,  int  nIndex);
50           ///   <summary>
51           ///  API函数 去除窗体的标题栏
52           ///   </summary>
53           ///   <param name="hwnd"></param>
54           ///   <param name="nIndex"></param>
55           ///   <param name="dwNewLong"></param>
56           ///   <returns></returns>
57          [DllImport( " user32.dll " , EntryPoint  =   " SetWindowLong " )]
58           public   static   extern   long  SetWindowLong(IntPtr hwnd,  int  nIndex,  long  dwNewLong);
59           public   const   int  GWL_EXSTYLE  =   - 16 ;
60           public   const   int  WS_EX_TRANSPARENT  =   0x20 ;
61           public   const   int  WS_EX_LAYERED  =   0x80000 ;
62           public   const   int  LWA_ALPHA  =   2 ;
63           public   const   int  WS_CAPTION  =   0xC00000 ;
64           #endregion
65      }

 

       其中API中的SetWindowLong这个方法是可以实现去除窗体的标题栏的，  具体调用SetWindowLong(common.p, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) & (~WS_CAPTION));

　　但一般完整利用API函数的调用是这样的

代码

 1 　　　　　　　　  decallback de1  =   new  decallback(iscallback); // 利用委托
 2                 InitDll( this .Handle, de1( this .Handle)); // 初始化
 3                 IntPtr p  =  wzLoadModule( " DoRiskSetup " ,  "" ,  0 ); // 取得句柄
 4                  if  (p  !=  (IntPtr) 0 ) // 判断该句柄不是弹出窗体时
 5                 {
 6                      // 去除dephi窗体的标题栏
 7                     SetParent(p, panel1.Handle);
 8                     SetWindowLong(p, GWL_EXSTYLE, GetWindowLong(p, GWL_EXSTYLE)  &  ( ~ WS_CAPTION));
 9                     MoveWindow(p,  0 ,  0 , panel1.ClientSize.Width, panel1.ClientSize.Height,  false );
10                 }

　　 SetWindowLong（IntPtr handle, int t,long l） 第一个参数为句柄，是你调的dephi窗体的句柄，第二个参数为整型，在dephi用常量GWL_EXSTYLE表示，表示要显示的样式，在C#中翻译过来的他值为（-16），而第三个函则为长整型和第二个参数一起表示要去除第一个参数句柄窗体的标题栏在Delphi中表示为：GetWindowLong（handle,GWL_EXSTYLE) and (not WS_CAPTION) 在C#中则翻译为:GetWindowLong(handle,-16)&(~0xC00000),handle是指要调用的Delphi窗体的句柄，GetWindowLong这个函数是获得该窗体的相关信息。大体上是这个用法，如有不懂大家可以提出来 共同探讨。

     一般类型对应如下：

　　Dephi-->C#

　　intger -->int

　　longint -->long

　　pchar -->string

　　THandle -->IntPtr  

 

上图为C#窗体调用的Delphi的情况。

注：上面的dll的名称只是个例子 具体还要看你要引用哪个dll  API中的函数在C#中是这样引用的

表达能力有限 希望对你们有帮助··具体不懂可邮箱联系:点击此处

调Delphi的DLL.rar 一个简单的调用Demo，  希望对大家有用。由于自己使用的地方文件太大就用了同事的一个简单的调用Delphi的Demo。http://www.elivn.com/ <a href="http://www.elivn.com/%22%3Eelivn%3C/a>

如有转载 请注明出处！