Ver Mensaje Individual
  #6  
Antiguo 20-10-2014
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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;
Responder Con Cita