Comments on: Interfaces

By: Cesar Romero

Cesar Romero — Sun, 06 Dec 2009 22:41:05 +0000

@David

.NET não tem contagem de referência, ele tem garbage collection.

By: David

David — Thu, 19 Nov 2009 13:37:45 +0000

@Jesrael muito bom, tem como mostrar um exemplo em codigo de como utilizar a contagem de referencia semelhante ao .NET

By: Jesrael

Jesrael — Tue, 26 May 2009 11:08:29 +0000

Ok, obrigado pela dica, funciona mesmo cara, valew….

By: Cesar Romero

Cesar Romero — Mon, 25 May 2009 13:38:51 +0000

Para anular a contagem de referencia, basta retornar -1 nos métodos de contagem de referência, isto já é feito desde que interfaces foram implementadas no Delphi, em TComponent.

function TExtendedObject._AddRef: Integer;
begin
Result:= -1;
end;

function TExtendedObject._Release: Integer;
begin
Result:= -1;
end;

Eu fiz uma outra implementação, mantendo a contagem de referência, mas que aproxima o comportamento ao do .Net, deixando para que você decida como quer que se comporte, como objeto ou como interface na utilização, e também implementei um método dispose, que verifica como o objeto está sendo tratado, para decidir se diminui a contagem de referência ou se destroy, dependendo de como ele estiver sendo utilizado no momento.

By: Jesrael

Jesrael — Thu, 26 Feb 2009 12:41:40 +0000

Olá, gostei da dica, mas não entendi uma coisa, qdo se fala em “anula a contagem” seria o que precisamente?
Como anular a contagem?

Obrigado.

By: Erick

Erick — Mon, 20 Jun 2005 11:59:44 +0000

Interessante a dica, tentarei testá-la em breve. Obrigado!

By: Adriano Rochedo

Adriano Rochedo — Mon, 20 Jun 2005 05:30:32 +0000

Para resolver os problemas causados pela contagem de referência, eu criei uma classe basica que anula a contagem e derivo todos os objetos que utilizam interfaces desta classe. Funciona perfeitamente, a unica coisa que preciso tomar cuidado é me certificar que todas as referencias via interface a um objetos sejam nulas antes deste objeto ser destruido, pois o compilador do delphi continua chamando os metodos de incremento e decremento para todas as referencia de interfaces e as vezes ocorre que que o objeto ja foi destruido e por causa de uma interface com referencia valida perdida, ocorre um “Access Violation”. Para anular uma referencia via interface basta atribuir “nil” a ela.

Seguindo estes conselhos a coisa funciona perfeitamente. E depois que voce se acostuma a usar interfaces, voce nao quer mais saber de usar herança.

Faz uns dois anos que para todos os meus mecanismos genéricos e “frameworks” eu só utilizo interfaces.