Delphi程序调用C#.Net编译的DLL并打开窗体(详解)

C# Code:

/// <summary>
/// 测试类. 请给所有方法提供一个参数,即使是无用的签名
/// </summary>
public class Tester
{
   
   public string GetMyKey(int param)
   {
      return "Key:www.csframework.com";
   }
   
   public string GetMyName(string input)
   {
      return "Jonny Sun" ":" input;
   }
   
   public int GetMyAge(string yourName)
   {
      return 33;
   }
   
   /// <summary>
   /// 显示消息并打开窗体
   /// </summary>
   /// <param name="msg">消息</param>
   /// <returns></returns>
   public int ShowMessage(string msg)
   {
      MessageBox.Show(msg);
      frmTest.Execute(msg);//打开窗体
      return 100;
   }
   
   /// <summary>
   /// 无签名(参数)的方法给Delphi调用，调用失败，Delphi程序会抛出异常。
   /// </summary>
   /// <returns></returns>
   public int CallMethodWithNoSign()
   {
      return -1;
   }
   
}

// 来源:www.CSFramework.com, C/S结构框架学习网

Delphi Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  OBJ: Variant; //OLEVariant Type.
  ResultValue: string; //Value returned from C#
  i:Integer;//Value returned from C#
begin
  try
    try
      OBJ := CreateOleObject('Dll4DelphiCall.Tester');

      //Test a function with signature.
      ResultValue := OBJ.GetMyName('HELLO!C/S框架网 www.csframework.com');
      ShowMessage(ResultValue);

      ResultValue := OBJ.GetMyAge('JONNY!');
      ShowMessage(ResultValue);

      ResultValue := OBJ.GetMyKey(0);
      ShowMessage(ResultValue);

      i:=OBJ.ShowMessage('Call CSharp Window....(Sender:Delphi Form)');
      ShowMessage(VarToStr(i));//Show result ID from C# function.
    except
      on e: Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
  finally
    OBJ := Unassigned;
  end;

end;

// 来源:www.CSFramework.com, C/S结构框架学习网