Asynchronous socket error 10061, sin sentido

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

¿En qué momento o línea sale el error?, ¿llega a estar funcionando?, ¿se puede reproducir?...

[zbuben]

Empezado por Casimiro Notevi

Bienvenido a clubdelphi, ¿ya leiste nuestra guia de estilo?, gracias por tu colaboración.

Sisi muchisimas gracias, y gracias tambien por la rapida respuesta.

Empezado por Casimiro Notevi

¿En qué momento o línea sale el error?, ¿llega a estar funcionando?, ¿se puede reproducir?...

Te explico, el error sale cuando no esta abierto el servidor. Si el servidor esta abierto, funciona perfecto. Pero al estar cerrado, tira el error ese que no se puede conectar.
Lo que yo quiero es que si no se puede conectar al servidor, siga funcionando normalmente sin tildarse, o tirar error.

El error apareceria donde dice "Cliente.OnError := PortCheck.OnError;" Como que no reconoce el procedure. entonces no puede poner el ErrorCode en 0. y por lo tanto sale el error. pero no entiendo que esta mal. ¿Vos ves algun error?

[zbuben]

Empezado por Casimiro Notevi

¿En qué momento o línea sale el error?

Aca te muestro exactamente lo que me dice el Delphi 7 al ejecutarlo.

---------------------------
Application Error
---------------------------
Exception ESocketError in module Project1.exe at 00017076.
Windows socket error: No se ha podido establecer conexión ya
que el equipo de destino ha denegado activamente dicha conexión (10061), on API 'connect'.

[zbuben]

Hola, al final lo pude solucionar, habia que agregar el idException en uses. y usar la sintaxis:

Código Delphi [-]
 
try
Open;
Active := True;
except
end;

Lo dejo por si a alguien le sirve, saludos, y muchisimas gracias por la ayuda

[Casimiro Notevi]

perfecto !