Hi Ryan
Here's the answer. Do not add the "64{" and "}", just use DEBASE/BASE Your
TEXT var is already a string! datatype. Look at this:
>> bin: read/binary %bay.jpg
== #{
FFD8FFE000104A46494600010101004800480000FFDB00430008060607060508
0707070909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C20242E...
>> bin64: enbase/base bin 64
==
{/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0
aH
BwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQk...
>> write/binary %test.jpg debase/base bin64 64
The JPG is restored. I e-mailed myself bay.jpg as an attachment using
base64 encoding, read my pop mail box into a file, extracted the base64
image with a text editor and it was exactly the same as BIN64 above.
HTH
Larry
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 12, 2000 1:38 PM
Subject: [REBOL] detach-image: func (was: %detach.r Re:(4))
> Here is where I'm at...
>
>
> detach-image: func [
> "detach an image file from the contents of an email"
> email-contents [string!] "the content of an email"
> ][
> image-code: copy []
>
> if find/any email-contents {image/jpeg} [
> parse/all email-contents [thru {base64^/^/} copy text to {==} (append
> image-code text)]
> ]
>
> insert image-code "64#{" append image-code "}"
> ]
>
>
> >>img: detach-image msg/content
>
> >>write/binary %img.jpg img
>
> Still does not display an image in a browser and is unreadable by an image
> viewer.
>
> -Ryan
>
