FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Sincronizar ServerSocket y ListView
Estoy programando una aplicación cliente servidor.
La cuestión está en el Server, en este he colocado un listview que muestra las conexiones + datos que envian los clientes. Haciendo click sobre el listView puedo mandar comandos a los clientes, por eso es importante que el index de los items en el listView esté sincronizado con las conexiones en el Socket. El problema es que la sincronización no es total ya que a veces un cliente se va sin cerrar la conexión, luego se conecta otro, luego se refrescan las conexiones activas (con un timer que puse) y ya la listView y el socket va cada uno por su lado Otro problema es que cuando se desconectan los elimino de la listView buscando la IP en el Caption del Item pero podría tener dos conexiones dede la misma IP y solo desconectarse una (ej. si hay dos clientes detrás de un router o en LAN). Acá les pongo parte del código a ver si me pueden tirar alguna ideita. Saludos ----------------------------------- procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); var lvItem: TListItem; begin ListView1.Items.Add.Caption:=Socket.RemoteAddress; end; procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var s: string; lvItem: TListItem; begin s:= Socket.ReceiveText; if copy(s,1,7)='details' then begin lvItem:= ListView1.FindCaption(0,Socket.RemoteAddress,true,true,false); if lvItem <> nil then begin lvItem.SubItems.Add(GetToken(S,';',2)); lvItem.SubItems.Add(GetToken(S,';',3)); lvItem.SubItems.Add(GetToken(S,';',4)); lvItem.SubItems.Add(GetToken(S,';',5)); end; end; end; procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); var lvItem: TListItem; begin lvItem:=ListView1.FindCaption(0,Socket.RemoteAddress,true,true,false); if lvItem <> nil then lvItem.Delete; end; // con el timer les mando texto a los clientes para que el socket // desconecte a los que se han ido sin avisar. procedure TForm1.Timer1Timer(Sender: TObject); begin i2check:=(i2check+1); {item a checkear} if ListView1.Items.Count-1<i2check then begin i2check:=-1; exit; end else ServerSocket1.Socket.Connections[i2check].SendText('lala'); end; end; |
#2
|
||||
|
||||
No conozco mucho de sockets pero en términos generales pienso que tu problema no es de sockets. Me explico:
Tú mismo te has dado cuenta de la dificultad de sincronizar el índice de un ítem en el listview y una conexión. Lo que yo haría es utilizar la propiedad Data de TListItem. Data es un puntero de manera que puedes almacenar ahí virtualmente cualquier cosa. Podrías asignar una estructura- por ejemplo un record -a cada conexión nueva en la que incluyas los datos que identifiquen de manera única a la conexión: Código:
type PConnectionInfo = ^TConnectionInfo; TConnectionInfo = record RemoteAddress: ShortString; { otros datos que necesites para identificar de manera única cada conexión } end; Código:
var Info: PConnectionInfo; Item: TListItem; begin // Inicializar la estructura New(Info); Info.RemoteAddress := Socket.RemoteAddress; { otros datos } // Agregar el item a la lista Item := ListView1.Items.Add; Item.Caption := Info.RemoteAddress; Item.Data := Info; end; Código:
PConnectionInfo(ListView1.SelectedItem.Data).RemoteAddress De esta forma cada ítem del listview "apuntará" a la estructura correcta sin depender de su posición en la lista. Además puedes guardar en dicha estructura otros datos de la conexión que necesites y no desees colocar en el listview. // Saludos |
#3
|
||||
|
||||
Ante todo, gracias roman por tu ayuda.
Eso que explicas es nuevo para mi, no se si lo entendí bien (tendré que seguir estudiandolo) pero creo que volvería a enfrentar el mismo problema. Cuando un cliente se desconecta solo se su IP (la cual veo en el evento OnDisconnect) pero no se el número de conexión que tenía en el ServerSocket, por eso no puedo reflejarlo en la listView (si hay 2 IP iguales). Si hay alguna forma de saber esto tendría el 80% del problema solucionado. Bueno... seguiré pensando y abierto a sugerencias |
#4
|
||||
|
||||
Hola.
Has considerado el uso de las indy. El servidor TCP presenta varias ventajas con respdecto del ServerSocket. Básicamente, es un servidor multihilos que atiende "mejor" a los clientes... además, en tu caso particular, el evento OnDisconnect tiene un puntero al thread del cliente, donde tenes toda la información "puntual" de su conexión... de esa forma, una misma ip puede estar conectada 20 veces, sin provocar confusión en el servidor... Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#5
|
||||
|
||||
Olvide mencionar, también para tu caso en partícular, que en el método Timer1Timer podrias recorrer la propiedad Threads del servidor para actualizar tu ListView (si esto fuera necesario, claro... ya que creo que con el evento OnDisconnect bastaria para mantenerla en sincronía)
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#6
|
||||
|
||||
Parece que finalmente tendré que aprender a usar las Indy
Gracias por el dato, ya os contaré |
#7
|
|||
|
|||
Cita:
Una cosa más: (Pero creo que ya te diste cuenta) Si usas el "sockets.pas" cuando envías: "Hola" y luego "Mundo" pueden recibir: "Hola" y luego "Mundo", "HolaMundo" y también "Ho", "laM","un" y finalmente "do". El 1er caso es típico cuando envías los mensajes con cierto tiempo ellos. El 2do caso cuando los envías uno detrás de otro casi inmediatamente y el 3er caso cuando el canal de transmisión está saturado pero generalmente esa fragmentación al recibir el mensaje ocurrirá con mensajes más largos. |
#8
|
||||
|
||||
Cita:
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#9
|
|||
|
|||
hola gente soy novato en todo esto de programacion pero por algo se empiesa yo estaba asiendo algo como esto y no se donde poner esto en q clase de boton o en el listview no encuentro como alguien me lo esplica si esta n amable...
saludos!!! y muchas grasias Código:
procedure TForm1.Connect1Click(Sender: TObject); var intNumConnect, intSocket: integer; begin intNumConnect:=-1; if listView1.ItemIndex = -1 then begin showmessage('There is no server selected'); exit; end else begin intSocket:= StrToInt(listView1.Selected.Caption); repeat intNumConnect:= intNumConnect + 1; if ServerSocket1.Socket.Connections[intNumConnect].SocketHandle=IntSocket then ServerSocket1.Socket.Connections[intNumConnect].SendText('connect'); until (intNumConnect + 1) = ServerSocket1.Socket.ActiveConnections; end end; |
|
|
|