In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Sigo con problemas con Tftp

Foro público de Xailer en español
Responder
jmartial
Mensajes: 397
Registrado: Vie May 20, 2005 8:53 pm

Sigo con problemas con Tftp

Mensaje por jmartial »

Hola,
Jose F. y Lalín,
Ya parece que tengo la nueva clase TFtp, que va bastante bien con el comando
Directory() y algunos más. Pero todavía me queda una pequeña cosita, leer a
trozos un fichero que está en el FTP.
Uso lo siguiente:
hFileOrig := oFtp:OpenFile( "Fichero en el ftp . txt" , GENERIC_READ )
Y a continuación, teniendo ya un handle hago lo siguiente:
nBuffer := 4000
cBuffer := Space( nBuffer)
FRead( hFileOrig, @cBuffer, nBuffer )
Y no me lee nada, numero de bytes leídos cero. ¿No se puede usar FREAD con
ese handle? ¿Existe algo que debe ser diferente para un FTP?
Saludos,
Joaquín
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Sigo con problemas con Tftp

Mensaje por jfgimenez »

Joaquín,
> Y no me lee nada, numero de bytes leídos cero. ¿No se puede usar FREAD con
> ese handle? ¿Existe algo que debe ser diferente para un FTP?
En vez de FRead(), utiliza el método :ReadFile( hFile, @cBuffer, nBytes ) ->
lSuccess
Si no me equivoco, cBuffer no hace falta inicializarlo, y retorna .T. si no
ha habido error.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
jmartial
Mensajes: 397
Registrado: Vie May 20, 2005 8:53 pm

Sigo con problemas con Tftp

Mensaje por jmartial »

Muchas gracias,
Ya estoy más cerca, es que eso que me has contado no viene en el docFTP.TXT
de la ayuda de Xailer, es para que no pienses que no lo leído y no paro de
preguntar.
Me podrías decir el nombre y los parámetros de FWrite para la Tftp, es que
tampoco viene en la ayuda, ¿puede ser
oFtp:WriteFile( hFile, @cBuffer, nBytes )
Saludos,
Joaquín
"José F. Giménez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=41a4913d@ozsrv2.ozlan.local...]41a4913d@ozsrv2.ozlan.local...[/email]
> Joaquín,
>
> > Y no me lee nada, numero de bytes leídos cero. ¿No se puede usar FREAD
con
> > ese handle? ¿Existe algo que debe ser diferente para un FTP?
>
> En vez de FRead(), utiliza el método :ReadFile( hFile, @cBuffer,
nBytes ) ->
> lSuccess
>
> Si no me equivoco, cBuffer no hace falta inicializarlo, y retorna .T. si
no
> ha habido error.
>
> --
> Un saludo,
>
> José F. Giménez
>
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Sigo con problemas con Tftp

Mensaje por jfgimenez »

Joaquín,
> Ya estoy más cerca, es que eso que me has contado no viene en el
> docFTP.TXT
> de la ayuda de Xailer, es para que no pienses que no lo leído y no paro de
> preguntar.
Sí, lo sé. No tienes que disculparte; somos nosotros los que nos tenemos que
disculpar por no tener todavía toda la documentación en formato de ayuda.
En este caso, TFtp deriva de TInternet, y ahí sí están documentadas
ReadFile() y WriteFile(). Echa un vistazo a xailerdocinternet.txt
> Me podrías decir el nombre y los parámetros de FWrite para la Tftp, es que
> tampoco viene en la ayuda, ¿puede ser
>
> oFtp:WriteFile( hFile, @cBuffer, nBytes )
Sí, esa es la sintaxis.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder