Código: Selecionar todos
//--> Esta parte esta abaixo da function enviaftp, mas eu por questão de forma de trabalho coloquei acima, mas isso não é o problema ok...
#include "inkey.ch"
#include "fileio.ch"
#include "common.ch"
#include "Directry.ch"
#define eFTPSERVER1 'ftp.meuenderecoftp.com.br' // ENDEREÇO SERVIDOR FTP 01
#define eFTPPORTA 21 // PORTA DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
#define eFTPUSER 'myuser' // USUARIO DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
#define eFTPPASS 'mypassword' // SENHA DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
function enviaftp()
altd() //--> chamo o debug pra acompanhar
arqv := 'testeftp.exe' //->meu arquivo a ser enviado pro FTP pra testar
pasta := 'www\' //-> minha pasta a ser changed qdo logar no FTP
aDir0 := directory(arqv)
IF UPLOAD_ARQ( alltrim(pasta), alltrim(arqv) ) = .F.
@ maxrow(),1 say "Arquivo não enviado "
tone(261.7,23)
inkey(10)
return .f.
else
return .t.
ENDIF
RETURN NIL
STATIC FUNCTION UPLOAD_ARQ( FTPDIR, farq )
Local cUrl, oUrl, oFTP, cFTPSERVER:=''
LOCAL vzerr := 0, cLista:='' //--> criei aki como local pq a primeira vzerr dava erro q eu não tinha essa variavel talvez no teu código macro estivesse vindo como public ou private de alguma chamada anterior, porém aki pra efeito de testes defini como zero e local os valores iniciais, e a outra eu explico mais abaixo.
cFTPSERVER:=eFTPSERVER1
cUrl := "ftp://" + eFTPUSER + ":" + eFTPPASS + "@" + cFTPSERVER
oUrl := tUrl():New( cUrl )
oFTP := tIPClientFtp():New( oUrl, .F. )
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
oFTP:nDefaultPort := eFTPPORTA //PORTA DO FTP
oFTP:oUrl:cUserID := eFTPUSER
oFTP:oUrl:cServer := cFTPSERVER
oFTP:oUrl:cPassword := eFTPPASS
IF oFTP:Open( cUrl )
clista:=oFTP:List() //--> isso aki eu uso pra ver o conteudo da onde estou no FTP é tipo um comando DIR, pq ai no debug eu vejo o conteudo desta variavel durante a execução do código acompanhando seu valor
//--> aki é o X da questão, observe q vc mandou ele trocar de diretório mas se não achar cria, PORÉM SE ACHAR ELE JÁ TROCOU ENTENDE...
IF !oFTP:Cwd(ftpdir) // se não achar o diretorio ele cria
cria="N"
if us="I"
@ maxrow(),1 say "Pasta "+ftpdir+" inexistente no FTP; criar a pasta?"get cria pict "@!"
tone(261.7,33)
read
endif
if cria="S"
oFTP:MKD(ftpdir) // cria o diretorio
else
return .f.
endif
ENDIF
// ESSE IF ABAIXO ESTA ANALISANDO SE MUDAR DE PASTA NÃO DER CERTO AI MANDA UM EMAIL E RETORNA FALSO, PORÉM A CONDIÇÃO ACIMA É VERDADEIRA ELE JÁ ENCONTRA A PASTA E MUDA AUTOMATICAMENTE A CONDIÇÃO ABAIXO SE NÃO TIVER OUTRA PASTA COM O MESMO NOME VAI RETORNAR FALSO, DANDO A IMPRESSÃO QUE NÃO ESTA FUNCIONANDO, PORÉM A LÓGICA É Q FAZENDO COM Q RETORNE FALSO POIS NÃO TEM OUTRA PASTA DE MESMO NOME.
/*
if oFTP:Cwd(ftpdir)=.f. // muda o diretorio
if vzerr=1 .or. int(vzerr/15)=vzerr/15
mandmail1("","Retornou .f. no cwd; COMUNS 431")
endif
vzerr++
return .f.
ENDIF
*/
if oFTP:reset()=.f. //--> ESSA CONDIÇÃO EU NÃO USO NO MEU CÓDIGO E NÃO SEI EXPLICAR PORÉM AO TESTAR NÃO INFLUENCIOU.
// mandmail1("","Retornou .f. no reset; COMUNS 438")
return .f.
endif
//--> O RESTANTE BLZ VAI Q VAI...
if oFtp:UploadFile( farq )=.f.
if usooff#"S"
@ maxrow(),1 say "Não é possível enviar o arquivo"
endif
return .f.
endif
oFTP:Close() // fecha a conexão do FTP
ENDIF
RETURN( .T.)
Código: Selecionar todos
Function listaftp(pasta)
ftpproto ="ftp://" //posthilit">ftp://"
ftpserver = ftps // posthilit">ftp.servidor.com.br" endereço de ="posthilit">FTP</span> do site
ftpuser = "inaciobr" //Usuário da conta ="posthilit">FTP</span>
curl:=ftpproto+ftpuser+":"+snhftp+"@"+ftpserver
oUrl:= turl():new(curl)
oCred:= tIPCredentials()
oFtp:= tipclientftp():NEW(oUrl,,.T.)
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
IF oFTP:Open()
if oFTP:Cwd(pasta)=.f.
return .f.
endif
clista:=oFTP:List()
if usebase("arqbx","S")=.t.
dele all
pack
clista=substr(clista,40)
do while .t.
if empty(clista) .or. at("www.ina",clista)=1
exit
endif
nrfinal=at(".",substr(clista,1,10))+3
if at(".",substr(clista,nrfinal,5))=0
append blank
repl nome with substr(clista,1,nrfinal)
else
nrfinal=nrfinal+4
endif
clista=substr(clista,nrfinal+42)
if len(clista)<5
exit
endif
enddo
else
return .f.
ENDIF
else
return .f.
endif
oFTP:Close()
Return .t.
Código: Selecionar todos
if oFTP:Cwd(pasta)=.f.
Código: Selecionar todos
if oFTP:Cwd(pasta)=.f.Código: Selecionar todos
nTentativas := 1
While oFTP:Cwd(pasta)=.f.
InKey( .5 ) // aguarda 1/2 segundo
nTentativas++
If nTentativas = 3 // após 3 tentativas p.e.
Hb_Alert( "Falha na conexão com o servidor.;Tente novamente depois." )
Return .f.
EndIf
EndDo