Bueno, gracias pmcastilla pero eso exactamente no es lo que quiero. Voy a ver si me explico.
La aplicación es para comprobar si los equipos tienen instalado diverso software y si el servicio está activo, RAdmin por ejemplo, entonces lo que queremos ver es si el puerto correspondiente esta abierto.
Yo creo que el error que me da es debido a que no esta abierto, pero no se como esperar a que termine la comprobación antes de mandar la siguiente y yo creo que se me cruzan.
Lo que hago es lo siguiente:
while not fin de la base de datos do
begin
clientSocket.port := 2701;
ClientSocket.Host := 'Dir IP1';
ClientSocket.Active := true;
next;
end;
Me he fijado cuando pongo Active a true no siempre me salta el evento OnConnect.
Bueno, Seoane el error que me da es el siguiente:
Asyncronous socket error 10049
Gracias a los dos por vuestra rapidez.
|