Alguém usa algum programa FTP Client via linha comando

[ANDRIL]

Meu site passou a ter SSL e agora o TipClientFtp() não funciona. Eu já uso o TipClientFtp() com usuário e senha mas não consigo conectar o servidor.
Alguma alternativa?

Meu harbour

Harbour 3.2.0dev (r1502201040)
Copyright (c) 1999-2015, http://harbour-project.org/

[JoséQuintas]

Em geral isso é uma merd. resolve uma coisa vém outra.
Veja se dá pra usar MySQL, por enquanto não fod.eram com ele.

Por http:
As bostas dos navegadores, PRINCIPALMENTE CHROME, mexem com cache de internet, e baixam errado

Por ftp:
Tem essas bost.as de SSL que inventaram, e o Harbour precisa algo mais pra isso

Por MySQL:
Elimina os dois problemas anteriores

Por coincidência, problema agora em cliente, Windows 11 e CHROME instalado.
Coloquei arquivo novo pra download, e lá baixa o velho.

[ANDRIL]

Alguém usando algum cliente via linha de comando e que não precise instalação (só chamar o exe para executar) e aceite conectar em site com SSL ativado?
Tive vendo o winscp e o filezilla, tem outra opção?

[ANDRIL]

José obrigado, mas Mysql não vai dar.
Preciso de algo via FTP mesmo, abri um tópico para saber se alguém usa algum client que seja via linha de comando.

[JoséQuintas]

Preciso de algo via FTP mesmo, abri um tópico para saber se alguém usa algum client que seja via linha de comando.

Via linha de comando é o próprio ftp do Windows, mas pode expor senha.

Código: Selecionar todos

hb_MemoWrit( "arquivo.ftp" )
run ( "ftp.exe < arquivo.ftp" )
fErase( "arquivo.ftp" )

e em arquivo.ftp, não lembro direito

Código: Selecionar todos

open ftp.nome.com.br
user xxx password xxxx
get arquivo.exe arquivo2.exe
close
quit

[ANDRIL]

Olá José, depois que fiz o post achei o FTP do Windows porem não funcionou para acesso ao meu site com HTTPS. Fiz teste em outro site sem o HTTP e funcionou normalmente. Creio que talvez deva ter um parametro que deve ir no arquivo de script.


open ftp.nome.com.br
user xxx
password xxxx
binary
get arquivo.exe
close
quit


Quando uso este script me retorna

200 PORT command successful
425 Could not open data connection to port 58547: Connection refused

Alguma dica?


José, se possível, poderia mover estes tópicos para o meu outro que abri hoje em Ferramentas de Apoio.
https://pctoledo.org/forum/viewto ... 39&t=27018

[JoséQuintas]

https://www.vbforums.com/showthread.php ... -using-vb6

Aqui menciona winscp, direto, ou um componente COM que eles disponibilizam.
O que é componente COM ?

Código: Selecionar todos

oCom := win_OleCreateObject( "xxxx" )
oCom:...

https://winscp.net/eng/docs/library_com_wsh#vbscript

Na maior parte dos casos, trocar "." por ":"
isto: session.open sessionOptions equivale a isto session:Open( sessionOptions )
Em VB, se a função não tem retorno, é chamada como comando e não como função.
isto: Set variavel = xxx é o mesmo que isto variavel = xxx, já devem conhecer do MySQL, no VB é assim quando é uma variável com conteúdo especial
Acho que isso é suficiente pra traduzir a rotina, e outras que possam aparecer.

Ou então... usa logo o WScript do Windows e copia do jeito que está.

[Itamar M. Lins Jr.]

Olá!
SSH é uma coisa Open SSL outra.
Não confunda alho com bugalhos.

Saudações,
Itamar M. Lins Jr.

[sygecom]

Meu site passou a ter SSL e agora o TipClientFtp() não funciona. Eu já uso o TipClientFtp() com usuário e senha mas não consigo conectar o servidor.
Alguma alternativa?

Meu harbour

Harbour 3.2.0dev (r1502201040)
Copyright (c) 1999-2015, http://harbour-project.org/

