C#.Net 调用Delphi 编译的ActiveX COM组件(原)

Pascal Code:

  TCSFramework_Delphi_COM = class(TTypedComObject, ICSFramework_Delphi_COM)
  public
    function Calc(A, B: Double): Double; stdcall;
    function SayHello(HelloStr: PChar): PChar; stdcall;
    function TestObject(var AObject: OleVariant): PChar; stdcall;
    function ShowFormWithParam(AParam: PChar;
      out OutResult: OleVariant): HResult; stdcall;
  end;

Pascal Code:

procedure TForm1.Button1Click(Sender: TObject);
var I: ICSFramework_Delphi_COM;
begin
  I := CoCSFramework_Delphi_COM.Create();
  ShowMessage(I.SayHello('Hello,CSFramework.com!')); {传入字符串PChar类型}
  I := nil;
end;

procedure TForm1.Button2Click(Sender: TObject);
var I: ICSFramework_Delphi_COM;
begin
  I := CoCSFramework_Delphi_COM.Create();
  ShowMessage(VarToStr(I.Calc(100, 999))); {传入double类型的参数}
  I := nil;
end;

procedure TForm1.Button3Click(Sender: TObject);
var I: ICSFramework_Delphi_COM;
var v: OleVariant;
begin
  I := CoCSFramework_Delphi_COM.Create();
  v := I;
  ShowMessage(I.TestObject(v)); {向COM对象传入对象引用，参数类型:OleVariant}
  I := nil;
end;

procedure TForm1.Button4Click(Sender: TObject);
var I: ICSFramework_Delphi_COM;
var V: OleVariant;
begin
  I := CoCSFramework_Delphi_COM.Create();
  I.ShowFormWithParam(PChar('Delphi内部调用COM对象并显示窗体和传递参数!'),V);
  ShowMessage(VarToStr(V));
  I := nil;
end;

C# Code:


private void button1_Click(object sender, EventArgs e)
{
   StringBuilder sb = new StringBuilder();
   
   try
   {
      //实例化COM对象
      ICSFramework_Delphi_COM com = new CSFramework_Delphi_COMClass();
      Object o = com as Object;//转换为对象Object
      
      //传入double类型的参数
      double d = com.Calc(100, 999);
      sb.AppendLine(d.ToString());
      
      //传入String类型的参数
      string result = com.SayHello("Hello! CSFramework!");
      sb.AppendLine(result);
      
      //传入String类型的参数
      string resulx = com.TestObject(ref o);
      sb.AppendLine(resulx);
      
      //.Net程序调用Delphi编译的COM对象，显示窗体并传递参数,返回Out参数!
      object S;
      com.ShowFormWithParam(".Net程序调用Delphi编译的COM对象，显示窗体和传递参数!", out S);
      sb.AppendLine(S.ToString());
      
      //释放COM对象的内存
      Marshal.FinalReleaseComObject(com);
   }
   catch (Exception ex)
   {
      sb.AppendLine(ex.Message);
   }
   
   textBox1.Text = sb.ToString();
}

//来源:C/S框架网(www.csframework.com) QQ:1980854898