PC Toledo

Enviado: **29 Jul 2025 12:23**

Boa tarde , preciso de uma ajuda , usava esta rotina , e tempos depois nao condigo mais.

cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer

? "cUrl",cUrl

oUrl := tUrl():New( cUrl ) //// AQUI O SISTEMA TRAVA

? "tUrl..."

oFtp := TIPClientFtp():New( oUrl ,.T. )

? "TIPClientFtp..."

Enviado: **29 Jul 2025 13:36**

Isso é bem relativo, a resposta é: pode ser qualquer coisa.

Vai por partes:

endereço, usuário e senha

Conexão deixou de ser comum e passou a ser protegida ? aí não serve a comum do harbour.

Pode ser eventual, já aconteceu comigo, vai que testou justo no dia que tá com problema....

Tente comparar acessando por outra opção.

Lembre-se:
HTTPS, FTPS, esses usam conexão segura, talvez com HBSSL, sei lá.
E também W7 não vém com isso instalado, depende de instalação "manual".
Alternativa pra isso é a libcurl.
Ou, correndo o risco de ficar visível, o FTP.EXE do Windows, passando arquivo texto "FTP.EXE < arquivo.txt" ou equivalente.

Aliás... esse é outro teste possível, testar com o FTP.EXE do Windows pra ver o que acontece.

Teste feito agora no Windows 11.
Primeira vez que uso isso no Windows 11 ..... existe nele também....

JUDSON ROSA escreveu:Boa tarde , preciso de uma ajuda , usava esta rotina , e tempos depois nao condigo mais.
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer
? "cUrl",cUrl
oUrl := tUrl():New( cUrl ) //// AQUI O SISTEMA TRAVA
? "tUrl..."
oFtp := TIPClientFtp():New( oUrl ,.T. )
? "TIPClientFtp..."

Minha função de download de arquivos do FTP

Código: Selecionar todos

Function DownLoad_Resource(cPathFileFtp,cPathFileLocal)
Local oErr,oFtp,lFalha := .F., oCred
Local cPathExe   := Left(HB_ArgV(0),Rat('\',HB_ArgV(0)))
Local cFileFtp   := cPathExe + "ftp.ini"
Local cFtpServer := Alltrim( hwg_getini("FTP","SERVER" ,,cFileFtp) )
Local cFtpUser   := Alltrim( hwg_getini("FTP","USER"   ,,cFileFtp) )
Local cFtpPass   := Crypt(   hwg_getini("FTP","PASS"   ,,cFileFtp), 'suachave' )
Local cFtpUrl    := 'ftp://' + cFtpUser + ':' + cFtpPass + '@' + cFtpServer

	TRY
      oCred:= TIPCredentials()
		oFtp := TIpClientFtp():new( cFtpUrl , .F. , oCred )
		oFtp:nConnTimeout := 60000
		oFtp:bUsePasv:= .T.
		if !( oFtp:open() )
  	  		lFalha := .T.
		endif         
	CATCH oErr
		lFalha := .T.
	END
	if !lFalha
		if oFtp:downloadFile( cPathFileLocal, cPathFileFtp )
			TRY
				oFtp:close()
			CATCH oErr
			   oFtp := Nil
			END
			Millisec(500)
			if FileSize( cPathFileLocal ) <= 0
				SetFAttr( cPathFileLocal, 0 )
				FErase( cPathFileLocal ) 
				lFalha := .T.
			endif
		else
			SetFAttr( cPathFileLocal, 0 )
			FErase( cPathFileLocal ) 
			lFalha := .T.
		endif		
	endif
Return !lFalha

PC Toledo

FTP COM ERRO

FTP COM ERRO

FTP COM ERRO

FTP COM ERRO