void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
switch(ErrorCode)
{
case (10013):
ShowMessage("Permiso denegado.\n"
"Se ha echo un intento de acceder a un socket de una \n"
"manera prohibida");
break;
case (10048):
ShowMessage("Dirección en uso.\n"
"Solo un uso de cada dirección de socket \n"
"(protocolo/dirección IP/puerto) es permitido habitualmente.");
break;
case (10049):
ShowMessage("No se puede asignar la dirección requerida.\n"
"La dirección requerida no es válida en su contexto. ");
break;
case (10047):
ShowMessage("La familia de la dirección es \n"
"incompatible con el protocolo.");
break;
case (10037):
ShowMessage("Operación aún en progreso.\n"
"Se ha intentado una operación sobre un socket \n"
"no bloqueante que ya mantiene una operación en progreso.");
break;
case (10053):
ShowMessage("Conexión abortada.\n"
"EL software ha causado el cierre de la conexión. ");
break;
case (10061):
ShowMessage("Conexión rechazada.\n"
"No se puede crear una conexión porque la \n"
"máquina a la que se ha echo la petición la \n"
"ha rechazado activamente.");
break;
case (10054):
ShowMessage("Conexión reiniciada por el peer.\n"
"Una conexión existente ha sido cerrada\n"
"por el host remoto. ");
break;
case (10039):
ShowMessage("Se requiere dirección de destino.\n"
"una dirección requerida ha sido omitida\n"
"en una operación del socket. ");
break;
case (10014):
ShowMessage("Dirección erronea.\n"
"El sistema a detectado una dirección\n"
"de puntero inválido al intentar usar \n"
"un argumento puntero de una llamada. ");
break;
case (10064):
ShowMessage("El host está apagado.\n"
"Una operación con sockets ha fallado \n"
"porque el host de destino estaba apagado. ");
break;
case (10065):
ShowMessage("No route to host.\n"
"Se ha tratado de conectar a un host\n"
"inalcanzable. ");
break;
case (10036):
ShowMessage("Operación en marcha.\n"
"Una operación bloqueante está en\n"
"ejecución en este momento. ");
break;
case (10004):
ShowMessage("Se ha llamado a la función de interrupción.");
break;
case (10022):
ShowMessage("Argumento inválido.\n"
"Se ha pasado un argumento inválido ");
break;
case (10056):
ShowMessage("El socket ya está conectado.\n"
"Se ha requerido una conexión en un socket \n"
"ya conectado. ");
break;
case (10024):
ShowMessage("Demasiados archivos abiertos.");
break;
case (10040):
ShowMessage("Mensaje muy largo.");
break;
case (10050):
ShowMessage("La red esta desconectada.");
break;
case (10052):
ShowMessage("La red abandonó la conexión al reiniciar.");
break;
case (10051):
ShowMessage("La red es inalcanzable.");
break;
case (10055):
ShowMessage("No hay espacio de buffer disponible.");
break;
case (10042):
ShowMessage("Mala opción del protocolo.");
break;
case (10057):
ShowMessage("El socket no esta conectado.");
break;
case (10038):
ShowMessage("Operación con sockets sobre un no-socket.");
break;
case (10045):
ShowMessage("Operación no soportada.");
break;
case (10046):
ShowMessage("Familia de protocolos no soportada.");
break;
case (10067):
ShowMessage("Demasiados procesos");
break;
case (10043):
ShowMessage("Protocolo no soportado.");
break;
case (10041):
ShowMessage("Tipo erroneo de protocolo para el socket.");
break;
case (10058):
ShowMessage("No puede enviarse despues de cerrar el socket.");
break;
case (10044):
ShowMessage("Tipo de socket no soportado.");
break;
case (10060):
ShowMessage("Timeout de conexión.");
break;
case (10109):
ShowMessage("Tipo de clase no encontrado.");
break;
case (10035):
ShowMessage("Recurso no disponible temporalmente.");
break;
case (11001):
ShowMessage("No se ha encontrado el host.");
break;
default:
ShowMessage("Error No registrado");
}
ErrorCode = 0;
}