library dllres;

  type

     char10 = array[..] of char;

     TMydata = packed record

       id: Integer;

       name: char10;

       married: Boolean;

       salary: Double;

     end;

    PMydata = ^TMydata;

  const

    RESSTR: array[..] of string = ('HELLO', 'COLOR', 'DELPHI', 'shared', 'library');

    NO_RESULT=   'no result';

  var

   mydata: TMydata;

{$R *.res}

  // 返回字符串指针

  function  getResStr(aindex: Integer): PChar;  stdcall;

  begin

    if aindex < Length(RESSTR) then

    begin

      Result := pchar(RESSTR[aindex]);

    end

    else

    begin

      Result := pchar(NO_RESULT);

    end;

  end;

  // 返回结构体指针

  function getMydata: PMydata; stdcall;

  begin

    with mydata do

    begin

      id := ;

      name := 'obama';

      married := false;

      salary := ;

    end;

    Result := @mydata;

  end;

exports   getResStr, getMydata;

begin

end.

    class Invoke_Delphi_Dll_Exam

    {

        [DllImport("dllres.dll", CallingConvention = CallingConvention.StdCall)]

        public static extern IntPtr getResStr(int index);

        [DllImport("dllres.dll", CallingConvention = CallingConvention.StdCall)]

        public static extern IntPtr getMydata();

        public struct Mydata

        {

            public int id; //

            public string name; //

            public bool married; //

            public double salary; //

            public Mydata(byte[] data)

            {

                if (data != null && data.Length == ) {

                    id = BitConverter.ToInt32(data, );

                    name = Encoding.Unicode.GetString(data, , ).Replace("\0",""); // 去掉尾部的0字符

                    married = BitConverter.ToBoolean(data, );

                    salary = BitConverter.ToDouble(data, );

                }

                else {

                    id = ;

                    name = String.Empty;

                    married = false;

                    salary = ;

                }

            }

            public override string ToString()

            {

                return String.Format("id: {0}, name: {1}, married: {2}, salary: {3}",

                    id, name, married, salary);

            }

        }

        private static void Main(string[] args)

        {

            Console.WriteLine(Marshal.PtrToStringAuto(getResStr()));

            byte[] data = new byte[];

            Marshal.Copy(getMydata(), data, , );
            Mydata mydata = new Mydata(data);

            Console.WriteLine(mydata);

        }

    }