Delphi程序调用C#.Net编译的DLL并打开窗体(详解)


  Delphi程序调用C#.Net编译的DLL并打开窗体(详解)

Delphi程序调用C#.Net编译的DLL并打开窗体(详解)



Delphi程序调用C#.Net编译的DLL


最近用C#.Net写了一个公用模块, 本以为仅提供给.Net程序使用, 但是领导要求把这些功能提供给旧系统使用, 天啦, 几套旧系统全是Delphi写的, 我不想再重复写一次,于是尝试编译成COM组件提供给Delphi调用.花了一下午研究技术, 结果很满意, 调试通过, 特分享受出来给大家学习.



实现步骤:



1、生成密钥文件用于给程序集强名称签名(必须)
sn -k MyKey.snk


2、使用强名称签名的Key编译成类库Tester.DLL
csc /t:library /keyfile:MyKey.snk Tester.cs


3、生成类型库 (此tlb文件提供给Delphi导入, 使用OLE方式调用此步可省略了)
tlbexp Tester.dll /out:Tester.tlb



4、生成注册DLL的注册表文件
regasm Tester.DLL /regfile:Tester.reg



5、运行Tester.reg



将上面四个步骤打包成一个BAT文件自动生成DLL, 在运行Delphi程序前请先运行Tester.reg注册COM.
打包Installer,Setup.exe 别忘记打包第5步.


reg.bat 文件内容:

sn -k MyKey.snk

csc /t:library /keyfile:MyKey.snk Tester.cs

tlbexp Tester.dll /out:Tester.tlb

regasm Tester.DLL /regfile:Tester.reg



且看运行效果:


Delphi程序Project1.exe (图片中英文拼写错误,不想改了,sorry!)






点Call DLL按钮成功打开.Net窗体,测试通过!






注意: 开发环境中必须在Visual Studio 2008命令提示中运行reg.bat!!! 如下图:










两种可能的错误提示及解决方案:


1. 出现以下提示说明没有注册COM组件, 请运行Tester.reg.




2. 出现以下提示说明您调用了一个没有签名的.Net方法(无参方法)





Tester程序:



C# Code:

///
<summary>

/// 测试类. 请给所有方法提供一个参数,即使是无用的签名
/// </summary>
public class Tester
{
   
   public string GetMyKey(int param)
   {
      return "Key:www.csframework.com";
   }
   
   public string GetMyName(string input)
   {
      return "Jonny Sun" ":" input;
   }
   
   public int GetMyAge(string yourName)
   {
      return 33;
   }
   
   /// <summary>
   /// 显示消息并打开窗体
   /// </summary>
   /// <param name="msg">消息</param>
   /// <returns></returns>
   public int ShowMessage(string msg)
   {
      MessageBox.Show(msg);
      frmTest.Execute(msg);//打开窗体
      return 100;
   }
   
   /// <summary>
   /// 无签名(参数)的方法给Delphi调用,调用失败,Delphi程序会抛出异常。
   /// </summary>
   /// <returns></returns>
   public int CallMethodWithNoSign()
   {
      return -1;
   }
   
}

// 来源:www.CSFramework.com, C/S结构框架学习网





Delphi Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  OBJ: Variant; //OLEVariant Type.
  ResultValue: string; //Value returned from C#
  i:Integer;//Value returned from C#
begin
  try
    try
      OBJ := CreateOleObject('Dll4DelphiCall.Tester');

      //Test a function with signature.
      ResultValue := OBJ.GetMyName('HELLO!C/S框架网 www.csframework.com');
      ShowMessage(ResultValue);

      ResultValue := OBJ.GetMyAge('JONNY!');
      ShowMessage(ResultValue);

      ResultValue := OBJ.GetMyKey(0);
      ShowMessage(ResultValue);

      i:=OBJ.ShowMessage('Call CSharp Window....(Sender:Delphi Form)');
      ShowMessage(VarToStr(i));//Show result ID from C# function.
    except
      on e: Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
  finally
    OBJ := Unassigned;
  end;

