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]

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]

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.basic4ppc.com/forum/bug-reports/1766-image-problem-imagebuttons.html