Page 1 of 1
Clases TURL y TIPClientFTP
Posted: Wed Nov 27, 2013 11:42 pm
by FiveWiDi
Hola a todos,
Estoy intentando usar la clase de ServicesFTP de Jose Javier Lloris pero me faltan las clases TURL y TIPClientFTP.
No las encuentro ni en Fivewin 1305 ni en el Harbour que va con el.
Alguién me las puede enviar a publi @ gelbla . com ? O decirme como puedo subir ficheros por FTP sin usar estas clases?
Gracias,
Re: Clases TURL y TIPClientFTP
Posted: Thu Nov 28, 2013 1:38 am
by MarioG
Fivewidi;
no probaste con la búsqueda avanzada del foro? Hay bastante escrito sobre el tema
Este link fue sugerido es uno de ellos
http://javierlloris.blogspot.com.es/2012/04/programa-pftp_25.htmlexitos!
Re: Clases TURL y TIPClientFTP
Posted: Thu Nov 28, 2013 9:11 pm
by FiveWiDi
Gracias Mario.
Si que lo hice, por FTP hay "sólo" 2400 y pico entradas, de las cuales accedí al link que comentas, el cual no lleva lo que ne falta.
Re: Clases TURL y TIPClientFTP
Posted: Fri Nov 29, 2013 9:26 am
by Sebastián Almirón
Hola,
Creo recordar que tienes que enlazar la librería de harbour hbtip.lib (yo uso la version 1303) y la HBRTL.lib . En este último caso no se si vale la que viene con harbour o tienes que meter la que viene en el fichero pftp.zip de Jose Javier Lloris en una carpeta llamada "libría modificada hbrtl.lib por antonio linales abril 2010".
Saludos
Re: Clases TURL y TIPClientFTP
Posted: Fri Nov 29, 2013 3:55 pm
by FiveWiDi
Sebastián Almirón wrote:Hola,
Creo recordar que tienes que enlazar la librería de harbour hbtip.lib (yo uso la version 1303) y la HBRTL.lib . En este último caso no se si vale la que viene con harbour o tienes que meter la que viene en el fichero pftp.zip de Jose Javier Lloris en una carpeta llamada "libría modificada hbrtl.lib por antonio linales abril 2010".
Saludos
Gracias Sebastian, lo probaré esta noche.
Re: Clases TURL y TIPClientFTP
Posted: Fri Nov 29, 2013 5:39 pm
by lucasdebeltran
Carlos,
En Harbour es hbtip.lib y funciona muy bien.
Re: Clases TURL y TIPClientFTP
Posted: Sat Nov 30, 2013 1:11 pm
by FiveWiDi
lucasdebeltran wrote:Carlos,
En Harbour es hbtip.lib y funciona muy bien.
Muchas gracias a todos por la información.
Ya he conseguido subir ficheros basándome en el buen trabajo de Javier Lloris.
Re: Clases TURL y TIPClientFTP
Posted: Sat May 15, 2021 1:45 am
by goosfancito
FiveWiDi wrote:lucasdebeltran wrote:Carlos,
En Harbour es hbtip.lib y funciona muy bien.
Muchas gracias a todos por la información.
Ya he conseguido subir ficheros basándome en el buen trabajo de Javier Lloris.
mayo 2021 no pued hacer andar el programa. he probado el .exe coloco los datos en configuracion y cuando le doy al boton "probar" no se puede conectar, uso los mismos datos que en firezilla.
Re: Clases TURL y TIPClientFTP
Posted: Sat May 15, 2021 3:57 pm
by Antonio Linares
Gustavo,
EL ejemplo que tu me enviaste, con la pequeña modificación que te indiqué (nBufSize), parace funcionar correctamente.
Puedes comprobar si ha llegado el fichero fwintro.pdf a tu servidor FTP ? gracias
Code: Select all | Expand
//////////////////////////////////////////////////////////////////////////////
// Programa: menu.prg
// Fecha Creaci�n: 05/13/2021
// Hora: 15:28
// Proyecto en xMate: ftp
// Lista de funciones:
// Ultima actualizacion :>: 05/13/2021 17:35
// Historial:
// >>:
// 05/13/21
//////////////////////////////////////////////////////////////////////////////
#include "fivewin.ch"
//------------------------------------------------------------------------------
FUNCTION copiar( cFtp, cUsuario, cPassword )
LOCAL oInternet, oFtp
LOCAL oFile, hFile, cFile := "fwintro.pdf"
LOCAL nBytes, nBufSize := 2000, cBuffer := Space( 2000 )
msgRun( "Conectandose...", "Momento", ;
{ || ;
oInternet := TInternet():new(), ;
IF ( Empty( oInternet:hSession ), ;
MsgAlert( "No hay seccion" ), ), ;
oFtp := TFTP():new( cFtp, oInternet, cUsuario, cPassword ) ;
} )
IF Empty( oFtp:hFtp )
MsgStop( "no se pudeo conectat" )
RETURN ( NIL )
ENDIF
IF ! File( cFile )
MsgStop( "No existe" )
ENDIF
hFile := FOpen( cFile )
MsgInfo( hFile )
oFile := TFtpFile():new( "//" + cFile, oFtp )
oFile:OpenWrite()
WHILE ( nBytes := FRead( hFile, @cBuffer, nBufSize ) ) > 0
oFile:write( SubStr( cBuffer, 1, nBytes ) )
END
FClose(hFile)
oFile:END()
RETURN( NIL )
//------------------------------------------------------------------------------
FUNCTION main()
LOCAL ;
cFtp := "ftp.sergiogustavo.com", ;
cUsuario := "rcgeneral@sergiogustavo.com", ;
cPassword := "........."
copiar( cFtp, cUsuario, cPassword )
RETURN ( NIL )
//------------------------------------------------------------------------------
Re: Clases TURL y TIPClientFTP
Posted: Mon May 17, 2021 12:24 am
by goosfancito
0kb