4D Doc Center : FTP

4D Internet Commands v14

FTP_Receive


FTP_Receive ( ftp_ID ; rutaServidor ; rutaLocal ; Progreso ) -> resultado

Parámetro	Tipo	Descripción
ftp_ID	Entero largo	Referencia de una conexión FTP
rutaServidor	Texto	Ruta de acceso en el servidor FTP del documento a recibir
rutaLocal	Texto	Ruta de acceso local de destino del documento
		Ruta de acceso del documento resultante (si se pasa "")
Progreso	Entero	1 = Mostrar progreso, 0 = Ocultar progreso
resultado	Entero	Código de error

Descripción

El comando FTP_Receive recibe por FTP un archivo de la ruta de acceso referenciada por rutaServidor. FTP_Receive devuelve el error -48 si el archivo ya existe en el directorio de destino.

ftp_ID es la referencia entero largo de la sesión FTP establecida con FTP_login.

servidorLocal es un valor texto que especifica la ruta de acceso Unix completa del documento a recibir. Si rutaServidor no es una ruta de acceso completa a un documento, el comando devolverá un error. Al igual que con todas las rutas de acceso a los documentos Unix, la ruta debe utilizar barras oblicuas como separadores ("/"). Para obtener más información, consulte la sección Glosario y terminología.

El parámetro rutaLocal especifica la ruta de acceso del documento a crear localmente. Si rutaLocal es una cadena vacía, se muestra la caja de diálogo estándar Guardar archivo y el nombre y la ruta de acceso del archivo resultante se devuelve en la variable rutaLocal. Si rutaLocal contiene sólo un nombre de archivo, el archivo se guardará en la misma carpeta que la estructura de la base de datos (con 4D monousuario) o en la carpeta 4D Client (con 4D Server). Al igual que con todas las rutas de acceso a documentos locales, la ruta debe estar separada por el delimitador correspondiente a la plataforma utilizada. Para obtener más información, consulte la sección Glosario y terminología.

El parámetro progreso indica si el termómetro de progreso se debe mostrar o no. Pase 1 para mostrar termómetro de progreso ó 0 para ocultarlo.

Ejemplo

 vUseMacBin:=-1

 $error:=FTP_MacBinary(vFTP_ID;vUseMacBin)

 If($error=10053)

    MacBinaryIsSupported:=False `El servidor Ftp no soporta el protocolo MacBinary

 Else

    MacBinaryIsSupported:=True

 End if

 

 vLocalFile:=""

 If(MacBinaryIsSupported)

    vUseMacBin:=1

    $error:=FTP_MacBinary(vFTP_ID;vUseMacBin) `Activa MacBinary para la descarga

    $error:=FTP_Receive(vFTP_ID;"CGMiniViewer.hqx";vLocalFile;cbShowTherm)

    If($error=0) & (vUseMacBin=1)

       vDecodePath:=""

       If(IT_Decode(vLocalFile;vDecodePath;8)=0) `Decodificar MacBinary

          DELETE DOCUMENT(vLocalFile) `Si la decodificación es exitosa, borrar el archivo fuente.

       End if

    End if

 End if