I want to make a screensaver with pictures in it.
Is there a way I can add lots of pictures in a folder to the exe?
I know about including data, but can it be done with lots of files?
And I would also like to make a way to configure the screensaver and have a preview.
Could anyone help me with this?
All files are jpg and have random names and numbers if that helps.
Need help with making a picture screensaver
Need help with making a picture screensaver
I Stepped On A Cornflake!!! Now I'm A Cereal Killer!
-
- User
- Posts: 17
- Joined: Sun Apr 25, 2004 9:12 pm
- Location: Europe, Belgium
IncludeBinary ";picture name + path;" will include a picture in your exe.
if you want to make a screensaver u can use the 2d drawing functions but
there are lot's of other possebillety's
you can start by using OpenScreen() command and use sprites to display
them. You can load your pictures directly from the executable into the
video memmory. But study the manual first before you write your code.
If you have more speciffic questions post them. I'm sure you'll get more
help.

if you want to make a screensaver u can use the 2d drawing functions but
there are lot's of other possebillety's
you can start by using OpenScreen() command and use sprites to display
them. You can load your pictures directly from the executable into the
video memmory. But study the manual first before you write your code.
If you have more speciffic questions post them. I'm sure you'll get more
help.

-
- User
- Posts: 17
- Joined: Sun Apr 25, 2004 9:12 pm
- Location: Europe, Belgium
if you want to display all pics in a certain directory, then this might help you abit on your way..
It makes a list of all your files (or using a file-pattern) in a dir:
It makes a list of all your files (or using a file-pattern) in a dir:
Code: Select all
; make a list of strings.. :)
NewList files.s()
; set the directory
dir.s = "c:\temp"
ExamineDirectory(0,dir,"*.*")
Repeat
result = NextDirectoryEntry()
If result = 1 ; 1 is a file, 2 is a directory
name.s = DirectoryEntryName()
; add a new item to our list
AddElement(files())
; name the item
files() = name.s
EndIf
Until result = 0
; now list it
OpenConsole()
ResetList(files())
While NextElement(files())
PrintN(files())
Wend
; wait for return
Input()
CloseConsole()
ClearList(files())
End
AMD Athlon XP2400, 512 MB RAM, Hercules 3D Prophet 9600 256MB RAM, WinXP
PIII 800MHz, 320 MB RAM, Nvidia Riva Tnt 2 Mach 64 (32MB), WinXP + Linux
17" iMac, 1.8 GHz G5, 512 MB DDR-RAM, 80 GB HD, 64 MB Geforce FX 5200, SuperDrive, OSX