serverobject.~pa

电脑编程技巧和源码。很不错的。

unit serverobject;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, ComObj, StdVcl,
  CorbaObj, serverprj_TLB;

type

  TCorbaServerObject = class(TCorbaImplementation, ICorbaServerObject)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses CorbInit;

initialization
  TCorbaObjectFactory.Create('CorbaServerObjectFactory', 'CorbaServerObject', 'IDL:serverprj/CorbaServerObjectFactory:1.0', ICorbaServerObject,
    TCorbaServerObject, iMultiInstance, tmSingleThread);
end.