[整理]c#简单调用DELPHI DLL封装窗体

DELPHI DLL部分代码

Form代码

 1var
 2  Form1: TForm1;
 3  procedure SynAPP(App:THandle);stdcall;
 4  procedure ShowForm;stdcall;
 5
 6implementation
 7
 8uses Unit2;
 9
{$R *.dfm}

procedure SynAPP(App:THandle );stdcall;
begin
  Application.Handle := App;
end;

procedure ShowForm;stdcall;
begin
  Form1 := TForm1.Create (Application);
  Form1.ShowModal;
  FreeAndNil(Form1);
end

 

Class

 1Function MyString(s:PChar):PChar;stdcall;
 2  begin
 3    Result :=s;
 4  end;
 5
 6Function MyMax ( X , Y : integer ) : integer ; stdcall ;
 7  begin
 8    if X > Y then
 9       Result := X
    else
       Result := Y ;
  end ;



{$R *.res}

exports
    MyString ,
    MyMax ,

    SynAPP ,
    ShowForm ;

 

C#代码

 

 1public partial class HelloWord_Transfer_Delphi_DLL : Form
 2    {
 3        public HelloWord_Transfer_Delphi_DLL()
 4        {
 5            InitializeComponent();
 6        }
 7
 8        //定义DLL文件名，此文件路径要加到系统Path中
 9        private const string _fileDll = @"D:\Demo\Delphi Demo\HelloWord_DLL\HelloWord_DLL.dll";
        //调用非托管Dll，MyMax是ChartAccess.dll公开的函数名称
        [DllImport(_fileDll, EntryPoint = "MyMax", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
        //C#中的申明
        public static extern int MyMax(int i,int j);


        [DllImport(_fileDll, EntryPoint = "MyString", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)]
        public static extern string MyString(string s);

        [DllImport(_fileDll, EntryPoint = "SynAPP", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)]
        public static extern string SynAPP(IntPtr i);

        [DllImport(_fileDll, EntryPoint = "ShowForm", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)]
        public static extern string ShowForm();


        private void button1_Click(object sender, EventArgs e)
        {
            MessageBox.Show(MyMax(10, 100).ToString());
        }

        private void button2_Click(object sender, EventArgs e)
        {
            MessageBox.Show(MyString("aaaaad"));
        }

        private void button3_Click(object sender, EventArgs e)
        {
            SynAPP(this.Handle);
            ShowForm();
        }
    }