Spanish FTP. Descarga completa de archivo.

Discussion in 'Spanish Forum' started by Fernando, Apr 7, 2009.

  1. Fernando

    Fernando Member

    Ustedes disculpen pero soy nuevo y tengo muchas dudas.

    En el siguiente código. ¿Cómo sabar que la descarga del archivo ha sido exitosa?
    Por que puede perderse la comunicación. Mismo caso para
    ftp.PutFile ( )

    GetFile y PutFile no regresan un True o False para saber si ha sido exitosa la transferencia del archivo.



    aArchivos() = ftp.GetEntries("*DF*.DBF",False)

    For i = 0 To ArrayLen( aArchivos() )-1 Step 3
    WaitCursor(True)
    name = aArchivos(i)
    ftp.GetFile(name,AppPath & "\" & name)
    WaitCursor(False)
    Next

    Gracias
    Fernando Leal
     
  2. manu

    manu Active Member Licensed User

    Hola Fernando.

    Te estoy dando una respuesta rápida, espero que te ayude.

    Lo primero puedes utilizar el "ErrorLabel" para que te avise si pierdes la comunicación .
    Otra opción seria cargar por ejemplo una tabla con los ficheros que tienes en la dirección donde estas enviando el fichero y comprobar si existe el que has enviado.

    Deberiamos de tener una opción tipo FileExist para comprobar si esta el fichero en cuestión, a mi me ha pasado lo mismo que a tí, necesito asegurarme de que ha sido traspasado.

    un saludo
     
  3. Fernando

    Fernando Member

    cierto

    Manu,

    Voy hacer lo siguiente.

    // Subir el archivo
    ftp.PutFile (AppPath & "\image001.jpg","Image001.jpg")

    // Leer los archivos del directorio en FTP
    aArchivos() = ftp.GetEntries("Image001.jpg",False)

    Verificar el tamaño del archivo subido
    nSize = aArchivos(2)

    y comparar el tamaño del archivo a enviar con el enviado.


    Bien, pienso que esa sería la solución. :)
     
  4. Jgamez

    Jgamez New Member

    Como se configura FTP con Basic4pp

    Como se configura FTP con Basic4pp
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice