// ファイル名 : CalcFuncsClass.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace csSimpleDLL
{
    public class CalcFuncs
    {
        public String GetText()
        {
            return "日本語 ABC 文字列";
        }
        public int AddInt(int AInt1, int AInt2)
        {
            return AInt1 + AInt2;
        }
    }
}
        

// ファイル名 : CalcFuncsClass.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Runtime.InteropServices;

namespace csSimpleDLL
{
    //--------------------------------------------------------------------
    //  インターフェイスの定義 (dispinterface) 用のコード
    //  元の DLL のコードに追加した部分
    //--------------------------------------------------------------------
    [Guid("3C809CC0-E8C6-408C-8843-F290F38E54B3")]
    public interface ICalcFuncs
    {
        // 使用する関数類を列挙
        String GetText();
        int AddInt(int AInt1, int AInt2);
    }

    //--------------------------------------------------------------------
    //  interface(IDispatch) の定義部分
    //  元の DLL のコードに追加した部分
    //--------------------------------------------------------------------
    [ClassInterface(ClassInterfaceType.None)]
    [ProgId("csSimpleDLL.CalcFuncs")]
    [Guid("B835F7A6-B8E3-4336-9010-0BAFE7EE4DED")]

    //--------------------------------------------------------------------
    //  クラス名の後にインターフェイス名を付加
    //  それ以外は元の DLL のコードと同じ
    //--------------------------------------------------------------------
    public class CalcFuncs : ICalcFuncs
    {
        public String GetText()
        {
            return "日本語 ABC 文字列";
        }
        public int AddInt(int AInt1, int AInt2)
        {
            return AInt1 + AInt2;
        }
    }
}

// ComVisible を false に設定すると、その型はこのアセンブリ内で COM コンポーネントから 
// 参照不可能になります。COM からこのアセンブリ内の型にアクセスする場合は、
// その型の ComVisible 属性を true に設定してください。
[assembly: ComVisible(true)]

// 次の GUID は、このプロジェクトが COM に公開される場合の、typelib の ID です
[assembly: Guid("0f9e203f-ff6c-47bb-878f-db6428fefcaf")]

unit csSimpleDLL_TLB;

// ************************************************************************ //
// 警告                                                                       
// -------                                                                    
// このファイルで宣言されている型はタイプ ライブラリから読み取られたデータから 
// 生成されています。このタイプ ライブラリが明示的あるいは（このタイプ ライブラ 
// リを参照しているほかのタイプ ライブラリ経由で）間接的に再インポートされた   
// り、タイプ ライブライブラリの編集中にタイプ ライブラリ エディタの［更新］コマ 
// ンドを実行した場合、このファイルの内容はすべて再生成され、手動で加えた変更 
// はすべて失われます。                                                       
// ************************************************************************ //

// $Rev: 52393 $
// 下に説明されたタイプ ライブラリから 2018/10/04 22:20:29 に生成されたファイル。

// ************************************************************************  //
// タイプ ライブラリ:
//        D:\dotNetDllTest\CSharpDll\csSimpleDLL\bin\Release\csSimpleDLL.tlb (1)
// LIBID: {0F9E203F-FF6C-47BB-878F-DB6428FEFCAF}
// LCID: 0
// ヘルプファイル: 
// ヘルプ文字列: 
// 依存関係リスト: 
//   (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
//   (2) v2.4 mscorlib, (C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscorlib.tlb)
// SYS_KIND: SYS_WIN32
// ************************************************************************ //
{$TYPEDADDRESS OFF} // ポインタの型チェックをオフにしてコンパイルすること
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}

interface

uses Winapi.Windows, mscorlib_TLB, System.Classes, System.Variants, System.Win.StdVCL, 
  Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX;


// *********************************************************************//
// タイプ ライブラリで宣言される GUID. 以下のプレフィックスを使う:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // タイプ ライブラリのメジャー バージョンとマイナー バージョン
  csSimpleDLLMajorVersion = 1;
  csSimpleDLLMinorVersion = 0;

  LIBID_csSimpleDLL: TGUID = '{0F9E203F-FF6C-47BB-878F-DB6428FEFCAF}';

  IID_ICalcFuncs: TGUID = '{3C809CC0-E8C6-408C-8843-F290F38E54B3}';
  CLASS_CalcFuncs: TGUID = '{B835F7A6-B8E3-4336-9010-0BAFE7EE4DED}';
type
// *********************************************************************//
// タイプ ライブラリで宣言される前方参照
// *********************************************************************//
  ICalcFuncs = interface;
  ICalcFuncsDisp = dispinterface;
// *********************************************************************//
// タイプ ライブラリで宣言される CoClass
// (注意: ここで各 CoClass とデフォルトのインターフェイスをマッピングする)
// *********************************************************************//
  CalcFuncs = ICalcFuncs;


