[REBOL] Re: jpeg images not working
From: tim:johnsons-web at: 28-Aug-2002 18:40
* Graham Chiu <[gchiu--compkarori--co--nz]> [020828 17:55]:
> On Wed, 28 Aug 2002 15:47:25 -0800
> Tim Johnson <[tim--johnsons-web--com]> wrote:
>
> >* Jason Cunliffe <[jason--cunliffe--verizon--net]> [020828
> >15:35]:
> >>Hi Tim
> >>
> >>Are you hoping to use multipart/x-mixed-replace to
> >>upload image files to a web
> >>site?
> >
> > Yes!
>
> I'm confused. Your code seems to indicate you want to
> send images to a client browser. There's an example from
> Allen that shows how to send dynamically created images
> back to the client in the library somewhere on rebol.org
Thanks Graham: I'm "hacking" perl code provided as
an example. You should see examples of the content that I
produced in the thread titled "Problems rendering an image",
(didn't meant to do it but ending up posting two subjects
on the same issue). It's just possible that I may at this
time just be in violation of the RFC.
I'm not sure that your code is complete, but I might want to revisit
it. Do you have a link for Allen's script, (I've
used his resources before the multi-part documents)?
Thanks
-tj-
> If you want to upload using http to a web server, this
> snippet from my test suite might help
>
> boundary: {--Rj74=$}
> imagedata: to-string read/binary filename
>
> des1: rejoin [ {Content-Disposition: form-data;
> name="FILE_UPLOAD_FNAME"; filename="} filename {"} ]
> des2: {Content-Disposition: form-data;
> name="FILE_UPLOAD_CLAIM_NUM"}
> des3: {Content-Disposition: form-data;
> name="FILE_UPLOAD_MD5_SUM"}
> des4: {Content-Disposition: form-data;
> name="IMAGE_FILE_ANNOTATION"}
>
> postdata: rejoin [ boundary CRLF des2 CRLF CRLF claimno
> CRLF boundary des3 CRLF CRLF md5 CRLF boundary des4 CRLF
> CRLF annotation CRLF boundary des1 CRLF CRLF imagedata
> CRLF boundary "--" CRLF CRLF ]
>
> --
> Graham Chiu
> --
> To unsubscribe from this list, please send an email to
> [rebol-request--rebol--com] with "unsubscribe" in the
> subject, without the quotes.
--
Tim Johnson <[tim--johnsons-web--com]>
http://www.alaska-internet-solutions.com
http://www.johnsons-web.com