JPEG in Delphi

I'm trying to make a program, which browses through
my collection of holidayphoto's, which I scanned myself.

I saved these pictures in JPG format to save disk space.

Could somebody help me, how to view them.
Is there a freeware sourcecode for it, because
ImageLib is just not it for me, because
I don't want to spent money on it, and I
don't like the screens that it gives.
Who is Participating?
jaimiConnect With a Mentor Commented:
To view a Jpeg from within your delphi program, you can
download the following file:

You would then call this function:
function NViewLibLoad(FileName : PChar; ShowProgress: BooLean):hbitmap; Stdcall;

Assuming you had an openfile dialog named opendialog1, a
button named openbutton, and a timage named image1 then
you could view it like this:

procedure tform1.openbuttonclick(sender : tcomponent);
var hbm : hbitmap;
    if opendialog1.execute then begin
        Image1.Picture.Bitmap.Handle:= NViewLibLoad('fig.jpg',         FALSE);
It's possible, if you only want to view those pictures in the screen, to put an Ole Container control (you can find it in the System tab of the component palette) and then you can make a table with only the filename (string field) and some other fields containing other information about your images (what you want). In response on an event you can use the method LoadFromFile of the Olecontainer control and the name of the file could be given by the appropriate field on your table ... if you are really interested I can send you a piece of code as an answer ok ?

my e-mail is
There are some FREEWARE jpeg components available at the
Delphi Super Page...if all you want to make is a kind of
slide show, then these would be perfect for you...the URL is:

Were you able to download a few JPG components?  Did they do
what you were looking for?
orionltdAuthor Commented:
Sorry Fonta had a better answer
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.