Might as well ask..

I clearly am suffering from flatulence of the brain. After sending my last submission stemming from Petr, I recalled doing something with Petr *last* year along these lines, that time using *skip* but on a http network connection. Here was the snippet (still works): from-port: open/direct http://www.microsoft.com to-port: open/direct %//windows/desktop/log.txt from-port: skip from-port 8000 ;skip first 8000 bytes ;get 1000 byte chunks from file while [data: copy/part from-port 1000][append to-port data] close from-port close to-port Here was the email: http://www.escribe.com/internet/rebol/m10053.html

Shouldn't be too hard (he says with a great deal of bravado), but I have not had the need to do this, per se. If the previously mentioned solutions don't serve your needs (like you *really* need tcp, and want to avoid http) and no one offers a solution, I could probably whip one up. I'm out of time right now, but if no sno answers come forward, I'll check into it later today. --Scott Jones

Well - in rebol, it is simple. There are just some bugs or missbehaviors as that of open/direct etc. Also - with our device, we were screwed up, -imo a Rebol bug - simply 'waiting on port didn't work, unless we added /binary refinement. I was told by Carl on IOS that we should use /binary for such transfers, but imo 'wait should wait and it should behave the same no matter what refinement combination we use .... So - I like async, not blocking port behavior, that's why I open my ports in direct and no-wait mode. Simple simulation you can play with: client: ------ REBOL [] client: open/direct/no-wait tcp://your-ip:9005 while [wait client data: copy client][print data] close client server: ------- REBOL [] server: open tcp://:9005 conn: first wait server file: read %some-file.txt for i 1 100 1 [ insert conn file wait 1 ] close conn close server I just wanted to test, that client properly waits 1 sec, then reads data, prints it, etc. That's just simple client/server communication. As for file transfer, I would use /binary refinement too, would read source in parts, send it in, and append it to the file on the other end. I did some download-it! script for http downloads, as I was tired of browsers inability to continue broken downloads ... If you will be interested, I can send it to you or help you otherwise ... -pekr-

<original code snipped>

You are a whiz! I am amazed at how quickly you soak this stuff up. I took your code as a base, but I changed a few things because I am on Win98 and needed to work with a file that I had locally (no kidding! :-). I started the ports in lines mode, did some interacting to get the file name, through in a smidge of error detection (but it needs lots more), discovered an apparent bug in set-modes, and finally got it to work. Of course, this skips the skip. Maybe it can be work mack in where necessary, but for the sake of your prototype code, I skipped the skip. Watch the line breaks. Make it fit your sample and let me know how it goes and/or if my code is not making sense. Interesting project! --Scott Jones rebol [ "TCP File Client" ] port: open/lines/direct/no-wait tcp://localhost:5242 either error? try [ insert port "nyc.jpg" ][ print "whoopsie - where's the beef?" ][ wait port response: first port print response either find response "OK" [ set-modes port [binary: true] set-modes port [lines: false] outfile: open/binary/direct/write/new %//windows/desktop/nyc.jpg while [data: copy/part port 32768] [ append outfile data ] print ["file received"] close outfile ][ print "Hmmm - We've got a problem, Houston." ] ] close port ---------------------------- rebol ["TCP File Server" ] listen: open/lines/direct/no-wait tcp://:5242 forever [ connection: first listen wait connection either error? try [ fname: first connection print fname ][ insert connection "Error - Go fish ..." ][ insert connection "OK - Get Ready..." set-modes connection [binary: true] set-modes connection [lines: false] file: open/binary/read/direct join %//rebol/view/ fname while [data: copy/part file 32768] [ insert connection data ] print ["file sent"] close connection close file ] ] close listen