Embed and retrieve images in a data file

[Erel]

Two small programs are included in the attached files.
CreateImagesFile - Embeds a list of image files in a data file.
ReadImages - Loads the images from the data file into an ImageList.

You could use these programs to create a single data file instead of many image files.
ReadImage code should be added to your program code.

 

[cosmo15900]

Extraction

hey when the pics go into the .dat is there a way or code to extract them??

 

[Erel]

Yes. See the ReadImages file.

 

[cosmo15900]

what i mean is when they are in the dat file i dont want to bring em in the program i want to beable to extract back to the desktop

 

[Erel]

You should use BinaryFile.RetrieveFile instead of BinaryFile.RetrieveImage.

 

[cosmo15900]

can you make a source code or is there 1 already made
im mostly new to this and i made a mistake of deleting the photos i put in the dat now i need to bring em out

 

[Erel]

This should do it:

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    RetrieveFiles("Images.Dat")
End Sub

Sub RetrieveFiles (file)
    FileOpen(c,file,cRandom)
    bin.New1(c,false)
    num = bin.ReadInt32 'read the number of images.
    For i = 1 To num
        bin.RetrieveFile("file" & num & ".dat")
    Next
    FileClose(c)
End Sub

Files will be named: file1.dat, file2.dat, ...

 

[cosmo15900]

sweet thanks

 

[Georg]

Transparency

it doesn't work when the Imagebutton is transparency. Is there a way?

 

[Erel]

This is a bug that will be fixed in the next version.
For now you can use one of the workarounds mentioned in this thread: http://www.b4x.com/forum/showthread.php?t=1766

 

[klaus]

Hi cosmo15900

There is an evolution of Erel's code, now also with a save function in it:
http://www.b4x.com/forum/showthread.php?t=1726

Klaus
Switzerland