[混编] Fortran与C#进程间通信 windows消息机制

FUNCTION SendMessage( &
        hWnd, &
        Msg, &
        wParam, &
        lParam)
use ifwinty
  integer(LRESULT) :: SendMessage ! LRESULT
    !DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'SendMessageA' :: SendMessage
  integer(HANDLE) hWnd ! HWND hWnd
  integer(UINT) Msg ! UINT Msg
  integer(UINT_PTR) wParam ! WPARAM wParam
  integer(LONG_PTR) lParam ! LPARAM lParam
 END FUNCTION

TYPE T_COPYDATASTRUCT
     SEQUENCE
       integer(pointer_len) dwData ! typedefs  ULONG_PTR 
       integer(DWORD) cbData ! knowns  DWORD 
       integer(PVOID) lpData ! knowns  PVOID 
     END TYPE

    
program SendMsg_Fortran
    use ifwin
    implicit none
    integer(LRESULT)::ret
    integer(HANDLE)::hWnd
    !integer,pointer::a(:)
    real,dimension(5,3),parameter :: b = &
       & (/0.2,0.4,0.1,0.1,0.1, &
    &   0.1,0.1,0.1,0.8,0.1, &
    &   0.1,0.1,0.1,0.1,0.1 /)

    type(T_COPYDATASTRUCT)::COPYDATASTRUCT
    COPYDATASTRUCT%dwData = size(b)
    COPYDATASTRUCT%cbData = sizeof(b)
    COPYDATASTRUCT%lpData = loc(b)

   hWnd = FindWindow_G2(NULL,'Form1')!找句柄

   ret=SendMessage (hWnd, 74, 0, loc(COPYDATASTRUCT)) !WM_COPYDATA 74
end program

public struct COPYDATASTRUCT
    {
        public IntPtr dwData;
        public int cbData;
        public IntPtr lpData;
    }

const int WM_COPYDATA = 0x004A;
        float[] ff;
        protected override void DefWndProc(ref Message m)
        {
            unsafe
            {
                
                switch (m.Msg)
                {
                    case WM_COPYDATA:
                        COPYDATASTRUCT myData = new COPYDATASTRUCT();//这是创建自定义信息的结构
                        Type mytype = myData.GetType();
                        myData = (COPYDATASTRUCT)m.GetLParam(mytype);//这里获取的就是作为LParam参数发送来的信息的结构
                        ff = new float[(int)myData.dwData];
                        Marshal.Copy(myData.lpData, ff, 0, (int)myData.dwData);
                        for (int i = 0; i < ff.Length; i++)
                        {
                            textBox1.Text += ff[i].ToString() + "\r\n";
                        }                    
                        break;
                    default:
                        base.DefWndProc(ref m);
                        break;
                }
            }
        }