Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Reliable FTP of large binary files with REBOL/Core 2.5

From: doug::vos::eds::com at: 5-Apr-2002 18:22

Just completed three successful tests with this code: ;--------------------------------------------------------------------------- Transfered 160 Meg zip file in 4 minutes 53 seconds (650 megs unzipped). 164205447 FTP Transfer took: 0:04:53
;-------------------------------------------------------------- modified from code by someone at rebol tech and Petr K. REBOL [] ftp-large-binary-file: func [ {FTP large binary files - like the name says. Could actually be used/modified to transfer large files without ftp or using some other protocol...} ftp-site [url! file!] {The ftp site we are getting file from.} xfile-to [url! file!] {The target file we are writing to.} /local buf-size buffer source target total size start ][ buf-size: 64000 buffer: make string! buf-size source: open/binary/direct ftp-site target: open/binary/new/direct xfile-to total: 0 size: 0 start: now/time while [not zero? size: read-io source buffer buf-size][ write-io target buffer size clear buffer total: total + size print total ] close source close target print ["FTP Transfer took: " now/time - start ] ] ;--------------------------------------------------------------------------- ----------- ftp-site: lfile: %/d/data/local/ ftp-large-binary-file ftp-site lfile