Clipper On Line • Ver Tópico - Dúvida com a função Leto_FCopyFromSrv()

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

Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

 

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

Mensagempor Jairo Maia » 20 Dez 2018 08:49

Olá Pessoal,

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

Sintaxe:
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:
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
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2428
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 293 vezes
Mens.Curtidas: 260 vezes

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

Mensagempor asimoes » 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
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4159
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 292 vezes
Mens.Curtidas: 208 vezes

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

Mensagempor Jairo Maia » 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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2428
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 293 vezes
Mens.Curtidas: 260 vezes




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Ahrefs [Bot] e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro