FTP Remoto

[mjjj]

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

[[seoane]]

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

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

[mjjj]

gracias funciono perfecto

[mjjj]

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

[mjjj]

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,......