// *********************************************************************//
// インターフェイス: ICalcFuncs
// フラグ: (4416) Dual OleAutomation Dispatchable
// GUID: {3C809CC0-E8C6-408C-8843-F290F38E54B3}
// *********************************************************************//
  ICalcFuncs = interface(IDispatch)
    ['{3C809CC0-E8C6-408C-8843-F290F38E54B3}']
    function GetText: WideString; safecall;
    function AddInt(AInt1: Integer; AInt2: Integer): Integer; safecall;
  end;

// *********************************************************************//
// DispIntf:  ICalcFuncsDisp
// フラグ:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3C809CC0-E8C6-408C-8843-F290F38E54B3}
// *********************************************************************//
  ICalcFuncsDisp = dispinterface
    ['{3C809CC0-E8C6-408C-8843-F290F38E54B3}']
    function GetText: WideString; dispid 1610743808;
    function AddInt(AInt1: Integer; AInt2: Integer): Integer; dispid 1610743809;
  end;

// *********************************************************************//
// クラス CalcFuncs は、Create および CreateRemote メソッドを使用して
// CoClass CalcFuncs が公開するデフォルトのインターフェイス ICalcFuncs の
// インスタンスを作成する。このタイプ ライブラリのサーバーによって
// 公開された CoClass オブジェクトに対し、オートメーションを行いたい
// クライアントが用いるために、これらの関数が存在する。
// *********************************************************************//
  CoCalcFuncs = class
    class function Create: ICalcFuncs;
    class function CreateRemote(const MachineName: string): ICalcFuncs;
  end;

implementation

uses System.Win.ComObj;

class function CoCalcFuncs.Create: ICalcFuncs;
begin
  Result := CreateComObject(CLASS_CalcFuncs) as ICalcFuncs;
end;

class function CoCalcFuncs.CreateRemote(const MachineName: string): ICalcFuncs;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_CalcFuncs) as ICalcFuncs;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, csSimpleDLL_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  ComObj;

{$R *.dfm}

//=============================================================================
//  C#用DLL内の関数をCOM参照で使用する例
//  CreateComObjectでCOM オブジェクトを生成する例
//
//  usesにComObjが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LDllClass : ICalcFuncs;
  LIntA     : Integer;
  LIntB     : Integer;
  LIntC     : Integer;
  LText     : string;
begin
  Memo1.Lines.Clear;

  LDllClass := CreateComObject(CLASS_CalcFuncs) as ICalcFuncs;

  LText := LDllClass.GetText;
  Memo1.Lines.Add(LText);

  LIntA := 100;
  LIntB := 250;
  LIntC := LDllClass.AddInt(LIntA, LIntB);
  Memo1.Lines.Add(IntToStr(LIntC));
end;

//=============================================================================
//  C#用DLL内の関数をCOM参照で使用する例
//  CoXXXクラスのCreateメソッドで生成する例
//
//  usesにComObjは必要ない
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LDllClass : ICalcFuncs;
  LIntA     : Integer;
  LIntB     : Integer;
  LIntC     : Integer;
  LText     : string;
begin
  Memo1.Lines.Clear;

  LDllClass := CoCalcFuncs.Create;

  LText := LDllClass.GetText;
  Memo1.Lines.Add(LText);

  LIntA := 100;
  LIntB := 250;
  LIntC := LDllClass.AddInt(LIntA, LIntB);
  Memo1.Lines.Add(IntToStr(LIntC));
end;

//=============================================================================
//  C#用DLL内の関数をCOM参照で使用する例
//  ProgIDを指定してCreateOleObjectでCOM オブジェクトを生成する例
//  タイプライブラリの取り込みで作成したユニットは不要
//
//  usesにComObjが必要
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  LDllClass : OleVariant;
  LIntA     : Integer;
  LIntB     : Integer;
  LIntC     : Integer;
  LText     : string;
begin
  Memo1.Lines.Clear;

  LDllClass := CreateOleObject('csSimpleDLL.CalcFuncs');

  LText := LDllClass.GetText;
  Memo1.Lines.Add(LText);

  LIntA := 100;
  LIntB := 250;
  LIntC := LDllClass.AddInt(LIntA, LIntB);
  Memo1.Lines.Add(IntToStr(LIntC));
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  LExcelObj : OleVariant;
begin
  LExcelObj := CreateOleObject('Excel.Application');
  ...
  ...
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LDllClass : OleVariant;
  LIntA     : Integer;
  LIntB     : Integer;
  LIntC     : Integer;
  LText     : string;
begin
  Memo1.Lines.Clear;

  LDllClass := CreateOleObject('csSimpleDLL.CalcFuncs');

  LText := LDllClass.GetText;
  Memo1.Lines.Add(LText);

  LIntA := 100;
  LIntB := 250;
  LIntC := LDllClass.AddInt(LIntA, LIntB);
  Memo1.Lines.Add(IntToStr(LIntC));
end;

end.