Página 1 de 2

FTP

Enviado: 29 Jan 2008 17:57
por Itamar M. Lins Jr.
Ola!, ALLguém do grupo tem exemplo(s) de uso do xharbour com FTP e ou CGI.
Estou precisando implementar isso no meu sistema.
Se bem que CGI já fiz algumas coisas no linux. Já tem alguns anos... Quem sabe alguem do grupo tem outras coisas além dos exemplos que vem na classe TIP.

Saudações
Itamar M. Lins Jr.

Enviado: 29 Jan 2008 18:01
por Stanis Luksys
Opa, tudo bom?

Exemplo de FTP eu tenho sim, um que eu fiz com a MiniGUI, mas que usa as libs e funções do xHarbour mesmo. Mas não está comigo agora.

Hoje mais tarde eu subo pro meu site e posto link.

Falou!

Re: FTP

Enviado: 29 Jan 2008 18:21
por sygecom
Itamar M. Lins Jr. escreveu:Ola!, ALLguém do grupo tem exemplo(s) de uso do xharbour com FTP e ou CGI.
Estou precisando implementar isso no meu sistema.
Se bem que CGI já fiz algumas coisas no linux. Já tem alguns anos... Quem sabe alguem do grupo tem outras coisas além dos exemplos que vem na classe TIP.

Saudações
Itamar M. Lins Jr.
Qual versão do xharbour ?

Enviado: 29 Jan 2008 18:27
por Itamar M. Lins Jr.
CVS Sempre a ultima

Enviado: 29 Jan 2008 21:51
por asimoes
Stanis,

Eu também gostaria de ver o código do ftp.

[]´s :)Pos

Enviado: 30 Jan 2008 00:54
por sygecom
Pode dar uma olhada nas pasta da CVS que tem exemplos tmb.

Código: Selecionar todos

*********************
Function Baixa_EXE
*********************
ftpproto ="ftp://"
ftpserver = "ftp.endereco.com.br"
ftpuser = "usuario"
ftppass = "senha"
ftpdir = "/atual"
ftpfile = "sistema.exe"
curl:=ftpproto+ftpuser+":"+ftppass+"@"+ftpserver+ftpdir+"/"+ftpfile
oUrl:= turl():new(curl)
oCred := tIPCredentials()
oFtp := tipclientftp():NEW(oUrl,,.T.)
oFTP:nConnTimeout := 20000
oFTP:bUsePasv     := .T.
IF oFTP:OPen() //Connect()
    MsgInfo("Sucesso na Conexão em " + oUrl:cServer + CRLF + ouRL:cpATH + CRLF )
    IF !empty(clista:=oFTP:List())
       oFTP:DownLoadFile("c::\sistema.exe")
  ENDIF
     oFTP:CLOSE()
ENDIF
Obs:
versoes < 1.0 deve usar
oftp :=tipclient():new(oUrl,,.t.)

versao >= 1.0

oftp :=tipclientftp():new(oUrl,,.t.)

Enviado: 31 Jan 2008 01:27
por rochinha
Amiguinhos

Tem algum exemplo pratico para TELNET?

Enviado: 31 Jan 2008 02:16
por sygecom
rochinha escreveu:Amiguinhos

Tem algum exemplo pratico para TELNET?
Bem Pratico.....se souber como colocar anexo posta pra nós, eu usava esse abaixo no clipper. (Obs: nem todos servidores aceitam)

Código: Selecionar todos

telnet smtp.servidor.com.br 25
ehlo localhost
mail from:seu_email
rcpt to:email_destino
data
Subject:teste telnet
teste
.
quit

Enviado: 31 Jan 2008 02:23
por rochinha
Amiguinho

Marquei toca e não formulei direitinho meu post mas eu queria um codigo parecido com o seu Baixa_EXE() mas onde eu manipulasse uma classe Telnet ou coisa do tipo.

Eu até consegui usando a classe tSocket do Fivewin fazer conexão com um servidor Telnet instalado em minha maquina, usando o BFTelnet, mas não consegui exito com comandos posteriores.

Valew?

Enviado: 31 Jan 2008 02:40
por sygecom
Entendi, uma vez vi uma Classe do Culik de Socket que foi postada na news, mas faz tempo e não tenho certeza que atende telnet. se eu achar eu posto.Alias o exemplo que postei foi para e-mail e não FTP, olhei o post do Email e postei no do FTP.

Enviado: 01 Fev 2008 11:42
por Itamar M. Lins Jr.
sygecom escreveu:Pode dar uma olhada nas pasta da CVS que tem exemplos tmb.
Olhei os exemplos.
Mas usando uploadfile está criando os arquivo com tamanho 0
Sabes algo a respeito desse problema ?

Saudações
Itamar M. Lins Jr.

Enviado: 02 Fev 2008 20:11
por sygecom
Testei aqui e funcinou...será que não seria algum detalhe ai ? desculpa fala, mas preste atenção nas BARRAS....no começo comi poeira nas barras, era um pequeno detalhe, mas ai naum fungava !!!

Enviado: 15 Fev 2008 22:59
por Mário Isa
Estou precisando de exemplos de

mdir *.*
mget *.*
mdelete *.*
e
put

comandos correspondentes, no xHarbour para estes, que são do FTP do DOS.
Mário

Enviado: 15 Fev 2008 23:18
por Itamar M. Lins Jr.
sygecom escreveu:Testei aqui e funcinou...será que não seria algum detalhe ai ? desculpa fala, mas preste atenção nas BARRAS....no começo comi poeira nas barras, era um pequeno detalhe, mas ai naum fungava !!!
Ola já resolvi essa problema. Era uma questão de rota com o no-ip.

Saudações
Itamar M. Lins Jr.

Enviado: 15 Fev 2008 23:22
por Itamar M. Lins Jr.
Mário Isa escreveu:Estou precisando de exemplos de

mdir *.*
mget *.*
mdelete *.*
e
put

comandos correspondentes, no xHarbour para estes, que são do FTP do DOS.
Mário
No caso eu criei umarray com os arquivos para enviar, mostra até o gráfico com hwgui, ficou bom.
sobre o mdir...
Depois posto exemplo, estou em outra maquina.

Saudações
Itamar M. Lins Jr.