buenas tardes foreros estoy en tiempo de ocio y estoy haciendo una aplicacion tipo cliente servidor usando sockets lo que hace es que cuando se conecta el cliente en la otra aplicacion creo una imagen y la muestro. pero lo que no he podido hacer q cuando el cliente se desconecte quite la la imagen creada.
alguna idea?
Código Delphi
[-]
procedure Tpanel.servidorClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
var
nombre,nombre_conexion:string;
etiqueta:TstaticText;
begin
nombre:=socket.ReceiveText;
maquina:=Timage.Create(parent);
etiqueta:=TstaticText.Create(parent);
etiqueta.Parent:=self;
with maquina do
begin
Parent:=Self;
Picture.LoadFromFile('c:\genner\imagenes\perdimos.bmp');
width:=100;
Height:=100;
stretch:=true;
Name:=nombre;
OnDblClick:=click_;
nuevo_alto:=alto_inicio;
nuevo_izquierda:=izquierda_inicio;
izquierda_inicio:=nuevo_izquierda+width+8;
label3.Caption:=IntTostr(izquierda_inicio);
if(izquierda_inicio>=panel.Width)then
begin
nuevo_alto:=alto_inicio+height+20;
alto_inicio:=nuevo_alto;
izquierda_inicio:=8;
nuevo_izquierda:=izquierda_inicio;
izquierda_inicio:=nuevo_izquierda+width+8;
end;
Left:=nuevo_izquierda;
top:=nuevo_alto;
etiqueta.Top:=maquina.Top+maquina.Height;
etiqueta.Caption:=nombre;
etiqueta.Left:=maquina.Left;
end;
end;