RE: [REBOL] Re: Might as well ask..
From: rebol::compkarori::com at: 3-Oct-2002 18:36
Just testing to see what's wrong<BR><BR>--<BR>Graham Chiu<BR><BR><BR>
<BLOCKQUOTE dir=ltr style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px;
MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">--------- Original message --------<BR>From:
Andy Finkel
<[andy--flyingcat--com]><BR>To: "[rebol-list--rebol--com]"
<[rebol-list--rebol--com]><BR>Subject: [REBOL] Re: Might as well
ask..<BR>Date: 10-03-02 20:29<BR><BR><FONT face="Courier New"
size=2>Hi:<BR><BR>Well, without the skip (which I was using to resend part
of the file) ,<BR>the code (which does work) looks
like:<BR><BR>---------------------<BR><BR>rebol [ "TCP File Client"
]<BR><BR>port: open/binary/direct tcp://localhost:5242<BR><BR>outfile:
open/binary/direct/write/new %qwe.vts<BR>forever [<BR>data: copy/part port
32768<BR>if (none? data) [break]<BR>insert outfile data <BR>]<BR>print
["file received"]<BR>close outfile<BR>close
port<BR><BR>----------------------------<BR><BR>rebol ["TCP File Server"
]<BR><BR><BR>listen: open/binary/direct tcp://:5242<BR><BR><BR>forever
[<BR>connection: first listen<BR>file: open/binary/read/direct
%/usr/video/qwe.vts<BR>forever [<BR>data: copy/part file 32768<BR>if( none?
data ) [ break ]<BR>insert connection data<BR>]<BR>print ["file
sent"]<BR>close connection<BR>close file<BR>]<BR>close
listen<BR><BR><BR>-----------------------<BR><BR><BR>The one thing I haven't
convinced Rebol to do is let me read a parameter<BR>(the filename) from the
listen port on the server side before sending<BR>the file. Any ideas
?<BR><BR><BR>Andy<BR><BR><BR><BR><BR><BR>-- <BR>To unsubscribe from this
list, please send an email to<BR><A class=autolink
href="mailto:[rebol-request--rebol--com]">[rebol-request--rebol--com]</A> with
unsubscribe
in the <BR>subject, without the
quotes.<BR><BR><BR></FONT></DIV></BLOCKQUOTE>