Servidor DataSnap

[cmfab]

Si tienes razón, gracias por el señalamiento, lo tendré mejor en consideración a futuro

[Casimiro Noteví]

Gracias por tu comprensión

En relación a tu pregunta, ¿has hecho una búsqueda en los foros por "datasnap"?

[cmfab]

En realidad la hice, pero no encontré nada similar, y como esta función la necesito usar en otras tareas, decidí exponerla a ver si es que hay algo en ella que satura el servidor. Gracias

[[duilioisola]]

Yo no se mucho de Sockets, pero quizás debas desconectar el Socket después de comprobar que puedes conectar.

Código Delphi [-]
  try
   client.sin_family := AF_INET; //Establece el protocolo a usar en este caso (IPv4)
   client.sin_port := htons(dwPort);
   client.sin_addr.s_addr := inet_addr(PAnsiChar(ipAddressStr));
   sock :=socket(AF_INET, SOCK_STREAM, 0); //crea un socket
   Result:=connect(sock,client,SizeOf(client))=0; //Estable conexión con un socket

   // Quizás falta algo como esto ????
   Disconnect(sock, ...);
   // ????

   finally
     WSACleanup;
   end;

[cmfab]

Gracias podría ser una variante, pero como reviso todos los parámetros de la función Disconect ?

[[duilioisola]]

Puedes ver esta conversación.
Por un lado dicen que WSACleanup cierra todos las conexiónes, pero que también puedes hacer

Código Delphi [-]
CloseSocket(sock);

Allí proponen también otra solución para comprobar si un puerto está abierto.

Código Delphi [-]
function TForm7.PortIsOpen(const APort: Integer; const AAddress: string):
    Boolean;
var
  LTcpClient: TIdTCPClient;
begin
  LTcpClient := TIdTCPClient.Create(nil);
  try
    try
      LTcpClient.Host := AAddress;      //which server to test
      LTcpClient.Port := APort;         //which port to test
      LTcpClient.ConnectTimeout := 200; //assume a port to be closed if it does not respond within 200ms (some ports will immediately reject, others are using a "stealth" mechnism)
      LTcpClient.Connect;               //try to connect
      result := true;                   //port is open
    except
      result := false;
    end;
  finally
    freeAndNil(LTcpClient);
  end;
end;
 
procedure TForm7.Button1Click(Sender: TObject);
begin
  if PortIsOpen(1234, '127.0.0.1') then
    ShowMessage('OPEN')
  else
    ShowMessage('NOT OPEN');
end;

[cmfab]

Muchas gracias, espero poder resolver con esos ejemplos