FTP_Receive

4D v20

FTP_Receive


FTP_Receive ( ftp_ID ; viaServidor ; viaLocal ; progresso ) -> Resultado

Parâmetro	Tipo	Descrição
ftp_ID	Inteiro longo	Referencia de uma conexão FTP
viaServidor	Texto	Via de acesso no servidor FTP do documento a receber
viaLocal	Texto	Via de acesso local de destino do documento
		Via de acesso do documento resultante (se passado "")
progresso	Inteiro	1 = Mostrar progresso, 0 = Ocultar progresso
Resultado	Inteiro	Código de erro

Descrição

O comando FTP_Receive recebe por FTP um arquivo da via de acesso referenciada por viaServidor. FTP_Receive devolve o erro -48 se o arquivo já existe no diretório de destino.

ftp_ID é a referencia inteiro longo da sessão FTP estabelecida com FTP_login.

servidorLocal é um valor texto que especifica a via de acesso Unix completa do documento a receber. Se viaServidor não é uma via de acesso completa a um documento, o comando devolverá um erro. Ao igual que com todas as vias de acesso aos documentos Unix, a via deve utilizar barras oblíquas como separadores ("/"). Para mais informação, consulte a seção Glossário e terminologia.

O parâmetro viaLocal especifica a via de acesso do documento a criar localmente. Se viaLocal é uma cadeia vazia, é mostrada a caixa de diálogo padrão Guardar arquivo e o nome e a via de acesso do arquivo resultante se devolve na variável viaLocal. Se viaLocal contém somente um nome de arquivo, o arquivo será guardado na mesma pasta que a estrutura da base de dados (com 4D monousuário) ou na pasta 4D Client (com 4D Server). Ao igual que com todas as vias de acesso a documentos locais, a via deve estar separada pelo delimitador correspondente à plataforma utilizada. Para mais informação, consulte a seção Glossário e terminologia.

Compatibilidade: O parâmetro progresso é obsoleto e é ignorado se for passado.

Exemplo

 vUseMacBin:=-1

 $error:=FTP_MacBinary(vFTP_ID;vUseMacBin)

 If($error=10053)

    MacBinaryIsSupported:=False `O servidor Ftp não suporta o protocolo MacBinary

 Else

    MacBinaryIsSupported:=True

 End if

 

 vLocalFile:=""

 If(MacBinaryIsSupported)

    vUseMacBin:=1

    $error:=FTP_MacBinary(vFTP_ID;vUseMacBin) `Ativa MacBinary para o download

    $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) `Se a decodificação é bem sucedida, apagar o arquivo fonte.

       End if

    End if

 End if

Ver também

FTP_MacBinary
IT_Decode