C# 调用Delphi dll 实例代码

 更新时间:2013年09月06日 15:55:05   作者:  
这篇文章介绍了C# 调用Delphi dll 实例代码,有需要的朋友可以参考一下

delphi dll 源码:

复制代码 代码如下:

library dllres;

  type
     char10 = array[0..9] of char;
     TMydata = packed record
       id: Integer;
       name: char10;
       married: Boolean;
       salary: Double;
     end;
    PMydata = ^TMydata;

  const
    RESSTR: array[0..4] of string = ('HELLO', 'COLOR', 'DELPHI', 'shared', 'library');
    NO_RESULT=   'no result';
  var
   mydata: TMydata;

{$R *.res}
  // 返回字符串指针
  function  getResStr(aindex: Integer): PChar;  stdcall;
  begin
    if aindex < Length(RESSTR) then
    begin
      Result := pchar(RESSTR[aindex]);
    end
    else
    begin
      Result := pchar(NO_RESULT);
    end;
  end;

  // 返回结构体指针
  function getMydata: PMydata; stdcall;
  begin
    with mydata do
    begin
      id := 123;
      name := 'obama';
      married := false;
      salary := 1200;
    end;
    Result := @mydata;
  end;

exports   getResStr, getMydata;

begin
end.


C# 调用示例:

复制代码 代码如下:

class Invoke_Delphi_Dll_Exam
    {
        [DllImport("dllres.dll", CallingConvention = CallingConvention.StdCall)]
        public static extern IntPtr getResStr(int index);

        [DllImport("dllres.dll", CallingConvention = CallingConvention.StdCall)]
        public static extern IntPtr getMydata();

        public struct Mydata
        {
            public int id; //0
            public string name; //4
            public bool married; //24
            public double salary; //25

            public Mydata(byte[] data)
            {
                if (data != null && data.Length == 33) {
                    id = BitConverter.ToInt32(data, 0);
                    name = Encoding.Unicode.GetString(data, 4, 20).Replace("\0",""); // 去掉尾部的0字符
                    married = BitConverter.ToBoolean(data, 24);
                    salary = BitConverter.ToDouble(data, 25);
                }
                else {
                    id = 0;
                    name = String.Empty;
                    married = false;
                    salary = 0;
                }
            }

            public override string ToString()
            {
                return String.Format("id: {0}, name: {1}, married: {2}, salary: {3}",
                    id, name, married, salary);
            }
        }

        private static void Main(string[] args)
        {
            Console.WriteLine(Marshal.PtrToStringAuto(getResStr(0)));

            byte[] data = new byte[33];
            Marshal.Copy(getMydata(), data, 0, 33);
            Mydata mydata = new Mydata(data);
            Console.WriteLine(mydata);
        }
    }

相关文章

  • C#实现多个计时器记录不同定时时间

    C#实现多个计时器记录不同定时时间

    这篇文章主要为大家详细介绍了C#实现多个计时器记录不同定时时间,文中示例代码介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
    2020-12-12
  • c# record的使用场景

    c# record的使用场景

    这篇文章主要介绍了c# record的使用场景,帮助大家更好的理解和学习使用c#的新特性,感兴趣的朋友可以了解下
    2021-02-02
  • C# BitArray(点矩阵)转换成int和string的方法实现

    C# BitArray(点矩阵)转换成int和string的方法实现

    BitArray 类管理一个紧凑型的位值数组,它使用布尔值来表示,本文主要介绍了C# BitArray(点矩阵)转换成int和string的方法实现,具有一定的参考价值,感兴趣的可以了解一下
    2022-05-05
  • C# 脚本引擎RulesEngine的使用详解

    C# 脚本引擎RulesEngine的使用详解

    这篇文章主要介绍了C# 脚本引擎RulesEngine的使用方法,帮助大家更好的理解和使用c#,感兴趣的朋友可以了解下
    2021-02-02
  • WinForm项目中添加帮助文档功能

    WinForm项目中添加帮助文档功能

    这篇文章介绍了WinForm项目中添加帮助文档功能的方法,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧
    2022-06-06
  • Unity shader实现多光源漫反射以及阴影

    Unity shader实现多光源漫反射以及阴影

    这篇文章主要为大家详细介绍了shader实现多光源漫反射以及阴影,文中示例代码介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
    2020-07-07
  • C#中的并发集合Concurrent类

    C#中的并发集合Concurrent类

    这篇文章介绍了C#中的并发集合Concurrent类,文中通过示例代码介绍的非常详细。对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
    2022-05-05
  • C#使用LINQ查询表达式的基本子句总结

    C#使用LINQ查询表达式的基本子句总结

    这篇文章主要介绍了C#使用LINQ查询表达式的基本子句总结,在C#程序中我们可以使用LINQ基本查询表达式模式来查询和转换SQL数据库、ADO.NET数据集、XML文档和流以及.NET集合中的数据,需要的朋友可以参考下
    2016-03-03
  • C#使用迭代器实现文字动态效果的示例代码

    C#使用迭代器实现文字动态效果的示例代码

    这篇文章主要为大家详细介绍了C#如何通过使用迭代器实现文字动态效果,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下
    2024-02-02
  • 通过VS中的数据源选择对话框简单实现数据库连接配置[图]

    通过VS中的数据源选择对话框简单实现数据库连接配置[图]

    通过VS中的数据源选择对话框简单实现数据库连接配置[图]...
    2007-03-03

最新评论