Solved

JPEG in Delphi

Posted on 1997-03-18
5
1,009 Views
Last Modified: 2013-11-19
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.
0
Comment
Question by:orionltd
5 Comments
 

Expert Comment

by:fonta
ID: 1334906
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
fonta@telnetwork.it
0
 
LVL 3

Expert Comment

by:mheacock
ID: 1334907
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:

   http://www.cdrom.com/pub/delphi_www/

0
 
LVL 3

Expert Comment

by:mheacock
ID: 1334908
Were you able to download a few JPG components?  Did they do
what you were looking for?
0
 

Author Comment

by:orionltd
ID: 1334909
Sorry Fonta had a better answer
0
 

Accepted Solution

by:
jaimi earned 100 total points
ID: 1334910
To view a Jpeg from within your delphi program, you can
download the following file:

http://carbohyd.siobc.ras.ru/torry/VCL/GRAPHICS/NVIEWLIB.ZIP

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;
begin
    if opendialog1.execute then begin
        Image1.Picture.Bitmap.Handle:= NViewLibLoad('fig.jpg',         FALSE);
    end;
end;
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
In this Micro Tutorial viewers will learn the basic shortcuts and functions in InDesign.
Learn how to download your full Prezi presentation for offline presenting. Prezi doesn’t have to be viewed and shared in a web browser, even with a free account you can download your full presentation to share with others. Be sure to download any vi…

713 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question