Re: DecodeBase64 problem

[Peter De Berdt <peter dot de dot berdt at pandora dot be>]

On 30 Sep 2004, at 12:38, Igy Castrillo wrote:

> Hello everyone.
>
> This is probably an old topic -- my apologies. I've finally managed to
> EncodeBase64 my JPEG, GIF & other graphic files, convert them to
> strings and store them as blobs in my MySQL and RB databases.
> Unfortunately, I can't figure out how to convert the Base64 decoded
> binaries back to picture format so they can be displayed in my RB
> front-end. The RB Language Reference & User's Guide doesn't really
> help (no luck in the net either).
>
> I've only gotten as far as:
>
> Dim b As BinaryStream
> Dim s As String
> Dim f As FolderItem
>
> f=GetOpenFolderItem("image/x-pict;image/x-bmp;image/jpeg;image/gif; 
> image/tiff")
> ...
> //Convert pic to string
> b=f.OpenAsBinaryFile(False)
> s=b.Read(b.length)
> b.Close
> self.imagefield.text=EncodeBase64(s,0)
> ...
> //Convert string to pic
> s=DecodeBase64(self.imagefield.text)
> b.Write s
> self.photofield.backdrop.graphics.drawpicture b,0,0
> //this, of course, doesn't work as 'b' is being passed as a string
>
> ... and that's it -- a blank wall. I've no idea how to convert the
> binarystream to a picture (not to a file) that can be displayed in my
> Canvas control's backdrop. Any help completing this code would really
> be appreciated.
Without the MBS plug-in, you need to write the content to a file (just  
create a random file in the TemporaryFolder) and open the file as  
picture. There may be other plug-ins (maybe even free ones), but I'm  
sure the MBS plug-in does it.

Best regards

Peter De Berdt

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>