Sigo co FTP

[Pablo Herranz]

Ya he sido capaz de transferir un fichero con las instrucciones de Jose F
Gimenez, pero ahora tengo el problema de que el fichero enviado melo da como
invalido al intetar abrirlo, se trata de un pdf y el codigo para enviarlo es
el siguiente
Local lLee:=.t.
Local nBuffer:=100
nFichero es el Handler del fichero local
nRemote el del fichero remoto
FileFullName nombre del fichero a enviar
WHILE lLee
nLee:=FRead(nFichero,@cBuffer,nBuffer)
If nLee<>nBuffer
nBuffer:=nLee
lLee:=.f.
endif
oSender:WriteFile(nRemote,FileFullname(::oEditBtn1:Value),nB uffer)
enddo
Pablo

[jfgimenez]

Pablo,
por favor, envíame el proceso completo para probarlo. Me refiero a que pueda
compilarlo de forma autónoma, es decir, un proyecto con un formulario y el
código que haga falta para transferir ese fichero.
--
Un saludo,
José F. Giménez

[Rene Flores]

Pablo y Jose:
Para que os de alguna pista, el problema de la tranferencia de Ficheros,
usando las libs Internet y eso pasa en cualquier herramienta "Clipper
based" que usen, entiendase (x)Hb y FW, es que el ultimo bloque de bytes
del fichero transmitido nunca se envia completo.
Ya revise eso personalmente, y el problema no es con todo el fichero,
sino especificamente con el ultimo bloque, sobre todo si no mide el
tamaño de bytes especificado en el bloque.
Puedes hacer una prueba con un fichero MP3, estos ficheros traen la
informacion del tema musical AL FINAL, con lo cual, casi siempre se
descargan sin problemas con Xailer, sin embargo, un fichero ZIP o un PDF
si tendran el problema.
Saludos
Rene Flores
http://www.ciber-tec.com
H escribió:
> Ya he sido capaz de transferir un fichero con las instrucciones de Jose F
> Gimenez, pero ahora tengo el problema de que el fichero enviado melo da como
> invalido al intetar abrirlo, se trata de un pdf y el codigo para enviarlo es
> el siguiente
>
> Local lLee:=.t.
> Local nBuffer:=100
> nFichero es el Handler del fichero local
> nRemote el del fichero remoto
> FileFullName nombre del fichero a enviar
>
> WHILE lLee
> nLee:=FRead(nFichero,@cBuffer,nBuffer)
> If nLee<>nBuffer
> nBuffer:=nLee
> lLee:=.f.
> endif
> oSender:WriteFile(nRemote,FileFullname(::oEditBtn1:Value),nB uffer)
> enddo
>
>
> Pablo
>
>

[jfgimenez]

René,
muchas gracias por el tip.
--
Un saludo,
José F. Giménez

[Pablo Herranz]

Muchas Gracias René,
Como no he sido capaz de solucionarlo y tenia prisa lo que he hecho es
transferirlo con ::FilePut() y mientras se transfiere he puesto un dialogo
Splash.
Pablo
"Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=43dfa5b2@ozsrvnegro.ozlan.local...]43dfa5b2@ozsrvnegro.ozlan.local...[/email]
> Pablo y Jose:
>
> Para que os de alguna pista, el problema de la tranferencia de Ficheros,
> usando las libs Internet y eso pasa en cualquier herramienta "Clipper
> based" que usen, entiendase (x)Hb y FW, es que el ultimo bloque de bytes
> del fichero transmitido nunca se envia completo.
>
> Ya revise eso personalmente, y el problema no es con todo el fichero, sino
> especificamente con el ultimo bloque, sobre todo si no mide el tamaño de
> bytes especificado en el bloque.
>
> Puedes hacer una prueba con un fichero MP3, estos ficheros traen la
> informacion del tema musical AL FINAL, con lo cual, casi siempre se
> descargan sin problemas con Xailer, sin embargo, un fichero ZIP o un PDF
> si tendran el problema.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
>
>
> H escribió:
>> Ya he sido capaz de transferir un fichero con las instrucciones de Jose F
>> Gimenez, pero ahora tengo el problema de que el fichero enviado melo da
>> como invalido al intetar abrirlo, se trata de un pdf y el codigo para
>> enviarlo es el siguiente
>>
>> Local lLee:=.t.
>> Local nBuffer:=100
>> nFichero es el Handler del fichero local
>> nRemote el del fichero remoto
>> FileFullName nombre del fichero a enviar
>>
>> WHILE lLee
>> nLee:=FRead(nFichero,@cBuffer,nBuffer)
>> If nLee<>nBuffer
>> nBuffer:=nLee
>> lLee:=.f.
>> endif
>> oSender:WriteFile(nRemote,FileFullname(::oEditBtn1:Value),nB uffer)
>> enddo
>>
>>
>> Pablo

[jfgimenez]

Pablo,
> Como no he sido capaz de solucionarlo y tenia prisa lo que he hecho es
> transferirlo con ::FilePut() y mientras se transfiere he puesto un dialogo
> Splash.
Hace un rato que te envié la corrección. Por favor, dime si la has recibido.
--
Un saludo,
José F. Giménez

[Pablo Herranz]

Lo he recibido, gracias, esta tarde lo modifico y lo pruebo.
Pablo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:43e0a5e1$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Pablo,
>
>> Como no he sido capaz de solucionarlo y tenia prisa lo que he hecho es
>> transferirlo con ::FilePut() y mientras se transfiere he puesto un
>> dialogo Splash.
>
> Hace un rato que te envié la corrección. Por favor, dime si la has
> recibido.
>
> --
> Un saludo,
>
> José F. Giménez
>

[Pablo Herranz]

Funciona perfecto, muchas gracias
Pablo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:43e0a5e1$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Pablo,
>
>> Como no he sido capaz de solucionarlo y tenia prisa lo que he hecho es
>> transferirlo con ::FilePut() y mientras se transfiere he puesto un
>> dialogo Splash.
>
> Hace un rato que te envié la corrección. Por favor, dime si la has
> recibido.
>
> --
> Un saludo,
>
> José F. Giménez
>