delphifiremonkey
How to display correctly image with icc color profile embed?
Under delphi tokyo, If i try to show this image:
https://chromachecker.com/include/img/web_browser/redtruck_GBR.jpg
Inside a Timage then instead of a blue sky it's show a GREEN sky like below :
How in delphi we can show correctly picture with embed color profile ?
Solution
A complete answer and example is way too broad. But here's a rough outline what you need to do. See it as a starting point for further research.
- Get the color profile of your image. Either the EXIF data refers to a well known profile, or it is embedded in the image metadata.
- Get the color profile of the screen
GetICMProfile - Load the color profiles of the screen and your image:
OpenColorProfile - Create the color transform:
CreateMultiProfileTransform - Translate the colors:
TranslateBitmapBits - Clean up:
CloseColorProfile,DeleteColorTransform
- What are the list of all possible values for DVCLAL?
- Embedding Instance of LibreOffice into Application (with TOLEContainer)
- How can I simulate Alt+Shift to change the language in Windows (II part)?
- How can I simulate Alt + Shift to change the language in Windows?
- Disable automatic changing of keyboard layout in DbGrids.pas in VCL
- How to make Delphi's IDE scroll correctly?
- Selecting a directory with TOpenDialog
- Graphics32: Pan with mouse-drag, zoom to mouse cursor with mouse wheel
- lazarus / delphi (pascal) - writing to txt file without overwriting next time
- Run and close files.exe
- Creating a Database using DBExpress in Delphi?
- DBLookupComboBox - How to clear the selected item?
- How do I reset a buffer of indy UDP client?
- Using Indy10, UDP server return response being sent by a different IP
- How to keep a pointer to a Dynamic Array valid after resizing the array?
- TakePhotoAction crashes android app and starts again on xiaomi Android 12
- How to get a list of outbound firewall rule names?
- How to minimize a window to the taskbar? (i.e. not iconify)
- "Object lock not owned" error while using OnPaint method
- Delphi TValueListEditor Strings prop-ed quirk?
- What is the fastest way to check if two Tbitmaps are the same?
- Why do I get the following error when trying to do a TUniQuery.Post: "Cannot create new connection because in manual or distributed transaction mode"
- Use of Delphi 10.4. and 12.2 inside 1 project
- Is it possible to retrieve attributes for an Enum value in Delphi 12?
- Delphi - RTTI info about methods in records
- Delphi 2010 RTTI : Explore Enumerations
- How do I position a TOpenDialog
- Assert raise no Exception
- Request to Amazon API with delphi : Got HTTP/1.1 403 Forbidden
- Return the root directory of Delphi executable