Problemas con FTP

[goosfancito]

Hola.
Estoy probando ya que no tengo de donde ver ejemplos en concreto y este programa no me esta devolviendo el array con los archivos que tengo en mi ftp

Code: Select all  Expand view  RUN

msgRun( "Conectando al ftp", "Momento por favor...", ;
           { || oInternet := TInternet():New(), ;
             IF( Empty( oInternet:hSession ), ;
                 MsgAlert( "No hay internet" ), ), ;
             oFtp := TFTP():New( cFtp, oInternet, cUsuario, cPassword  ) } )


   IF ! Empty( oFtp:hFTP )
      ftpsetcurrentdirectory(oFtp:hFTP, "./uno/")
      amask := { "*.*" }
      afiles := oFtp:Directory(amask[ 1 ] )
      VIEW afiles
   ELSE
      ? "vacio"
   ENDIF


   oInternet:END()

en mi ftp dentro de la carpeta "uno" existe un solo achivo "antedecende.pdf"

gracias.

[hmpaquito]

Intenta en modo pasivo, tal que asi:

Code: Select all  Expand view  RUN

lModoPasivo:= .T.
msgRun( "Conectando al ftp", "Momento por favor...", ;
           { || oInternet := TInternet():New(), ;
             IF( Empty( oInternet:hSession ), ;
                 MsgAlert( "No hay internet" ), ), ;
             oFtp := TFTP():New( cFtp, oInternet, cUsuario, cPassword , lModoPasivo ) } )

[goosfancito]

la conexion se hace, lo que no entiendo es lo de la lectura del archivo porque no puedo hacerla.

Code: Select all  Expand view  RUN

  IF ! Empty( oFtp:hFTP )
      oFile := TFtpFile():new( "./uno/transferencia.pdf", oFtp )
      oFile:OpenRead()

      DO WHILE ( nBytes := Len( cBuffer := oFile:read( nBufSize ) ) ) > 0
      ? "leyendo"
      END DO

      oFile:END()

   ELSE
      ? "No se conecto"
   ENDIF
 

en el servidor de ftp hay una carpeta que se llama "uno" y dentro de ella el archivo que necesito descargar que se llama "transferencia.pdf"
pero no lo lee de hecho nunca pasa por el bucle. Hay alguna forma de ver el log del ftp si es que envia error?

[goosfancito]

when i test the code return HB_INETTIMEOUT

why?

[hmpaquito]

En mi particular TFtp desarrollé un metodo ::SetTimeOut(). Lo utilizo asi:

Code: Select all  Expand view  RUN

#Define aPosEle(xBusca, aBusca, aDevolver) aDevolver[ AScan(aBusca, xBusca) ]

oFtp:= TFTP():New( cFtp, oInternet, cUsuario, cPassword , lModoPasivo )
oFtp:SetTimeOut(1, 40)
 

Code: Select all  Expand view  RUN

METHOD SetTimeOut(nCualTimeOut, nSecTimeOut)
Local l
Local cTimeOut
Local nMiliSecTimeOut:= nSecTimeOut* 1000
Local nCual
*
#Define INTERNET_OPTION_CONNECT_TIMEOUT 2      // 1
#Define INTERNET_OPTION_RECEIVE_TIMEOUT 6      // 2
#Define INTERNET_OPTION_SEND_TIMEOUT    5      // 3
*
nCual:= aPosEle(nCualTimeOut, {1, 2, 3},;
          {INTERNET_OPTION_CONNECT_TIMEOUT, INTERNET_OPTION_RECEIVE_TIMEOUT, INTERNET_OPTION_SEND_TIMEOUT})
*

cTimeOut:= LTrim(Str(nMiliSecTimeOut, 10, 0))

l:= InternetSetOption(::oInternet:hSession, nCual, @cTimeOut, 4)

RETURN NIL

*

Postdata: http://www.fivetechsupport.com/forums/v ... =0#p172020

[karinha]

http://fivewin.com.br/index.php?/topic/27829-ftp-com-fivewin-exemplo/&tab=comments#comment-284488

http://fivewin.com.br/index.php?/topic/24344-pegar-um-arquivo-no-ftp/&tab=comments#comment-272420

Saludos.

[goosfancito]

gracias a ambos!

[hmpaquito]

Espero que puedas comentar al foro cual fue la solución final

[goosfancito]

sigo teniendo problemas. La conexion pude hacerla sin problemas, pero al momento de "enviar" el archvo me genera el archivo en el ftp pero con 0 bytes.
estoy probando ejemplos y no tengo mucha info con los samples del fw.

Code: Select all  Expand view  RUN

 oInternet := TInternet():new()
   oFtp      := TFtp():new( cFtp, oInternet, cUsuario, cPassword )
   
   IF ! Empty( oFtp:hFTP )
         // nunca me devuelve los archivos que tengo en el ftp
         afiles = oFtp:Directory( "*.*" )
         AEval( afiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )
   ELSE
      ? "problemas"
   ENDIF
   
   oFtp:END()
   oInternet:END()

[hmpaquito]

Pues según tu ejemplo veo que:

1º no has puesto la sugerencia que te hice de pasar el parametro de modo pasivo
2º no has puesto la sugerencia que te hice de establecer un time-out

[Antonio Linares]

Gustavo,

Aqui tienes ejemplos funcionando correctamente:
viewtopic.php?f=3&t=40326&start=0

[groiss]

Buenas tardes
Aquí te pongo como envio yo un grupo de ficheros que paso a la función en un array a la carpeta destino que añado en la llamada a la función

Code: Select all  Expand view  RUN

function FTPSendFiles( aSource,ccarpeta)
   local  cusuario:="", cpassword:="", cftpsite:="", cdirectorio:="", lock:=.f., i:=0
   cusuario:="miusuario"
   cpassword:="mipassword"
   cftpsite:="miurl"
   cdirectorio:=ccapeta
        oInternet := Turl():New("ftp://"+cusuario+":"+cpassword+"@+cftpsite)
            oFTP:= TIpClientFtp():New(oInternet, .f.)
            oFTP:open()
            if len(cdirectorio)>0
                    oftp:cwd(alltrim(cdirectorio))
            endif
   
           for i=1 to len(asource)
           lok:=oFtp:UploadFile(".\WWW\"+lower(cfilenoext(asource[i]))+".html",lower(cfilenoext(asource[i]))+".html") //aqui resumo la ruta de origen y extensión a mi conveniencia
           if !lok
                msgstop("No se ha podido conectar","Acceso WEB")
           endif
           next i
           oftp:close()
return nil

Un saludo

[Antonio Linares]

Jose Luis,

muchas gracias