1 using System;
 2 using System.Collections.Generic;
 3 using System.Linq;
 4 using System.Text;
 5 using System.Runtime.InteropServices;
 6 
 7 namespace CSharpCallDelphiDLL
 8 {
 9     class Program
10     {
11 
12         [StructLayout(LayoutKind.Sequential)]
13         public struct PReadPatientInfoIn
14         {
15             [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4001)]
16             public byte[] Xmlin;
17         }
18 
19         [StructLayout(LayoutKind.Sequential)]
20         public struct PReadPatientInfoOut
21         {
22             [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4001)]
23             public byte[] Xmlout;
24         }
25 
26         [StructLayout(LayoutKind.Sequential)]
27         public struct PErrorInfo
28         {
29             [MarshalAs(UnmanagedType.ByValArray, SizeConst = 201)]
30             public byte[] ErrorXml;
31         }
32 
33         [DllImport(@"C:/Users/MathxH/Desktop/CSharpCallDelphiDLL/CSharpCallDelphiDLL/bin/x86/Debug/Hisint.dll", 
34             EntryPoint = "ReadPatientInfo", CharSet = CharSet.Ansi,
35             CallingConvention = CallingConvention.StdCall)]
36         extern static void ReadPatientInfo(ref PReadPatientInfoIn pIn, ref PReadPatientInfoOut pOut, ref PErrorInfo pErr);
37 
38         static void Main(string[] args)
39         {
40             Console.WriteLine("Enry");
41 
42              PErrorInfo err;
43             PReadPatientInfoIn sss;
44             PReadPatientInfoOut ooo;
45 
46            
47             String kk = "<ROOT><HOSPITALCODE>0003</HOSPITALCODE><PERSONNO></PERSONNO><ARRANGER>陈哈哈</ARRANGER><SECTIONNAME>骨科</SECTIONNAME><ZFLB>11</ZFLB><MZZDMC>癌症</MZZDMC><IDENTIFYNO>532625194704222925</IDENTIFYNO><MSGNO>71</MSGNO></ROOT>";
48             
49             String emm = "";
50 
51             Encoding gb2312;
52 
53             System.Text.ASCIIEncoding encoding = new System.Text.ASCIIEncoding();
54             gb2312 = Encoding.GetEncoding("GB2312");
55             Byte[] bytes = gb2312.GetBytes(kk.PadRight(4001));
56             sss.Xmlin = bytes;
57            // sss.Xmlin = PadRightEx(kk,4002).ToCharArray();
58 
59             ooo.Xmlout = encoding.GetBytes(emm.PadRight(4001));
60             err.ErrorXml = encoding.GetBytes(emm.PadRight(201));
61 
62 
63            
64             ReadPatientInfo(ref sss, ref ooo, ref err);
65 
66             // String outss = new String(ooo.Xmlout);
67             String outss = gb2312.GetString(ooo.Xmlout);
68 
69 
70             Console.ReadLine();
71 
72         }
73     }
74 }