Sincronizar ServerSocket y ListView

[Sr_Sombrero]

Parece que finalmente tendré que aprender a usar las Indy

Gracias por el dato, ya os contaré

[Sr_Sombrero]

Estoy intentandolo con el idTCPserver, veo que es muy completo y más complejo. He leido la ayuda de Indy y estudiado los ejemplos, sin embargo todavía no entiendo mucho de la jerga de la programación por lo que se me hace difícil comprender las ayudas.
Después de decenas de intentos no me queda otra que preguntarles.

¿cómo hago para saber el hilo que se crea al conectar para agregarlo al caption del item en el listview?
(si es que eso me permitiría identificar las conexiones).

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
ali: TListItem;
begin
aLi := ListView1.Items.Add;
with aLi do
begin
Caption:= IdTCPServer1. {no se que poner acá}
end;
end;

Saludos

[jachguate]

Que queres poner en el caption??

Fijate en el parámetro AThread que recibis... es el "hilo" en que se ejecutará tu conexión, tiene una propiedad llamada Connection...

Podrias hacer algo como:

Caption := AThread.Connection.LocalName;

Es recomendable, de cualquier forma, que para poder identificar una conexión cualquiera, y dado que pueden conectarse varias veces de un mismo equipo, guardes un apuntador al Thread... del que habrá uno solo para cada conexión.

Hasta luego.

[Sr_Sombrero]

Lo probé y me pone el nombre de mi pc, aunque lo de AThread ya es un comiezo

¿Se puede poner en el caption directamente el Thread que identifica a cada conexió? (Para no tener que meterme con los apuntadores). ¿Si es así como se pone?.

Gracias por ayudarme

[jachguate]

El caption es una propiedad de tipo string. El thread es un objeto de tipo TidPeerThread.

En conclusión: El thread no puede ponerse como caption, por razones obvias. Asi, que a meterse con los apuntadores... que no es tan complicado al fin de cuentas. Ya cada elemento del ListView (de tipo TListItem) incorpora una propiedad data que es un apuntador genérico. Solo hace que apunte al thread, y listo.

Hasta luego.

[Sr_Sombrero]

Seguiré tu consejo, tengo unos pdf sobre el tema.

Gracias !!!

[Sr_Sombrero]

Luego de tomar distancia del proyecto volver logré hacerlo funcionar y sin usar los INDY.
Lo he probado a fondo y anda muy bien, aunque con las INDY tal vez hubiera quedado más prolijo.
Acá les dejo la solución por si a alguien le sirve.

Usando Socket.RemoteAddress te devuelve un entero que es el sock y que es único por cada conexión.

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
ali: TListItem;
strIndex: string;
begin

  aLi := ListView1.Items.Add;
  with aLi do
     begin
      Caption:= IntToStr(Socket.SocketHandle);
      SubItems.Add(Socket.RemoteAddress);
      SubItems.Add('');
      SubItems.Add('');
      SubItems.Add('');
      SubItems.Add('');
      SubItems.Add('');
      SubItems.Add('');
end;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
lvItem: TListItem;
s: string;

begin
// GetToken es una funcion para separ el texto que llega al socket
s:= Socket.ReceiveText;

if copy(s,1,7)='details' then begin
lvItem:= ListView1.FindCaption(0,intToStr(Socket.SocketHandle),true,true,false);
  if lvItem <> nil then begin
  lvItem.SubItems[1]:=(GetToken(S,';',2));
  lvItem.SubItems[2]:=(GetToken(S,';',3));
  lvItem.SubItems[3]:=(GetToken(S,';',4));
  lvItem.SubItems[4]:=(GetToken(S,';',5));
  lvItem.SubItems[5]:=(GetToken(S,';',6));
  lvItem.SubItems[6]:=(GetToken(S,';',7));
  end;
  end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
lvItem: TListItem;
begin
//busca el sock que se desconectó y la elimina de la lista
lvItem:=ListView1.FindCaption(0,intToStr
Socket.SocketHandle),true,true,false);
if lvItem <> nil then
lvItem.Delete;
end;

//esto es para enviar un comando al cliente desde la Listview
// sabiendo el sock y no el numero de conexión

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;

Saludos