Delphi 6 / 7 Access Violation on TImage design time load - delphi

I'm trying to load a jpg file which is 604KB big into a TImage component on a vanilla TForm but the load causes it to fail with an access violation:
Access violation at address 402372AD in module vcljpg60.bpl. Write of address 0904000
I just tried it in Delphi 7 and the same is true except the vcl is 70 instead of 60 and the address is slightly different
Does anyone know of a bug in Delphi around jpg files?
Many thanks for any input on this
cheers
Colin

maybe you problem is due to the colorspace of your JPEG file. Delphi has issues displaying JPEG images that have been encoded using CMYK instead of RGBencoding.
Check this Enhanced JPEG implementation which fix the problem with the CMYK colorspace. also you can check this similar question Problem with showing some JPG files in Delphi.

Related

Delphi 2005 TPngImage or Equivalent?

I see from this discussion, and the Nick Hodges blog, that the TPngImage has been rolled into Delphi. That's great and all, but we've got a project that's stuck in D2005 and we need to do a simple conversion from PNG to BMP. Is there anywhere that we can get the legitimate source for this? I do not want to run afoul of Embarcadero's licensing, but I DO want to pave the way for a smooth transition to DelphiXE2 (or 3, or 9, who knows when we'll actually convert?). Suggestions? Thanks.
The original version of the TPNGImage from Gustavo Daud is available in the torry's site http://www.torry.net/authorsmore.php?id=6929
You may also consider using the GR32 PNG library. https://sourceforge.net/projects/gr32pnglibrary/
It is a PNG library for reading and writing of PNG images in combination with a TBitmap32 class from the GR32 library.

when rendering metafile, the texts are too large

I'm having a problem with metafile rendering in my Delphi XE application.
the problem is that when I'm rendering the metafile, the texts are too large. Irfanview and FastReports render it like this:
windows 7 Paint renders it fine: (here's what the text should look like)
Any ideas what is causing this?
Thank you!
emf files are just a list of GDI commands. In fact, they can be "played back" very easily by the system, using standard Windows GDI command (in Delphi, a TMetaFile is just a wrapper around those APIs).
When IrfanView or FastReport renders the metafile content, they just use Windows GDI corresponding commands. When Windows 7 Paint renders the metafile content, it uses the GDI+ renderer. I even think it internally convert the emf file into emf+ format, then renders it with anti-aliaising using GDI+.
So if the emf file renders incorrectly in IrfanView or FastReport, I suspect this is because your metafile is not well formed: the third party graphic engine you are using is producing non standard emf. A possible issue is that the font used is missing in the target system, and GDI does not substitute the font with the same as GDI+ does.
Another possibility is that the emf file is maybe a dual format: it contains both emf format (which was not properly created so is not rendered correctly using GDI) and emf+ format (which is rendered as expected using GDI+). Normally this dual emf/emf+format should not exist: even the official GDI+ library does not allow to save its metafile content in emf+. This is some kind of "monster" format, created by your third-party library.
I suggest the following:
Download and check your emf file with EmfExplorer;
Try to use GDI+ to render the metafile;
Try to use the emf to emf+ converter API.
For using GDI+, take a look at an Open Source SynGdiPlus unit: it will add GDI+ anti-aliaising to your produced bitmap. It is able to convert emf to emf+. It will use native Vista/Seven API (just like Windows 7 paint), or plain Delphi code under Windows XP.
The cause probably is that different monitor size and screen resolution ratio. GDI has parameters HORZRES, HORZSIZE, VERTRES, VERTSIZE. In most cases HORZRES/VERTRES, HORZSIZE/VERTSIZE (resolution ratio and screen ratio) are the same and everything works well... However if they are different (I have found some examples of this happening on servers) then the pixel is assumed to be rectangular, this causes LOGFONT.lfWidth to be calculated "wrongly". LOGFONT.lfWidth determines the aspect ratio of characters and this finally causes the weird looking letters.
One solution is to change the resolution so that HORZRES/VERTRES, HORZSIZE/VERTSIZE match. The other solution is to use a printer DC to render your things. Setting the LOGFONT.lfWidth value explicitly may help. Also updating video driver may help.
I encountered the same problem, I had temporary drawing to a metafile canvas that used GetDC(0) as reference instead of printer DC. Here are some links that have the same problem:
http://us.generation-nt.com/answer/createenhmetafile-app-running-via-remote-desktop-help-27451862.html
http://social.msdn.microsoft.com/Forums/en/windowsgeneraldevelopmentissues/thread/a4a12ed8-c673-4a5c-94e1-7165b16f6955
A bit of a gamble, but:
Maybe has to do with the new system font in Vista+ that newer Delphi's support? If it happened during porting, fixate the font used in the tmetafile in the old and new version.

Delphi 7 GIF in picture Dialog

I am using Delphi 7 and the OpenPictureDialog to open / preview various images. This works fine when opening a bmp, jpg, etc.; however, if I try to do the same with a gif I get the following error. Anyone got any idea why or have a fix for it?
thanks
Colin
Use this TGIFImage. This is the original unit which was donated to CodeGear in 2006. It supports Delphi7.
copy GifImage.pas to your project path (from gifimaged2010b.zip) ,
and add to your uses list ;
thats all
It will automatically add GIF in filters for openpicturedialog (**)
Just use the GraphicEx library by Mike Lischke. Just add a couple files to your uses list and your application natively supports GIF, TIFF, PNG and many many others. The standard TImage will work with them and also the TPictureDialog (along with all others standard components that use TGraphic - take note that some features will only work at runtime).
If you use our free syngdiplus unit, you'll get GIF, JPEG and TIFF image support at once, by using the gdiplus library, available on every Windows since Windows XP. It supports loading and saving pictures, and the preview in TPictureDialog. And your exe size with increase much less than with GraphicEx or TGifImage.
Works from Delphi 6 up to Delphi XE.
And you'll be able to draw any TCanvas with anti-aliaising.
See http://synopse.info/forum/viewforum.php?id=4
Delphi 7 simply doesn't support GIF images. This has led to a number of third-party components for reading GIF files. However, as of Delphi 2006 (IIRC), the RTL/VCL can read GIF files as well. Just include GifImg in the uses clause. (In fact, as of Delphi 2009, the RTL/VCL can also read PNG files. And then there is really no need for GIF support, because the PNG file format is superior in almost every way. The only thing supported by GIF that is not supported by PNG is (low-quality(1)) animations.)
(1) GIF only supports 256 colours.

Delphi, ImageList that handles BOTH png and bitmaps

Recently I've found TPngImageList component ( http://cc.embarcadero.com/Item/26127 ) which is very good, but it handles only png images ... I'd like to have some imagelist that allows combining of pngimages with bitmaps, as I'm using lots of bitmaps, and I do not want to spend coming week converting those bitmaps to pngs, yet I want to use be able to add PNG images for coming features ...
So far I used to convert the PNGs to bitmaps using GIMP if I wasn't able to find any replacement.
png2bmp and bmp2png come to the rescue for automated commandline conversion of those image files.
As of Delphi 2009, the TImageList supports PNG images natively as Nick Hodges announced.
This doesnt answer your question, but if you do need to convert them all may I suggest the wonderful ImageMagik over GIMP, it will make your life super easy and convert all your files with one easy script.
The TImageList component in Delphi 2009 and up handles PNG and BMP files, among many others.

How to merge tiff images with Delphi?

I have 4 small tiff images and I would like to generate a big one by merging the 4 single one. Does anyone know how to do it directly with Delphi or some good component that could do it?
You could use GraphicEx by Mike Lischke to load the Tiff images:
http://www.soft-gems.net/index.php?option=com_content&task=view&id=13&Itemid=33
ImageMagick is a command line application that can do such kind of operations on different image file formats including tiff.
The API seems to be usable from Delphi, see PascalMagick.
Another excellent graphics library for Delphi is Graphics32
Edit: As Vegar said, it looks that Graphics32 cannot be used to load TIFF format.
Another library you can use is FreeImage. It supports loading and writing of TIFF files. Beware: the Delphi wrapper is not actively maintained, but it works. We use it in our software to display previews of images.
ImageEn one of the best Image libraries for Delphi, and it's native VCL ;-)

Resources