首页 | IT新闻 | 硬件 | 操作系统 | 开发 | 网络编程 | 数据库 | 热门框架 | 网络安全 | 组网 | 建站指南 | 网页制作 | 特效 | 实用技巧 | 服务器 | 办公 | QQ | 探索 | 社区

  • 技术部落
  • 部落首页 > 程序开发 > C/C#/C++ > 正文
  • C#中如何调用Delphi写的Dll
      2007-11-23  来源:中国自学编程网  编辑:Jsbulo  热度:

    在以前用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;

    结构图: