liberar objetos

OscarG · #6 06-10-2005

Bueno, conozco el FreeAndNil, pero no lo suelo usar...manias...

Lo q quiero decir con crear, viendo lo comentado y según me acuerdo, (es un programa q hice hace 1 año) es q yo creaba un cliente y un servidor.

TServerSocket
TClientSocket

El procedimiento para cada uno era tener una clase por cada y dentro de ella declarar un servidor o un cliente y q esa clase le controle su comportamiento...

Entonces, a estos les pasaba al crearlos el TComponent del formulario.

Entonces al destruir la clase q contenía el TServerSocket no me dejaba hacer un FreeAndNil del objeto, en cambio, con el TClientSocket si me dejaba...

Creo recordar q me comí un poco la cabeza probando formas diferentes para q no cascase, pero al final opté por q lo libere la aplicación al destruirse, ya q dependía del formulario principal...

Este caso, me mosqueo, xq me parecía q hacia todo bien

Código Delphi [-]  SSocket:= TServerSocket.Create(AOwner);
  SSocket.Port :=               9998;
  SSocket.Active :=             false;
  SSocket.ServerType:=          stNonBlocking;
  SSocket.ThreadCacheSize:=     10;
  SSocket.OnClientRead :=         ServerSocketClientRead;
  SSocket.OnClientError :=         ServerSocketClientError;
  SSocket.OnClientConnect :=    ServerSocketClientConnect;
  SSocket.OnClientDisconnect:=  ServerSocketClientDisconnect;

pero no me dejaba luego liberarlo, al hacerlo me salía un error.

Pos eso, muchas gracias...