Question

C#中如何调用Delphi写的Dll

Answer 1

在以前用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);}#endregionpublic 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; 结构图： 天极开发频道 最专业的程序开发网站

Answer 2

C#中调用Delphi写的Dll时应当在Delphi程序中使用PAnsiChar类型字符串，并且使用stdcall参数。这样C#才可以正常调用。

示例代码

DELPHI中

function EncryVncPassStrHex(Str: PAnsiChar): PAnsiChar;  stdcall;
var
  StrResult, TempResult, Temp: String;
  I: Integer;
begin
  TempResult := EncryVncPassStr(Str);
  StrResult := '';
  for I := 0 to Length(TempResult) - 1 do
  begin
    Temp := Format('%x', [Ord(TempResult[I + 1])]);
    if Length(Temp) = 1 then Temp := '0' + Temp;
    StrResult := StrResult + Temp;
  end;
  Result := PChar(StrResult);
end;

C#中：

[DllImport("des.dll", EntryPoint="EncryVncPassStrHex",CharSet=CharSet.Ansi,  CallingConvention = CallingConvention.StdCall)]
public static extern string EncryVncPassStrHex( string Str);