asked on

Generate Thumbmails JPEG/JPEG

I need a few simple rutines to do following:
like Procedure big2small( Infile,outfile : string; MaxH, MaxW : integer);

Infile = Jpeg
Outfile = jpeg
MaxH = Max height of output pic, keep aspect ratio,
MaxW = max width -"-

More options allowed if any good ideas..

PS: In delphi 3.x NOT delphi 4 and nOT OCX

Not interested in Buyware components Thanks.

brainware

ASKER

Edited text of question

dwwang

Why not use the thumbnails function provided by WangImage(TM),
it's an OCX included in Win95. It's now the world leading Image process software and totally free!

brainware

ASKER

I will look into that, i tryed it long time ago, forgot that one :)
well.. hope its in NT too else ill just have to use win9x to do the job.

brainware

ASKER

Edited text of question

ASKER CERTIFIED SOLUTION

JimBob091197

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

viktornet

JimBob's solution is perfect... If you use the OCX you have to supply the OCX if you try to run the software on another computer that doesn't have that OCX...so better use simple solution... No need to get your hands dirty with the OCXes....

Cheers,
Viktor

brainware

ASKER

I Tryed your code with StretchBlt, Its almost worth using :)
Well it (Edited by Computer101) Colors and (Edited by Computer101) up...
I think i know how to fix, But you are welcome to Add as Comment..
Mvh
Michael