Question

客户端应用程序和DataSnap服务器的原型。我想将 TObjectList 从服务器传输到客户端。

这是有效的，但我传达的所有对象都保留在服务器和客户端的内存中。

我做错了什么？

生命周期=会话

TPessoa对象实现另一个类的TbjectList（TConta）：

   TConta = class(TObject)
  private
    FBanco: string;
    FConta: Integer;
    FAgencia: Integer;
    procedure SetAgencia(const Value: Integer);
    procedure SetBanco(const Value: string);
    procedure SetConta(const Value: Integer);
   published
     property Banco : string read FBanco write SetBanco;
     property Agencia : Integer read FAgencia write SetAgencia;
     property Conta : Integer read FConta write SetConta;
   end;

   TContasCollection = TObjectList<TConta>;

   TPessoa = class(TObject)
  private
    FContas: TContasCollection;
    FId: Integer;
    FNome: string;
    procedure SetContas(const Value: TContasCollection);
    procedure SetId(const Value: Integer);
    procedure SetNome(const Value: string);
   published
     property Id : Integer read FId write SetId;
     property Nome : string read FNome write SetNome;
     property Contas : TContasCollection read FContas write SetContas;
   end;

ServerMetodsUnit中的方法public：

function getPessoa(id : Integer) : Tpessoa;

function TServerMethods1.getPessoa(id: Integer): Tpessoa;
begin
  result := Tpessoa.create;
  result.id := id;
  result.nome := 'NoName';
  result.contas := getContas;
end;

function TServerMethods1.getContas: TContasCollection;
var conta : TConta;
begin
  conta := TConta.Create;
  conta.Banco := 'CEF';
  conta.Agencia := 1;
  conta.Conta := 123;

  Result := TContasCollection.Create();
  Result.Add(conta);
end;

客户端：

procedure TForm2.btn1Click(Sender: TObject);
var pessoa : Tpessoa;
begin
  pessoa := ClientModule1.ServerMethods1Client.getPessoa(1);
  mmo1.Lines.Add(pessoa.Nome);
  mmo1.Lines.Add(pessoa.Contas[0].Banco);
end;

正确的结果，但是内存泄漏消息显示在服务器和客户端中（System.ReportMemoryLeaksOnShutdown：= true;）：

意外的内存泄漏发生了意外的内存泄漏。该   意外的小块泄漏是：

1 - 12个字节：TMoveArrayManager x 1，未知x 1 13    - 20个字节：TConta x 1，UnicodeString x 1 37 - 44个字节：TObjectList x 1

如何解决此内存泄漏不影响服务？

Answer 1

发生内存泄漏是因为您没有释放正在创建的对象。

要在客户端部分启动，您将在pessoa中创建btn1Click对象作为本地变量，但您没有将其释放。

procedure TForm2.btn1Click(Sender: TObject);
var pessoa : Tpessoa;
begin
  pessoa := ClientModule1.ServerMethods1Client.getPessoa(1);
  mmo1.Lines.Add(pessoa.Nome);
  mmo1.Lines.Add(pessoa.Contas[0].Banco);
  pessoa.Free; // you are no longer using pessoa object after that point so release it
end;

TPessoa类有FContas字段，我们不知道如何创建或发布，也许您刚刚省略了代码，也许根本就没有。无论如何，FContas也在某个时候被释放。如果TPessoa类是FContas字段的所有者（看起来应该是这样），那么您必须将析构函数添加到TPessoa类，您可以在其中免费FContas收集。

FContas是TObjectList，默认情况下拥有已添加的对象，并且会在FContas发布时释放这些对象。

FContas方法中也可能发现SetContas对象泄露，但如果不知道该代码的外观，则很难判断它是否泄漏。

TPessoa = class(TObject)
....
public
  destructor Destroy; override;
end;

destructor TPessoa.Destroy; 
begin
  FContas.Free;
  inherited;
end;

procedure SetContas(const Value: TContasCollection);
begin
  FContas.Free; // release old FContas collection if there is one
  FContas := Value; // reference FContas grabs ownership here 
end;

基本上，你创建的每个对象都必须在你不再需要它之后释放，除非有一些其他的对象实例会抓住那个对象的所有权并为你做，就像TObjectList那样。

以上代码假定FContas字段是其所拥有的集合的所有者，并且重要的是您不要抓住该引用并将其保留在其所有者对象的生命周期之外（{{ 1}}）实例。

例如，以下代码是错误的：

TPessoa

还有一些引用计数对象实例，它们在最后一次引用之后自动释放超出范围（通常是procedure TForm2.btn1Click(Sender: TObject); var pessoa : Tpessoa; contas: TContasCollection; begin pessoa := ClientModule1.ServerMethods1Client.getPessoa(1); contas := pessoa.Contas; pessoa.Free; // <-- after that point contas points to released object mmo1.Lines.Add(contas[0].Banco); // <-- dangling pointer use end;类的后代），但管理这些实例是完全不同的故事。你没有在这里使用它们，我只是为了完整性而提到它们。

如何通过DataSnap发送/接收TObjectList解决内存泄漏问题？

1 个答案: