C#中如何调用Delphi写的Dll，实现画图功能

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
        /// <summary>
        /// 定义调用Delphi写的画图DLL
        /// </summary>
        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;

 

 

结构图：

 

几张实例图：