Clases TURL y TIPClientFTP

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

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

exitos!

[FiveWiDi]

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

exitos!

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.

[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

[FiveWiDi]

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.

[lucasdebeltran]

Carlos,

En Harbour es hbtip.lib y funciona muy bien.

[FiveWiDi]

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.

[goosfancito]

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.

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

//////////////////////////////////////////////////////////////////////////////
// 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 )

//------------------------------------------------------------------------------

 

[goosfancito]

0kb