obj.pas

一个很简洁的COM接口源码

unit Obj;

interface

uses
  SysUtils, Classes, windows,
  uInterface;      //引用接口单元,将接口独立存放可以方便客户和服务程序之间互相引用

type

  TInfo = class(TInterfacedObject, IInfo)
    FInfo: PChar;
  protected
    procedure ShowInfo; stdcall;
    procedure SetInfo(P: PChar); stdcall;
    procedure FreeObj; stdcall;
  end;

implementation

{ TInfo }

procedure TInfo.FreeObj;
begin
  if finfo <> nil then StrDispose(FInfo);
  self.FRefCount := 0;
  self.Destroy;
end;

procedure TInfo.SetInfo(P: PChar);
begin                
  if FInfo <> nil then StrDispose(FInfo);
  FInfo := StrNew( p);
end;

procedure TInfo.ShowInfo;
begin
  messageboxa(0, FInfo, 'check', MB_OK)
end;

end.