Colega, talvez seja um caminho mais facil apenas linkar a tipssl.lib e, resolver o uso do HTTPS no xHarbour ou Harbour dependendo que você usa ai.

[JoséQuintas]

SSH é uma coisa Open SSL outra.
Não confunda alho com bugalhos.

winscp é um programa de ftp.
Peguei um exemplo qualquer.
Quem precisar verifica as opções.

[rochinha]

Amiguinhos,

Vou deixar um exemplo que usa funções Fivewin e que pode ser adaptada para uso sem elas:

Código: Selecionar todos

function PutBackupOnFTPEXE( _file_ )
   //
   LOCAL CRLF := chr(13)+chr(10)
   cSHFTPServerName     :=  "198.22.101.137"  // ftp.dominio.com.br
   cSHFTPLoginID        :=  "usuarioftp@dominio.com.br"
   cSHFTPPassword       :=  "Svper#S3NH@"
   cSHServerFolder      :=  "backups"
   cSHLocalFolder       := CURDIR() + "\NF-e\remessa\nfe"
   errhandle := FCreate( "backup.ftp" )
   cSTRFile :=            "open " + cSHFTPServerName + CRLF
   cSTRFile := cSTRFile + cSHFTPLoginID + CRLF
   cSTRFile := cSTRFile + cSHFTPPassword + CRLF
   cSTRFile := cSTRFile + "cd " + cSHServerFolder + CRLF
   cSTRFile := cSTRFile + "hash" + CRLF
   cSTRFile := cSTRFile + "lcd " + cSHLocalFolder + CRLF
   cSTRFile := cSTRFile + "binary" + CRLF
   cSTRFile := cSTRFile + "put " + _file_ + CRLF
   cSTRFile := cSTRFile + "disconnect" + CRLF
   cSTRFile := cSTRFile + "bye" + CRLF
   cSTRFile := cSTRFile + "quit" + CRLF
   FWrite( errhandle, cSTRFile )
   FClose( errhandle )
   //
   // RUN "ftp -s:backup.ftp"
   MsgRun( "Aguarde o backup seguro na internet sendo realizado...", "Cloud-Backup", { || WinEXEC( "ftp -s:backup.ftp", 2 ) } )
   //
   return nil

Complementando é possível usar um componente do PuTTY, PSFTP.EXE( https://www.puttygen.com/psftp.

Deixo alguns comandos que esbocei para uso deste recurso:

Código: Selecionar todos

FUNCTION SFTPPUT( cSrv, cPrt, cUsr, cPsw, cFile )
    LOCAL lOk
    MEMOWRIT( "psftp.cmd", "put " + cFile, .F. )
    lOk = WAITRUN( "psftp " + cSrv + " -P " + cPrt + " -l " + cUsr + " -pw " + cPsw + " -b psftp.cmd", SW_HIDE ) = 0
    FERASE( "psftp.cmd" )
    RETURN lOk
	
FUNCTION SFTPGET( cSrv, cPrt, cUsr, cPsw, cFile )
    LOCAL lOk
    MEMOWRIT( "psftp.cmd", "get " + cFile, .F. )
    lOk = WAITRUN( "psftp " + cSrv + " -P " + cPrt + " -l " + cUsr + " -pw " + cPsw + " -b psftp.cmd", SW_HIDE ) = 0
    FERASE( "psftp.cmd" )
    RETURN lOk

[Fernando queiroz]

Código: Selecionar todos

import ftplib
import sys
from datetime import datetime
import time

param = sys.argv[1:]
if param == []:
    file = 's-gc.exe'
else:
    file = param[0]
start = datetime.now()
ftp = ftplib.FTP('ftp.sistemas.com')
ftp.login('usuario', '**password**')
ftp.cwd('/sistemas')
print("Downloading..." + file)
ftp.retrbinary("RETR " + file, open(file, 'wb').write)
ftp.close()
end = datetime.now()
diff = end - start
print('All files downloaded for ' + str(diff.seconds) + 's')
time.sleep(6)

fiz esse programinha em python para baixar via FTP meus aplicativos e fazer atualizacoes
gerei o .exe para ficar mais facil , use : pyinstaller –onefile atualiza.py

https://docs.python.org/3/library/ftplib.html