Ver Mensaje Individual
  #4  
Antiguo 19-05-2010
Jhonjhon_123 Jhonjhon_123 is offline
Miembro
 
Registrado: may 2010
Posts: 12
Reputación: 0
Jhonjhon_123 Va por buen camino
Cita:
Empezado por Neftali Ver Mensaje
El problema es que si TForm no posee el procedimiento OnRead no va a funcionar hagas lo que hagas.

Parece que lo que tienes almacenados en la lista de Objects son objetos de tipo TForm o TSockets.

Estás haciendo el CAST (operador AS) como TForm, pero luego intentas ejecutar un método que pertenece a la clase TCustomSocket. Eso no cuadra.

Si realmente son sockets debería ser algo similar a esto.
Código Delphi ...(ListItem.SubItems.Objects[ID_Obj] as TCustomSocket).OnRead(CSokcet, DataSocket);

Y si son TForm, no tiene sentido ejecutar el OnRead.
non mira, no tiene nada k¡que ver con sockets el procedimiento "OnRead" para este caso es como cualquier procedimiento normal agregado, le pude poner "Pepito, etc".

Ahora, no hay forma de que Delphi me asocie ese "OnRead" al form que yo le pase sin que me de error?
Responder Con Cita