Hola,
Me estoy rompiendo la cabeza.
Resulta que en mi oficina las primitivas de fwh para Ftp me funcionan muy bien.
No ocurre así en casa del cliente, (Windows Server 2012 R2) donde no consigo que envien información. He probado con Filezilla y SI transmite a través de Ftp.
¿ Alguna idea de qué puede estar pasando ? ¿ Algún problema de las rutinas Ftp de Fwh en Windows 2012 Server R2 ? ¿ WinInet.dll buggy ?
Gracias
El mas probable, és que el Ftp del cliente, no acepta el Ftp de FWH por algun motivo que desconozco, acá en Brasil acontece bastante esto.
Saludos.
IF !ConectaServerFTP("xxx.sitio.com","user","password",@oFtp)
MsgStop("No pudo conectar")
ENDIF
SubeArchivoFtp(cArchivo,"xxx/public/carpeta-destino/destino.xxx",oFtp)
*****************************************
*** Conectar al servidor FTP
FUNCTION ConectaServerFTP(cNomSer,cNomUsr,cClaUsr,oFtp)
LOCAL cServer, cUser, cPassword, oUrl, cUrl
cServer := cNomSer
cUser := cNomUsr
cPassword := cClaUsr
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer
cUser:= strtran(cUser,"@","&at;")
oUrl := tUrl():New( cUrl )
IF At( "@", cUser ) > 0
oUrl:cUserID := strtran(cUser,"&at;","@")
oUrl:cPassword := cPassword
ENDIF
oFTP := tIPClientFtp():New( oUrl, .T. )
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
oFtp:bTrace := {|| .t.}
oFTP:Open( )
IF oFtp <> NIL
RETURN .T.
ENDIF
RETURN .F.
******************************************************************************
FUNCTION SubeArchivoFtp(cFileOri,cFileDes,oFtp)
oFtp:Dele( cFileDes )
oFtp:UpLoadFile( cFileOri, cFileDes )
RETURN .T.Karinha,
El cliente es el programa Fwh.
CmSoft,
Lo que propones es cambiar a la clase tIPClientFtp. Si no quedara más remedio lo haría, pero no me gusta la idea. Tenía mis propias clases Ftp basadas en la clase TFtp de Fwh.
Gracias a ambos por contestar
Lo curioso es que Filezilla en modo Ftp Simple si funciona en el Windows 2012 Server R2.
Y como dije, lo curioso es que acá en la oficina, con otro Windows naturalmente, si funciona perfectamente.
Asi que creo que el problema puede venir por incompatibilidad fwh/WinInet.dll - Windows 2012 Server R2
¿ Alguna idea más ?
Antonio,
FTP es un protocolo muy estandar, no hay riesgos de "incompatibilidad", si puede ser de configuración. ¿Desde donde te estas conectando? ¿A que servidor? ¿Has probado el modo pasivo? ¿Has registrado en el firewall del Windows Server tu programa para que no lo bloquee?
Un saludo
#define INTERNET_FLAG_PASSIVE 0x08000000 // used for FTP connections // AD2K
// AD2K (Puerto y Modo Pasivo)
METHOD New( cFTPSite, oInternet, cUserName, cPassword, nPort, lPassiveMode ) CLASS TFTP
DEFAULT nPort := FTP_PORT
DEFAULT lPassiveMode := .F.
::oInternet = oInternet
::cSite = cFTPSite
::cUserName = cUserName
::cPassword = cPassword
if oInternet:hSession != nil
::hFTP = InternetConnect( oInternet:hSession, cFTPSite, nPort /*FTP_PORT*/,;
::cUserName, ::cPassword,;
INTERNET_SERVICE_FTP, iif(lPassiveMode, INTERNET_FLAG_PASSIVE, 0), 0 )
if GetLastError() == 0
aAdd( oInternet:aFTPs, Self )
else
::hFTP := NIL
endif
endif
return SelfAntonio,
FTP es un protocolo muy estandar, no hay riesgos de "incompatibilidad", si puede ser de configuración. ¿Desde donde te estas conectando? ¿A que servidor? ¿Has probado el modo pasivo? ¿Has registrado en el firewall del Windows Server tu programa para que no lo bloquee?
Antonio,
No soy experto en Windows Server, pero un problema muy frecuente es que no se añade la aplicación (el 'exe') en la lista blanca del firewall. Eso lo tenía que hacer SIEMPRE en un programa que usaba FTP para enviar copias de seguridad de los ficheros a un servidor.
FTP es algo bastante conocido, los problemas suelen venir por parte de la configuración. Filezilla te funciona porque el mismo instalador registra el programa en el firewall.
Pide al técnico que te muestre la lista blanca de programas en el firewall.
en windows 10 eso está en :
Panel de control\Todos los elementos de Panel de control\Firewall de Windows\Aplicaciones permitidas
Aprovechando el hilo
Qué clase o herramienta es la que utilizáis para realizar las conexiones FTP con Fivewin?
Quiero incluir algo de ésto en FivEdit.
Carlos Mora wrote:Antonio,
No soy experto en Windows Server, pero un problema muy frecuente es que no se añade la aplicación (el 'exe') en la lista blanca del firewall. Eso lo tenía que hacer SIEMPRE en un programa que usaba FTP para enviar copias de seguridad de los ficheros a un servidor.
FTP es algo bastante conocido, los problemas suelen venir por parte de la configuración. Filezilla te funciona porque el mismo instalador registra el programa en el firewall.
Pide al técnico que te muestre la lista blanca de programas en el firewall.
en windows 10 eso está en :
Panel de control\Todos los elementos de Panel de control\Firewall de Windows\Aplicaciones permitidas
cnavarro wrote:Aprovechando el hilo
Qué clase o herramienta es la que utilizáis para realizar las conexiones FTP con Fivewin?
Quiero incluir algo de ésto en FivEdit.
Ya, también había pensado en ello y hacerlo a mano como dices que hace el compañero, pero pensaba que había alguna clase actualizada que se pudiera utilizar, y si no pues veremos lo que hago si no hay nada standard
Cristobal,
En su momento usé las provistas por FW, pero si tuviera que hacerlo de nuevo trataría de ir por el camino de CURL, que te garantiza que se mantiene actualizado, maneja bien todos los protocolos, y es bastante sencillo. De hecho en el contrib de hbcurl los test se hacen con FTP, asi es que seguramente funciona correctamente.
Y yo se que a ti CURL se te da bien 
Carlos, justamente en eso estaba pensando, me has leído el pensamiento
A ver si tengo un rato y trato de hacer una clase o utilidad que me sirva
Ya te preguntaré si tengo alguna duda
Saludos Antonio
Pues mi respuesta no te da ninguna solucion, pero si me sumo a tu problema, simplemente TipClientFtp() desde varios FTP mios me deja bajar sin problemas, pero desde un FTP en el server de un cliente mio, no me deja bajar, pero si le doy aFiles := oFTP:ListFiles( ".") me muestra que estan los archivos, pero al dar oFtp:DownLoadFile( cFileDown ) simplemente retorna .F., pero OJO solo en el FTP de mi cliente, en los 2 mios, externos por cierto si me baja sin problemas, pero si uso la clase qFTPClient() SI baja sin problemas, los ubica y los baja.
Si alguien sabe porque con una clase SI funciona y con otra NO seria ideal ...
