FTP

[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.

[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!

[sygecom]

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 ?

[Itamar M. Lins Jr.]

CVS Sempre a ultima

[asimoes]

Stanis,

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

[]´s :)Pos

[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.)

[rochinha]

Amiguinhos

Tem algum exemplo pratico para TELNET?

[sygecom]

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

[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?

[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.

[Itamar M. Lins Jr.]

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.

[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 !!!

[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

[Itamar M. Lins Jr.]

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.

[Itamar M. Lins Jr.]

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.