unit1.pas

一个很简洁的COM接口源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,
  StdCtrls,
  uInterface;   //引用接口声明单元

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i: IInfo;        //声明接口变量
implementation

//声明 DLL 方法 CreateObj
function CreateObj(const value: TGUID): integer; stdcall; stdcall external 'dll.dll' name 'CreateObj';


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  int: integer;
begin
  int := CreateObj(iinfo);         //传递 IInfo 接口,并获取实例接口.
  if int <> 0 then
  begin
    i := IInfo(int);               //强制类型转换到 IInfo 类型的接口.
    showmessage('正常获取接口.') ;
    i.SetInfo('测试设置内容');     //第一个接口调用
  end
  else ShowMessage('获取接口失败');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  i.ShowInfo; //第一个接口调用;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if i <> nil then i.FreeObj; //手动删除对象, 实际上 dll 退出的时候会自动删除
end;

end.