出口退税cif价开票: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;

　　结构图：
　　  用asp.net 调用Delphi 写的 COM+
１．先建立一个PROJECT 名字为COMASP.DPR，
建立NEW/ACTIVEX /ACTIVEX LIBRARY
再建立一个COM+对象NEW/ACTIVEX/AUTOMATION OBJECT
输入ＣＬＡＳＳ类名ＴＥＳＴ
在菜单ＶＩＥＷ下选择ＴＹＥＰ　ＬＩＢＲＡＲＹ编辑类ＴＥＳＴ的方法，
这时可看到有一个ＣＯＭ接口ＩＴＥＳＴ，在ＩＴＥＳＴ下
建立一个方法（右键）名：ＬＯＧＩＮ，输入参数
ＵＳＥＲＮＡＭＥ：ＢＳＴＲ
ＰＡＳＳＷＯＲＤ：ＢＳＴＲ
ＲＥＴＵＲＮ：　ＢＳＴＲ*
点刷新按钮，则在ＵＮＩＴ１.ＰＡＳ中显示
function Ttest.login(const userid, password: WideString): WideString;
begin
  result:=userid+password;　／／加入此行代码
end;
２．在Ｃ：\inetpub\wwwroot 下建立虚拟目录DFW
Ｃ：\inetpub\wwwroot\DFW 在此目录下建立BIN目录
将项目所有文件存到此目录下编译，这时编译的DLL为COMASP.DLL
建立一个COMMAND.BAT文件。写入：
d:\"program files"\microsoft.net\sdk\v1.1\bin\tlbimp comasp.dll /out:comasp_dotnetproxy.dll

运行后，可看到BIN目录下有个COMASP_DOTNETPROXY.DLL
用.NETSDK目录下ildasm.exe 可看到类的情况。
在DFW目录下写一个TEST.ASPX文件：代码如下：
<% @Page Language="C#" %>
<% @Import Namespace="comasp_dotnetproxy" %>
<%
//代码
testClass el = new testClass();

String strVersion = el.login("DOTNET ","欢迎你");
Response.Write(strVersion);

%>
运行HTTP://localhost/dfw/test.aspx