Código: Selecionar todos
pegaftp("arqbx.dbf",ptftp+"meusarq/tarefas")Código: Selecionar todos
public ptftp :="/inaciobr/"Código: Selecionar todos
Function Main()
Local arqvpeg:="arqbx.dbf",pasta:="/inaciobr/meusarq/tarefas"
Local ntentativa :=0
Local ftps:="ftp.xxxx.com.br",;
usftp:="xxxx",;
snhftp:="xxxx"
ftpproto ="ftp://"
ftpserver = ftps
ftpuser = usftp
ftppass = snhftp
curl:=ftpproto+ftpuser+":"+ftppass+"@"+ftpserver
oCred:= tIPCredentials()
oUrl:= turl():new(curl)
oFtp:= tipclientftp():NEW(oUrl,,.T.)
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
@ maxrow()-1,1 clear to maxrow()-1,maxcol()-1
@ maxrow()-1,1 say "Abrindo conexão..."
do while .t.
If oFTP:Open()=.t.
exit
else
@ maxrow()-1,1 clear to maxrow()-1,maxcol()-1
@ maxrow()-1,1 say "Não abriu o FTP; tentando novamente ("+alltrim(str(nTentativa))+")"
nTentativa++
inkey(5)
if nTentativa>10
return .f.
endif
endif
enddo
@ maxrow()-1,1 clear to maxrow()-1,maxcol()-1
@ maxrow()-1,1 say "Fazendo download do arquivo "+arqvpeg
oFTP:Cwd(pasta)
if !oFtp:DownLoadFile(arqvpeg) //informe o nome do arquivo que você quer baixar
return .f.
endif
oFTP:Close()
@ maxrow()-1,1 clear to maxrow()-1,maxcol()-1
@ maxrow()-1,1 say "Arquivo "+arqvpeg+" baixado com sucesso"
inkey(3)
Return .t.Sim. Você pode usar o :cRepaly. Por exemplo, no exemplo do Toledo, em cada linha do comando FTP você pode ver se foi corretamente executado alterando para debugar. Exemplo essa linha:cjp escreveu:Será que não existe um log ou alguma forma de debugar para saber onde está o problema?
Código: Selecionar todos
oFTP:Cwd(pasta)Código: Selecionar todos
? oFTP:Cwd(pasta), oFTP:cRepaly // se deu tudo certo, retorna .T.