Clipper On Line • Ver Tópico - Acesso ao FTP com TLS

Acesso ao FTP com TLS

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Acesso ao FTP com TLS

Mensagempor Toledo » 21 Mar 2019 15:38

Amigos, estou desenvolvendo um sistema que tem que enviar um arquivo TXT via FTP para uma pasta no servidor, mas o FTP deste servidor tem criptografia (TLS) para conexão. Eu estou usando o Harbour 3.2 e não estou conseguindo fazer o acesso. Estou usando a função abaixo:

Function FtpConnect()
   Local cUser:= cPassWord:= cServer:= cUrl:= []

   cUser    := "xxxxxx1"
   cPassWord:= "xaxaxaF"
   cServer  := "ftp.xxxxxxxx.com.br"
   cUrl     := "ftp://" + Alltrim(cUser) + ":" + Alltrim(cPassWord) + "@" + Alltrim(cServer)

   oUrl:= tURL():New(cUrl)
   If Empty(oUrl)
      Msginfo("Endereço Inexistente")
      Return (.F.)
   Endif

   oClient:= TIpClientFtp():New(oUrl, .T.)
   If Empty(oClient)
      Msginfo("Sem Conexão")
      Return (.F.)
   Endif

   oClient:nConnTimeout  := 20000
   oClient:bUsePasv      := .T.
   oClient:oUrl:cUserID  := cUser
   oClient:oUrl:cServer  := cServer
   oClient:oUrl:cPassword:= cPassWord

   If oClient:Open()    //Aqui que nao esta funcionando
      If Empty(oClient:cReply)
         oClient:Pasv()
      Else
         oClient:Pasv()
      Endif
   Else
      Msginfo("Não abri conexão")
      Return (.F.)
   Endif
Return (.T.)


No arquivo de LOG criado, está retornando:

20190321-14:01:05 :INETCONNECT( ftp.xxxxxxx.com.br, 21 )
>> <pointer> <<

20190321-14:01:05 :INETERRORCODE( <pointer> )
>> 0 <<

20190321-14:01:05 :INETRECVLINE( <pointer>, , 128 )
>> 220 (vsFTPd 3.0.2) <<

20190321-14:01:05 :INETERRORCODE( <pointer> )
>> 0 <<

20190321-14:01:05 :INETSENDALL( <pointer>, 15, USER xxxxxxx1<cr><lf> )
>> 15 <<

20190321-14:01:05 :INETRECVLINE( <pointer>, , 128 )
>> 530 Non-anonymous sessions must use encryption. <<

20190321-14:01:05 :INETERRORCODE( <pointer> )
>> 0 <<


Alguém no Harbour já conseguiu conectar num servidor FTP com criptografia (TLS)?

Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Acesso ao FTP com TLS

Mensagempor asimoes » 21 Mar 2019 16:21

Toledo,

Quando eu tinha o serviço da Kinghost, era assim que eu utilizava o ftp

         WITH OBJECT oFTP :=  TIPclientFTP():New( ::oURL, .F. )
               :nConnTimeout   := ::nTimeOut
               :bUsePasv       := ::lUsePasv
               :oUrl:cServer   := ::cServer
               :oUrl:cUserID   := ::cUser
               :oUrl:cPassword := ::cPassword
               :nDefaultPort   := ::nPorta
               IF :Open()
                  :Cwd("/")
                  :Cwd(::cPastaFTP)     // muda o diretorio no FTP
                  FOR EACH oElemento IN :listFiles( "*.*" )
                      :DownLoadFile( cPastaLocal + oElemento[1], oElemento[1] )  // baixa o arquivo versão.txt dentro da pasta update
                      FileStats( cPastaLocal + oElemento[1], ;
                                 @cFileAttr, ;
                                 @nFileSize, ;
                                 @dCreateDate, ;
                                 @nCreateTime, ;
                                 @dChangeDate, ;
                                 @nChangeTime  )
                      :dele( oElemento[1] ) //deleta o arquivo no ftp
                      ::nTotal += nFileSize
                      ::lArqDn:=.T.
                      oClPF:SysWait(3)
                  NEXT
                  IF ::lArqDn
                     ::lSucessoDownload := .T.
                     :Commit()
                  ENDIF
                  :Close()
               ELSE
                  oMonitor:Notificar( "Erro, baixando " + :lastErrorMessage(), "Monitor AsaPrev", , 3 )
                  //MsgStop(oFTP:lastErrorMessage(), "erro no open")
               ENDIF
            END
â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Acesso ao FTP com TLS

Mensagempor Nascimento » 21 Mar 2019 16:26

A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

Acesso ao FTP com TLS

Mensagempor JoséQuintas » 22 Mar 2019 11:32

Dá uma olhada se tem exemplo na pasta tests da hblibcurl

Não sei se vai depender de atualizar Windows, porque o W7 não em isso se não for atualizado e configurado.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Bing [Bot], Google [Bot], Google Adsense [Bot] e 10 visitantes


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
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro