C#中如何调用Delphi写的Dll

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

///

/// 定义调用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; 结构图：

用 调用Delphi 写的COM+

１．先建立一个PROJECT 名字为COMASP.DPR，

建立NEW/ACTIVEX /ACTIVEX LIBRARY

再建立一个COM+对象NEW/ACTIVEX/AUTOMATION OBJECT

输入ＣＬＡＳＳ类名ＴＥＳＴ

在菜单ＶＩＥＷ下选择ＴＹＥＰＬＩＢＲＡＲＹ编辑类ＴＥＳＴ的方法，

这时可看到有一个ＣＯＭ接口ＩＴＥＳＴ，在ＩＴＥＳＴ下建立一个方法（右键）名：ＬＯＧＩＮ，输入参数