【结贴】关于TBaseHessianServer类的疑问**

kitchan

TBaseHessianServer = class
  private
    FJavaClassMapping: TJavaClassMapping;
    FCallWriter: THessianCallWriter;

    FObjectReader: TBinaryObjectStreamReader;
    procedure RaiseFault(MethodName: string; Fault: TFault);
  protected
    function DoCall(Buffer: array of Byte): TStream; abstract;
  public
    constructor Create;
    function Call(MethodName: string; Params: array of object): object;

    property JavaClassMapping: TJavaClassMapping read FJavaClassMapping;
  end;

  TBaseHessianServer的超类是什么，包括其派生类THessianServer都没有Free方法,怎么释放对象？

SMP

呵呵！声明类型的时候不指明前代类，默认是从Object上派生下来的，这种类的实例是不用free的，其实现有些类似于.Net或java中的类。

SMP

系统的GC功能会回收内存中这种类型的实例，但如果担心回收不及时，可以在class后面指明前代类是TObject这样就可以自己释放，而不用等GC回收了！

kitchan

我还担心THessianServer的实例不会被释放呢
OK