JPEG in an OpenPictureDialog 1

[hennep]

When I click on a jpg, gif, tif file in an OpenPictureDialog the result is an error.
Can somebody tell how to open these files with the OpenPictureDialog.
So far only bmp seems to work.

 

[BTecho]

Hello again

You just need to #include <jpeg.hpp>

For Gif's you can try TGifImage by Anders Melander though I have not yet tried it with BCB6.

Modified verions

http://finn.mobilixnet.dk/delphi

Original with extra documentation

http://www.torry.net/vcl/graphics/gif/gifimage.exe

The component is now also included in the Jedi-VCL library.

 

[hennep]

thanks again,

Hennie

 

[hennep]

I get an error when I try to rotate the TImage with a jpg loaded, with a bmp loaded it works fine.
the code I have used was copied from:

http://www.bytamin-c.com/Howto/rotatebitmap.htm

Is there a way to convert the jpeg to a bitmap before rotating ?

 

[BTecho]

Hi hennep

Sorry for taking so long to reply.

If you still happen to need a tip, when loading a jpeg into the TImage load it like so,

TJPEGImage *Jpeg = new TJPEGImage;
Graphics::TBitmap *Bmp=new Graphics::TBitmap();

//This line below only needed only if you had a Jpeg loaded using
//Image1->Picture->LoadFromFile(&quot;c:\\test.jpg&quot;
Image1->Picture->Assign(NULL);

Jpeg->LoadFromFile(&quot;c:\\test.jpg&quot;

Bmp->Assign(Jpeg);

TRect Rect( 0, 0, Bmp->Width, Bmp->Height);
Image1->Canvas->CopyRect(Rect,Bmp->Canvas,Rect);

This way the TImage thinks you actually have a TBitmap loaded.

There could be a better solution, if I find one I'll let you know.

 

[hennep]

Thank btecho,
this works perfect.

Hennep


With the TGifImage from Anders Melander I can also load gif image the same way:

//add Gifimage.pas to the project
#include &quot;Gifimage.hpp&quot;
TGIFImage*gif = new TGIFImage
Graphics::TBitmap *Bmp=new Graphics::TBitmap();
Image1->Picture->Assign(NULL);
gif->LoadFromFile(&quot;c:\\test.gif&quot;
Bmp->Assign(gif);
TRect Rect( 0, 0, Bmp->Width, Bmp->Height);
Image1->Canvas->CopyRect(Rect,Bmp->Canvas,Rect);

 

[BTecho]

Great :-D

 

[dominochmiel]

But nobody write about TIFF. How I can open it or where i can find component to do it?

 

[butthead]

I have never even seen a tiff file. tiff is so 90's.
HA HA

 

[hennep]

hi dominochmiel,

Just found this link:

http://delphi.icm.edu.pl/ftp/d20free/tiff2bmp.zip

hop it helps

Hennie

 

[hennep]

and another one:

http://www.programmersheaven.com/zone2/cat497/5844.htm

don't know if you can make these delphi components work in bcb.
Source code is included, it can't be too difficult.