在以前用
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;
  结构图:   
