Clipper On Line • Ver Tópico - Dúvida com a função Leto_FCopyFromSrv()
Mudar para estilo Clássico
Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.
Postar uma resposta

Dúvida com a função Leto_FCopyFromSrv()

20 Dez 2018 08:49

Olá Pessoal,

Alguém usa a função Leto_FCopyFromSrv()?

Sintaxe:
Código:
Leto_FCopyFromSrv( cLocalFileName, sServerFileName[, nStepSize ] ) ==> lSuccess
O problema é que para gravar na pasta destino (local), precisa usar DirChange() para se posicionar na pasta onde quero gravar os arquivos que baixo do servidor. Isso não é problema, mas não é o que diz o manual.

O manual diz:
<cLocalFileName> can contain any redirector prefix known by Harbour
Só que não funciona. Se coloca qualquer redirecionador, não copia o arquivo. Exemplo:
Código:
Func BackServ()  // Faz backup dos arquivos de Dados do Servidor nessa máquina

Local x, aArqs, cFile

If File( "FezBackupServ.Cfg" ) .And. Directory( "FezBackupServ.Cfg" )[1,3] = cDataHoje  // se já atualizou hoje...
  Return Nil                                                                             // volta daqui...
EndIf

aArqs := Leto_Directory( PathLeto + cDrvDbf + "*.*" )  // pega a lista de arquivos da pasta dados do servidor...

DirMake( cDrvExe + "BackServ" )                       // se não existe a pasta BackServ, cria...
//DirChange( cDrvExe + "BackServ" )                     // torna BackServ a pasta corrente (só funciona assim)

For x=1 To Len( aArqs )

  cFile := aArqs[x,1]
 
  @ 2,2 Say "Copiando Arquivo => + cFile

  //If !Leto_FCopyFromSrv( cDrvExe + cFile, PathLeto + cDrvDbf + cFile )  // se coloca qualquer redirecionador, não copia o arquivo...
  If !Leto_FCopyFromSrv( cFile, PathLeto + cDrvDbf + cFile )  // passando para a pasta BackServ, e sem redirecionador dá certo...
   Hb_Alert( "Houve erro no Backup. Será feita nova tentativa mais tarde." )
   Return Nil
  EndIf
 
Next

//DirChange( ".." )     // retorna para a pasta anterior...

Hb_MemoWrit( "FezBackupServ.Cfg", "Atualizou backup do servidor em: " + DToC( datac ) )  // atualiza arquivo de controle...

Return Nil

Dúvida com a função Leto_FCopyFromSrv()

20 Dez 2018 15:30

Vi um exemplo aqui:

https://github.com/elchs/LetoDBf/blob/m ... t_file.prg

Mas se não está funcionando, coloca uma mensagem para o Rolf Elchs

Dúvida com a função Leto_FCopyFromSrv()

20 Dez 2018 17:31

asimoes escreveu:Vi um exemplo aqui:
Valeu Alexandre. É muita coisa pra ver nesse código. Vou ver com calma e depois dou o retorno. Por enquanto Obrigado.
Postar uma resposta