end;



// 来源:www.CSFramework.com, C/S结构框架学习网





C/S框架网|原创精神.创造价值.打造精品


扫一扫加作者微信
C/S框架网作者微信 C/S框架网|原创作品.质量保障.竭诚为您服务



原创作品,如转载请注明本文来自C/S框架网 www.csframework.com


Delphi/C#源码下载:

版权声明:本文为开发框架文库发布内容,转载请附上原文出处连接
C/S框架网
上一篇:C/S快速开发框架 - 代码自动生成视频下载
下一篇:什么是数据字典? 什么是基础数据? 什么是数据字典窗体?
评论列表

发表评论

评论内容
昵称:
关联文章

Delphi程序调用C#.Net编译DLL打开(详解)
C#调用C++编译DLL详解
C#.Net 调用Delphi 编译ActiveX COM组件(原)
通过反射,调用DLL程序集某个类静态方法打开
C#调用Delphi编译DLL函数库返回大文本数据
打开传入参数
C# 子调用方法(或多之间方法调用)
C# 动态编译调用WebService方法
指定单据号码自动打开业务单据显示数据
自定义按钮权限控制-扩展权限按钮详解
C#打开CHM文件定位到指定页面(原创)
Delphi封装Novell LDAP底层API, 提供给C#.Net开发
C#使用Process类运行外部程序,已运行程序自动还原主
C# 调用API枚举,根据标题还原
创建TreeList及打开TreeListNode.Tag属性对应
C# WebService异步处理/异步调用详解
C#.Net多重继承构造器及Load事件执行顺序详解
打开设计报错:To prevent possible data loss before loading the designer
C#代码混淆及反编译
C#代码混淆及反编译(转)

热门标签
.NET5 .NET6 .NET7 APP Auth-软件授权注册系统 Axios B/S B/S开发框架 Bug Bug记录 C#加密解密 C#源码 C/S CHATGPT CMS系统 CodeGenerator CSFramework.DB CSFramework.EF CSFrameworkV1学习版 CSFrameworkV2标准版 CSFrameworkV3高级版 CSFrameworkV4企业版 CSFrameworkV5旗舰版 CSFrameworkV6.0 CSFrameworkV6.1 DAL数据访问层 Database datalock DbFramework Demo教学 Demo下载 DevExpress教程 DOM EF框架 Element-UI EntityFramework ERP ES6 Excel FastReport GIT HR IDatabase IIS JavaScript LINQ MES MiniFramework MIS NavBarControl Node.JS NPM OMS ORM PaaS POS Promise API Redis SAP SEO SQL SQLConnector TMS系统 Token令牌 VS2022 VSCode VUE WCF WebApi WebApi NETCore WebApi框架 WEB开发框架 Windows服务 Winform 开发框架 Winform 开发平台 WinFramework Workflow工作流 Workflow流程引擎 版本区别 报表 踩坑日记 操作手册 代码生成器 迭代开发记录 基础资料窗体 架构设计 角色权限 开发sce 开发技巧 开发教程 开发框架 开发平台 开发指南 客户案例 快速搭站系统 快速开发平台 毛衫行业ERP 秘钥 密钥 权限设计 软件报价 软件测试报告 软件简介 软件开发框架 软件开发平台 软件开发文档 软件体系架构 软件下载 软著证书 三层架构 设计模式 生成代码 实用小技巧 收钱音箱 数据锁 数据同步 微信小程序 未解决问题 文档下载 喜鹊ERP 喜鹊软件 系统对接 详细设计说明书 新功能 行政区域数据库 需求分析 疑难杂症 蝇量级框架 蝇量框架 用户管理 用户开发手册 用户控件 在线支付 纸箱ERP 智能语音收款机 自定义窗体 自定义组件 自动升级程序