Problema al examinar FTP

[ArturoPC]

Estimados:

 

Estoy trabajando con FTP subiendo archivos desde hace un buen tiempo pero siempre subía archivos.

 

Ahora he empezado a buscar archivos disponibles para descarga y descargarlos. Todo desde mi oficina funciona bien; sin embargo, desde mi clientes no.

 

He intentado con la clase iFox, con la FLL vfpconnection y con la clase FTP de Robert Abram y nada.

 

Evidentemente es un tema de restricción del servidor hacia mi aplicación (ya que el FileZilla funciona bien) pero el responsable del servidor me indica que no hay ninguna restricción y que no debería tener problemas; sin embargo, nada, desde mis clientes imposible.

 

He buscado por todos lados y no he encontrado alo que me pueda ayudar, así que agradeceré si alguien me da una pista de por donde buscar.

 

Slds

 

Arturo PC

[Antonio.xt]

Que tal ArturoPC, yo he usado iFox y no he tenido problemas para ver y descargar archivos por FTP, los comandos que use son los siguientes:

* Para establecer la conexion con el Servidor FTP

oFTP = CreateObject("iFox.FTP")

* Para ver si el archivo que busco existe en el servidor FTP

nFiles = oFTP.Dir({carpeta del servidor FTP}, {archivo a buscar})

* Para bajar el archivo

lResp = oFTP.Download({Ruta y archivo del servidor FTP}, {Nombre que se le dara al archivo bajado})

A ver si estas lineas lo solucionan.

Saludos...

[Arturo Panana]

Gracias Antonio.

 

Exacto eso es lo que hago y en mi oficina funciona bien pero desde mis clientes no.

 

La línea  oFTP.Dir({carpeta del servidor FTP}, {archivo a buscar}) me devuelve -3

 

A.

[Martin sugarria]

Fujate el firewall, antivirus y todo lo que sea seguridad


Enviado de Samsung Galxy S II+ Mobile

[Arturo Panana]

Avanzado.

 

Logro conectarme al servidor FTP, pero cuando quiero listar los archivos que hay en el directorio me devuelve el siguiente mensaje

 

500 Illegal PORT command.

 

En teoría no hay problemas con el fierewall, el antivirus o la seguridad. Es más, desde el FileZilla sí puedo ver los archivos sin problema.

 

Intenté con FCE4FP de MarshallSoft y es lo mismo.

 

A.

 

[Fabio Ramirez]

En el componente de  FCE4FP de MarshallSoft

Revisa estos parametros en FCE4FP   aveces el problema es que no esta en modo pasivo...

si no activo.... mira a ver si depronto por alli.-..

llevo muchos años con FCE4FP, con muchos tipos de servidores y clientes, y esta es la mejor herramienta que he conocido para fox...

* Se configura para los servidores que soportan modo pasivo.

Code = fceSetInteger(0, FCE_SET_PASSIVE, 1)

if ftpIsBinary > 0

  * ? "Setting BINARY transfer mode"

  Code = fceSetMode(0,ASC("B"))

else

  * ? "Setting ASCII transfer mode"

  Code = fceSetMode(0,ASC("A"))

ENDIF

[Arturo Panana]

Gracias Fabio.

 

Te comento que he estado buscando esa línea para cambiar a modo pasivo y he hecho un intento de armarlo por mi cuenta pero nada. Mi desconocimiento arranca en el DECLARE INTEGER

 

He realizado los siguientes pasos:

 

DECLARE INTEGER fceSetInteger in FCE32.DLL INTEGER Chan, STRING @ParamName, Integer ParamValue

 

FTPParamName = "FCE_SET_PASSIVE"

Code = fceSetInteger(0, @FTPParamName, 1)

 

Me devuelve -1, Socket has been closed.

 

He leído muy buenos comentarios de la herramienta y si logro levantar hoy mismo el problema, la compro de inmediato.

[William Jara]

Buenos días a todos, despues de tener un error similar al querer subir archivos por FTP tuve que trastear documentos para solucionar por medio de coneccion pasiva

#DEFINE INTERNET_FLAG_PASSIVE  134217728

DECLARE INTEGER InternetConnect IN wininet.dll;

INTEGER hInternetSession,;

STRING sServerName,;

INTEGER nServerPort,;

STRING sUsername,;

STRING sPassword,;

INTEGER lService,;

INTEGER lFlags,;

INTEGER lContext

hftpsession = internetconnect(hopen,ftphost,21,ftpuser,ftppass,1,INTERNET_FLAG_PASSIVE,0)

Espero les sea de ayuda