VS2017写的exe调用Delphi 7写的DLL

公司有个很古老的系统，代码量很大，并且稳定线上运行10几年，这系统是公司的核心，公司收入基本靠它，系统几乎都是Delphi 7写的，要重写是不可能的。因为Delphi 7编译出来的DLL默认的导出符号就是二进制稳定的C符号。

所以，理论上任何语言都可以调用该DLL导出的API。

值得注意的是，在调用导出API的时候任何语言都是利用LoadLlibrary，GetProcAddress的原理来进行调用的。如果用C++来调用，最好这个干。

调用该API的输入输出参数最好要是平坦内存结构，比如C语言类型的结构体，注意结构体字段与Delphi的导出的结构体的字段长度对应一致。

如果是C#，最后用Marshal相关的函数对参数对象进行转换成平台内存结构来做输入输出，这样才能保证不出错。

如果用C# ，以下是代码参考：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;

namespace CSharpCallDelphiDLL
{
    class Program
    {

        [StructLayout(LayoutKind.Sequential)]
        public struct PReadPatientInfoIn
        {
            [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4001)]
            public byte[] Xmlin;
        }

        [StructLayout(LayoutKind.Sequential)]
        public struct PReadPatientInfoOut
        {
            [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4001)]
            public byte[] Xmlout;
        }

        [StructLayout(LayoutKind.Sequential)]
        public struct PErrorInfo
        {
            [MarshalAs(UnmanagedType.ByValArray, SizeConst = 201)]
            public byte[] ErrorXml;
        }

        [DllImport(@"C:/Users/MathxH/Desktop/CSharpCallDelphiDLL/CSharpCallDelphiDLL/bin/x86/Debug/Hisint.dll", 
            EntryPoint = "ReadPatientInfo", CharSet = CharSet.Ansi,
            CallingConvention = CallingConvention.StdCall)]
        extern static void ReadPatientInfo(ref PReadPatientInfoIn pIn, ref PReadPatientInfoOut pOut, ref PErrorInfo pErr);

        static void Main(string[] args)
        {
            Console.WriteLine("Enry");

             PErrorInfo err;
            PReadPatientInfoIn sss;
            PReadPatientInfoOut ooo;

           
            String kk = "<ROOT><HOSPITALCODE>0003</HOSPITALCODE><PERSONNO></PERSONNO><ARRANGER>陈哈哈</ARRANGER><SECTIONNAME>骨科</SECTIONNAME><ZFLB>11</ZFLB><MZZDMC>癌症</MZZDMC><IDENTIFYNO>532625194704222925</IDENTIFYNO><MSGNO>71</MSGNO></ROOT>";
            
            String emm = "";

            Encoding gb2312;

            System.Text.ASCIIEncoding encoding = new System.Text.ASCIIEncoding();
            gb2312 = Encoding.GetEncoding("GB2312");
            Byte[] bytes = gb2312.GetBytes(kk.PadRight(4001));
            sss.Xmlin = bytes;
           // sss.Xmlin = PadRightEx(kk,4002).ToCharArray();

            ooo.Xmlout = encoding.GetBytes(emm.PadRight(4001));
            err.ErrorXml = encoding.GetBytes(emm.PadRight(201));


           
            ReadPatientInfo(ref sss, ref ooo, ref err);

            // String outss = new String(ooo.Xmlout);
            String outss = gb2312.GetString(ooo.Xmlout);


            Console.ReadLine();

        }
    }
}

以上代码期间出了一些错误：

 1. 抛出BadImageFormatException的异常，也就是exe的代码要与所调用的DLL的机器位数一致，x86只能调用x86的，x64只能是x64.

 2. 未能封送类型，因为嵌入数组实例的长度与布局中声明的长度不匹配。 这个需要C#这边的array长度与声明的长度一致，需要Padding补齐

3.    System.Runtime.InteropServices.COMException”类型的未经处理的异常在 CSharpCallDelphiDLL.exe 中发生
传递给系统调用的数据区域太小。 (异常来自 HRESULT:0x8007007A)。这个是PadRight的时候出现中文编码导致填充的长度出现问题。把中文改成英文就不会出错了。
4. 针对问题3，因为参数肯定会有中文，所以，需要把编码转换成GB2312 locale

references:

https://www.cnblogs.com/wintalen/archive/2010/12/20/1911599.html

https://blog.csdn.net/cnhk1225/article/details/53265042

http://blog.51cto.com/andwp/1352739

https://www.cnblogs.com/Robert-huge/p/5130284.html

http://www.myexception.cn/h/1381235.html