C#中如何调用Delphi写的Dll

ZDNet软件频道 时间:2008-07-18 作者: |  我要评论()
本文关键词:DLL delphi 界面与窗体 C# Windows
在以前用Delphi开发的项目中,会经常用到TChart这个画图控件,它本身很强大,支持各类图,如点线图、柏拉图、柱状图等等,加上可以输出成BMP,JPEG,JPG,SVG,GIF等各种格式图片,很好用,当时也封装成比较独立的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;

结构图:

C#调用delphi写的DLL结构图

DLL

delphi

界面与窗体

C#

Windows


百度大联盟认证黄金会员Copyright© 1997- CNET Networks 版权所有。 ZDNet 是CNET Networks公司注册服务商标。
中华人民共和国电信与信息服务业务经营许可证编号:京ICP证010391号 京ICP备09041801号-159
京公网安备:1101082134