科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件C#中如何调用Delphi写的Dll

C#中如何调用Delphi写的Dll

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在以前用Delphi开发的项目中,会经常用到TChart这个画图控件,它本身很强大,支持各类图,如点线图,柏拉图,柱状图等等……

作者:佚名 来源:中国自学编程网 2007年12月3日

关键字: C# 调用 Delphi Dll

  • 评论
  • 分享微博
  • 分享邮件
在以前用Delphi开发的项目中,会经常用到TChart这个画图控件,它本身很强大,支持各类图,如点线图,柏拉图,柱状图等等,加上可以输出成BMP,JPEG,JPG,SVG,GIF等各种格式图片,很好用,当时也封装成比较独立的DLL文件。这次开发.NET程序正好派上用场。

  几个关键技术点:

  1 C#要以非托管方式调用DLL

  2 C#把整理好的画图数据生成事先定义好格式的XML文件,传给DLL

  3 DLL解析XML文件,根据相应格式,要求,画图

  4 DLL输出GIF文件(经过比较GIF图像失真率小,且文件大小最小)

  5 C#装载GIF文件,传到前台展示

  关键代码:

  C#

以下是引用片段:
  #region 定义调用Delphi写的画图DLL
  /// 
  /// 定义调用Delphi写的画图DLL
  /// 
  private class DrawChartFromDll
  {
  //定义DLL文件名,此文件路径要加到系统Path中
  private const string _fileDll = @"Chart.dll";
  //调用非托管Dll,GetChartFromXMLByNet是ChartAccess.dll公开的函数名称
  [DllImport(_fileDll, EntryPoint = "GetChartFromXMLByNet", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
  //C#中的申明
  public static extern int GetChartFromXMLByNet(int piChartType, string psXMLFileName, string psPriChartFileName, string psSecChartFileName, string psPriHotFileName, string psSecHotFileName);
  }
  #endregion
  public ChartResultData GetCharts(ChartData _ChartData, Hashtable _HotPriAdditionSeqNo, Hashtable _HotSecAdditionSeqNo)
  {
  //根据数据生成XML文件
  string _xmlFileName = "";
  ChartResultData _ChartResultData = new ChartResultData();
  try
  {
  _xmlFileName = this.ConvertDataToXml(_ChartData);
  }
  catch (Exception err)
  {
  _ChartResultData.ErrMessage = err.Message;
  }
  ...
  //调用DELPHI,取得返回参数
  int _return = -1;
  try
  {
  _return = DrawChartFromDll.GetChartFromXMLByNet(m_chartType, _xmlFileName, _priChartFileName, _secChartFileName, _priHotFileName, _secHotFileName);
  }
  catch (Exception err)
  {
  if (_return > 0)
  {
  //删除临时生成的XML文件
  this.DeleteTempFile(_xmlFileName);
  this.DeleteTempFile(_priChartFileName);
  this.DeleteTempFile(_secChartFileName);
  this.DeleteTempFile(_priHotFileName);
  this.DeleteTempFile(_secHotFileName);
  _ChartResultData.ErrMessage = err.Message;
  return _ChartResultData;
  }
  else
  {
  //可能因为安全性问题,在频繁连续调用DLL方法时有可能出现內存保护错误信息,虽然出错,但方法已经正确调用并能返回正确的值,此时可以忽略此错误
  _return = 0;
  }
  }
  //删除临时生成的XML文件
  this.DeleteTempFile(_xmlFileName);
  ...
  }

  Delphi

  没有什么特别的注意事项,和其它的DLL基本一样,注意string换成PChar就可以了。

以下是引用片段:
  function GetChartFromXMLByNet(piChartType: integer; psXMLFileName: PChar; psPriChartFileName: PChar; psSecChartFileName: PChar; out psPriHotMsg: PChar; out psSecHotMsg: PChar): integer; stdcall;export;

  结构图:

  结构图

 

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章