Ver Mensaje Individual
  #1  
Antiguo 17-11-2006
Genner Genner is offline
Miembro
 
Registrado: feb 2006
Posts: 44
Reputación: 0
Genner Va por buen camino
Aplicación cliente/servidor usando Sockets

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;
//crear instancia de  para la imagen
 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_;
//posicion en la pantalla
 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;
Responder Con Cita