asfsfdfd.~pas

程序採用了无状态连接池的三层结构

unit asfsfdfd;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, pServer_TLB, StdVcl;

type
  Tasfsfdfd = class(TAutoObject, Iasfsfdfd)
  protected

  end;

implementation

uses ComServ;

initialization
  TAutoObjectFactory.Create(ComServer, Tasfsfdfd, Class_asfsfdfd,
    ciMultiInstance, tmApartment);
end.