Página 1 de 3
ftp com TIPCLIENT do XHB
Enviado: 22 Mai 2012 20:07
por Mário Isa
Eu uso o Ftp TipClient do xhb
hospedado no hoteldaweb conecta bem
Mas no LOCAWEB disseram que eles não tem esse componente instalado por lá.
Alguem já passou por isso ?
Eu queria mudar pq o hotel é meio instaável
e o LOCAWEB bem mais seguro se mosttrou
Porem nao conecta ftp com TIPCLIENT por lá..
ftp com TIPCLIENT do XHB
Enviado: 22 Mai 2012 20:44
por fladimir
Qto a Localweb talvez o Leonardo possa dizer melhor, q se não estiver enganado ele hospeda por lá ou conhece, agora se quiser uma alternativa q funciona é a Kinghost q eu uso e funciona bem com Mysql, Postgres, Oracle e Firebird.
[]´s
ftp com TIPCLIENT do XHB
Enviado: 23 Mai 2012 14:47
por sygecom
Olá Mario,
Para LocalWeb tem que usar servidor FTP PASSIVO:
oUrl := tUrl():New( "ftp://" + cUser + ":" + cPassword + "@" + cServer )
oFTP := tIPClientFtp():New( oUrl, .F. )
oFTP:bUsePasv := .T. // aqui o pulo do gato
Fala Cassiano,
Eu usava a té pouco tempo atras o provedor da ProvSul( é da Empresa do Colega Augusto aqui do Fórum ) que o FTP era fácil e muito rápido, e agora fui para o Kinghost por causa do TomCat para rodar uns sistemas em Java e outras...
ftp com TIPCLIENT do XHB
Enviado: 23 Mai 2012 15:41
por Mário Isa
e se eu disser q eu já usava o tal FTP passivo ?
Vc assusta ?
:-O
ftp com TIPCLIENT do XHB
Enviado: 23 Mai 2012 15:42
por fladimir
Legal Leo, e o q ta achando?
Com relação ao Passivo e Ativo do FTP eu já sabia configurar lá onde vc passou o pulo do gato, mas não sei bem a diferença entre os modos... Será q é isto então q o colega Mario tem q observar?
Com relação ao esta definição do Ativo e Passivo via TipClien para acessar tem diferença de velocidade etc etc?
[]´s
ftp com TIPCLIENT do XHB
Enviado: 23 Mai 2012 15:46
por Mário Isa
Código: Selecionar todos
cUser := seuusuario
cServer := "ftp."+ cUser+".com.br" && "ftp.seial.com.br" //endereco do ftp ou endereço ip
cPassword := seu password
if meumodo = 'tipclient'
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer
oUrl := tUrl():New( cUrl )
oFTP := tIPClientftp():New( oUrl, .F. )
// function for displaying progress bar
oFtp:exGauge := ( @FtpProgress() )
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T. && PAU
// Testa usuario e senha
IF At( "@", cUser ) > 0
oFTP:oUrl:cServer := cServer
oFTP:oUrl:cUserID := cUser
oFTP:oUrl:cPassword := cPassword
ENDIF
IF oFTP:Open( cUrl )
is_conectado := .t.
else
is_conectado := .f.
end
end
end
//msginfo('depois de ver se conecta ou nÆo '+if(is_conectado,'conectado','nao conect'))
if meumodo='tipclient'
if is_conectado
if quefazer = '1'
consegue := oFtp:UploadFile( MMDrv, xMMDrv )
//oFtp:Close()
................ e segue
ftp com TIPCLIENT do XHB
Enviado: 23 Mai 2012 15:53
por Mário Isa
Acabei de fazer o teste com
E deu certo acredita ?
Só que o Windows firewall pediu prá desbloquear o programa que tava ussando tal recurso.
:%
ftp com TIPCLIENT do XHB
Enviado: 23 Mai 2012 16:51
por sygecom
Mário Isa escreveu:Acabei de fazer o teste com
E deu certo acredita ?
Só que o Windows firewall pediu prá desbloquear o programa que tava ussando tal recurso.
Eu sabia que tinha algo haver com o PASSIVO por que tive um problema assim na localweb, foi quando criei a opção de PASSIVO no FTP do meu sistema....o importante que resolveu.
fladimir escreveu:Legal Leo, e o q ta achando?
Cara a KingHost tem me parecendo boa...tem suas limitações mas estamos sobrevivendo, focamos algumas prioridades e vamos tocando...
fladimir escreveu:Com relação ao esta definição do Ativo e Passivo via TipClien para acessar tem diferença de velocidade etc etc?
Acredito que não tem não, pelo menos de vários que já integrei com o meu sistema eu nunca notei diferenças...
ftp com TIPCLIENT do XHB
Enviado: 18 Abr 2013 00:52
por cjp
Pessoal,
Faz algum tempo que uso esta função, pega aqui, para envio de arquivos pro FTP:
Código: Selecionar todos
function enviaftp()
#include "inkey.ch"
#include "fileio.ch"
#include "common.ch"
#include "Directry.ch"
#define eFTPSERVER1 'ftp.inaciocarvalho.com.br' // ENDEREÇO SERVIDOR FTP 01
#define eFTPPORTA 21 // PORTA DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
#define eFTPUSER 'promotor' // USUARIO DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
#define eFTPPASS 'xxxx' // SENHA DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
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:=''
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 )
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
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.
mandmail1("","Retornou .f. no reset; COMUNS 438")
return .f.
endif
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
RETURN .T.
Desde anteontem, contudo, a função está dando um erro, retornando .f. na linha:
E o pior é que não é sempre retorna .f. Às vezes funciona, mas na maioria das vezes não.
Já testei abrir a pasta manualmente, usando o ftp do dos, e funciona perfeitamente. Pelo explorer do Windows também abre.
Alguém saberia me dizer se tem algum problema na função?
ftp com TIPCLIENT do XHB
Enviado: 19 Abr 2013 12:12
por cjp
Pessoal, caso não haja como resolver esta questão, será que alguém poderia me dar uma alternativa para fazer upload de arquivo no FTP?
ftp com TIPCLIENT do XHB
Enviado: 23 Abr 2013 21:33
por sygecom
Veja se a dica do colega no post abaixo não ajuda nesse seu caso:
viewtopic.php?f=4&t=14084&p=82188#p82188
ftp com TIPCLIENT do XHB
Enviado: 01 Mai 2013 22:43
por cjp
Se eu entendi direito, seria pra colocar um inkey(2) antes do comando que está dando erro, correto?
Se for isso, não resolveu não. Continua dando o mesmo erro.
ftp com TIPCLIENT do XHB
Enviado: 01 Mai 2013 23:11
por marcos.gurupi
Amigo o pode estah acontecendo (isso tb aconteceu comigo) que no seu servidor FTP o diretorio estah MAIUSCULO e quando vc tenta mudar o diretorio estah passando em minusculo. Verifique isso dai. Vlw.
ftp com TIPCLIENT do XHB
Enviado: 03 Mai 2013 19:17
por sygecom
Rapaz, esse caso é casca mesmo, não faço nem ideia do que seja, boa sorte...
ftp com TIPCLIENT do XHB
Enviado: 03 Mai 2013 19:55
por JoséQuintas
Uso Harbour, e não defino porta para ftp, não sei se pode fazer diferença.