Club Builder

[MarioMarieti]

Hola buenas tardes.
Estoy intentando utilizar el objeto IdFTP para descargar y subir archivos a un pc que se utiliza como servidor de archivos. Para ello estoy utilizando la rutina que he encontrado en el foro:

ftp->Host = "X.X.0.X";
ftp->Password="contraseña";
ftp->Username="nombreusuario";
ftp->Port=21;
//ftp->Passive=true;

ftp->Connect();

AnsiString sArchivoFTP="rutaarchivo\escudo1.bmp"; //ejemplo
AnsiString destino="c:\\Temp\\escudocopia.bmp"; // archivo destino

FStream = new TFileStream(destino,Classes::fmCreate);

if(ftp->Connected()){
try{
ftp->TransferType=ftBinary;
ftp->Get(sArchivoFTP,FStream,false); // descargar archivo
// borrar archivo
//ftp->Delete(Valor); // desactivado por pruebas
}
catch(...){
ShowMessage("archivo no encontrado");
}
}
ftp->Quit();


Y cuando llega a la linea se establece la conexión ( ftp->Connect() )
me da el siguiente error:
Debugger Exception Notification
Project Geseve.exe raised exception class EIdSocketError with message 'Socket Error # 10060
Connection timed out.'

Si alguien me puede ayudar, o indicarme si tendría que utilizar IdTrivialFTP, se lo agradecería.
Gracias.

[_Leo]

Hola, a mi de esta manera me funciona sin problemas:

[MarioMarieti]

Hola Leo y gracias por responder.
También he probado con el ejemplo que me pasado pero no consigo que funcione.

IdFTP1->Host = "ftp.miDominio.com" --> Yo aquí pongo una dirección IP. puede ser que no funcione por eso?. Todo lo demás lo hago igual.
Gracias.

[_Leo]

Hola, no, realmente da igual usar la IP directamente. Por si acaso sea un tema de tu servidor FTP, he buscado un servidor público para tener exactamente la misma prueba:

(El código tal como está sin modificar nada descarga un PNG de un servidor público para pruebas)

[MarioMarieti]

Hola Leo.
He probado el ejemplo que publicaste y funciona perfectamente.
Posiblemente sea cosa de nuestro servidor FTP. Aún así probaré también a hacerlo como me propones con un virtual a ver si funciona.
Muchas gracias. Ya comunicaré como resultó.