enviar mensaje entre aplicaciones delphi distinto PC

[rabata2001]

Buenas a todos,

Mi deseo es enviar un mensaje desde una aplicación a otra (unidireccional, no bidireccional) en Delphi.

Estoy probando en envío con TIndyTCPCliente y TTCPIndyServer (Los UDP's a veces se salta algún mensaje, los TCP's son más fiables)


¿Existen otros componentes con los que enviar un mensaje unidireccional (tan sólo ne un sentido) de una aplicación a otra en distinto PC pero de la misma red local.?

Gracias y Saludos,

Javier

[ecfisa]

Hola rabata2001.

Tenes otra opción en este enlace: Exchanging Data over the Network using Delphi

Saludos

[[nlsgarcia]]

rabata2001,

Empezado por rabata2001

...¿Existen otros componentes con los que enviar un mensaje unidireccional (tan sólo en un sentido) de una aplicación a otra en distinto PC pero de la misma red local?...

Revisa esta información:

La librería Synapse (1)

La librería Synapse (2)

La librería Synapse (3)

La librería Synapse (4)

La librería Synapse (y 5)

Synapse's Features

Download Synapse TCP/IP and Serial Library.zip

Nota: La librería Synapse no utiliza componentes ni requiere instalación, solo se debe hacer referencia a las unidades de la librería en el Library Path de Delphi pero con la acotación de que no funciona en Win64.

Espero sea útil

Nelson.

[rabata2001]

Buenas,

Me interesaría algo que funcione correctamente para win32 y win64.

Simplemente voy a enviar un mensaje desde un sitio a otro y continuadamente (por lo tanto no deseo cerrar la conexión), desearía un porcentaje alto de que ha llegado el dato (udp no tiene porque llegar) y los tcp se quedan congelado el servidor si tiene algún cliente conectado

¿Cómo podría cerrar las conexiones desde mi indytcpserver sin que se congele aunque tenga un cliente conectado (el servidor cierra a sus clientes y su conexion)?.

1 se conecta el servidor / cliente
2. el cliente envía datos al servidor
3. el cliente o el servidor se cierran y no se congelan

Gracias y Saludos.

[[escafandra]]

UDP es rápido y no requiere conexión previa. Asegurar la llagada del paquete es responsabilidad del programador, basta con enviar una confirmación de recibido. TCP es más seguro porque lo automatiza el protocolo. La congelación de ambos protocolos lo resuelves con threads. Si quieres un buen control, vete a bajo nivel con sockets.

Saludos.

[rabata2001]

Si tiro por el camino de UDP, prácticamente es controlar la gestión del flujo:

1. enviar desde cliente a servidor
2. recibe el servidor y enviar ack al cliente
3. si el cliente no recibe ningún ack, vuelve a enviar (numero de reintentos)

Me sigue gustando más la idea de TCP. ¿Podrías citarme algún ejemplo para usarlo y evitar la congelación cuando intente desconectar el servidor con algún cliente enganchado?.

Gracias y saludos.

[[ElDioni]]

Yo hice una aplicación que lo que hace es, mediante un timer, revisar en una base de datos si el usuario de ese equipo tiene pendiente de leer algún mensaje dirigido a él. Al principio lo hice por IP pero para que te mostrara tus mensajes en cualquier equipo lo cambie por el nombre de usuario que iniciaba sesión en windows. El programa también admite programar cuando quieres que una persona vea el mensaje con fecha y hora.

Te lo digo por darte otra idea.

Saludos.

[rabata2001]

Muchas gracias por tu aportación. ya la había sopesado, de hecho alguna cosas en mi sistema las paso así, pero me gustaría tener un poco de mejor rendimiento que sea algo directo, la bbdd es muy usada y me gustaría evitarlo.

Saludos.

[[escafandra]]

Empezado por rabata2001

Me sigue gustando más la idea de TCP. ¿Podrías citarme algún ejemplo para usarlo y evitar la congelación cuando intente desconectar el servidor con algún cliente enganchado?.

Controlando el error de recv, podemos saber si el servidor se descotectó...

Te pongo un fragmento en C a bajo nivel con sockets

  //creamos el Sock y conectamos al servidor
  Sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if(Sock !=-1){
    //Definimos la dirección IP y Puerto del servidor
    host = gethostbyname("PCSERVER");
    direc.sin_family=AF_INET;
    direc.sin_port = htons(Port);
    direc.sin_addr = *((struct in_addr *)host->h_addr);
    ZeroMemory(direc.sin_zero, 8);
    connect(Sock, (sockaddr*)&direc, sizeof(sockaddr));

    // Saludo al servidor
    send(Sock, Saludo, lstrlen(Saludo), 0);

    // Mientras el Sock siga conectado
    do {
      Len = recv(Sock, Buffer, sizeof(Buffer), 0);
      if(Len>0){
          // Accciones pertinentes....
      }
    } while(Len!=0 && Len!=-1 && !Salir); 
    closesocket(Sock);
  }

Si el código lo encierras en un thread, el resto de la app no sufrirá esperas en connect, send y recv.

Saludos.

[[nlsgarcia]]

rabata2001,

Empezado por rabata2001

...Estoy probando en envío con TIndyTCPCliente y TTCPIndyServer...

Revisa esta información:

Cliente / Servidor TCP con Indy I

Cliente / Servidor TCP con Indy II

Espero sea útil

Nelson.