FTP Remoto
 

Hola expongo mi consulta.

Tengo una aplicacion que se conecta con un servidor FTP, con 2 opciones segun sea al caso: de forma remota y local.

Este es el codigo que utilizo

Código Delphi [-]
if radiobutton1.checked = true then idftp1.Host:='IP publica que entrega servicion de internet';  // remota
if radiobutton2.checked = true then idftp1.Host:=IP local de servidor; //local
 
try
idftp1.Connect;
if idftp1.Connected = true then
begin
idftp1.Get(ExtractFileName('ver.ini'),GetEnvironmentVariable('Programfiles')+'\Ordenes\ver.ini', TRUE, False );

Ademas esta configurado el firewall como corresponde, en el servidor tengo corriendo el servidor FTP Raiden FTPD y el IP_tools. Estos me muestran que la conexion se realizo con exito, pero al querer descargar el archivo me tira un error...

Project project1.exe raised a exception class EIdReplyRFCError with message 'Timeout (10 secs), closing control connection.

Este error solo ocurre si es que, escojo la opcion remota.
Por otro lado, hice la prueba conectando a traves de Windows al servidor FTP de forma remota y funciono de maravilla.

Que podra ser... gracias

Saludos

Si te conectas a traves de un router a internet prueba a utilizar el modo pasivo:

Código Delphi [-]
idftp1.passive:=true

gracias funciono perfecto

Hola...

Estaba funcionando el servidor FTP con la propiedad

Código Delphi [-]
idftp1.passive:=true

Pero ahora, sin hacer nada en particular, si me arroja este error...

Cannot open data connection (all_local 0 create failed)

Si es que dejo la propiedad passive en false, no tira error pero tampoco baja el archivo.

Que podra ser... alguna idea de como solucionarlo

Alguien tiene alguna idea de porque se produce este error:

Cannot open data connection (all_local 0 create failed)

Cuando me trato de conectar a un servidor FTP...

ayuda porfa,......