loading tiff image error

[Packs]

I want to load tiff image on timage component


1st method Design time it is working properly
2nd method : runtime try to load img_front.Picture.LoadFromFile('xyz.tif'); getting error exception class 'FPImageException'  wrong image format

3rd method :

Code: Pascal  [Select][+][-]

1.  
2.  TIFF: TTiffImage;    
3. TIFF := TTiffImage.Create;  
4. TIFF.LoadFromFile('xyz.tif);  
5. img_front.Picture.Bitmap.Assign(TIFF);    
6.  
7. compression CCITT Group 4 fax encoding not supported yet at position  
8.  

Please guide correct method to load tif image

[marcov]

Known, https://gitlab.com/freepascal.org/fpc/source/-/issues/21871

[Packs]

Dear sir.

any solution or option

[domasz]

Okay, so TIFF stands for Thousands of Incompatible File Formats. It's basically a container inside which you can put lots and lots of different file formats, even JPEGs.
There doesn't exist a single program that supports all possible TIFF formats. Current implementation in Lazarus does support just a few.
Solutions:
1) use a different TIFF format, for example LZW
2) call a program (for example imagemagick) in background to convert from TIFF to something else, for example BMP
3) under Windows you might try GDI+. It does supports some TIFF formats

[Packs]

How it is getting loaded at design time

[domasz]

Can you post here you TIFF file?

[cdbc]

Hi
Could it be a "library location" thingy, i.e.: At designtime the lib is known to the IDE and at runtime, the app can't /see/ the lib?!?
Regards Benny

[Packs]

sharing you zip file which contain TIF image file .

[DragoRosso]

I can use this tiff file everywhere in Windows, also Delphi native support it.

You can use WICImage class of Windows to load this image and simply transform it like in example:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var tempfilename: string;
3.     tempimmagine: TWICImage;
4.     tempbitmap: TBitmap;
5. begin
6.   tempbitmap := nil;
7.     begin
8.       try
9.         tempfilename := 'BTT358010816040220250140001200983558.tif';
10.         tempbitmap := TBitmap.Create;
11.         tempimmagine := TWICimage.Create;
12.         tempimmagine.LoadFromFile(tempfilename);
13.         tempbitmap.Assign(tempimmagine);
14.         Image1.Picture.Assign(tempbitmap);
15.       except
16.         ;
17.       end;
18.       if Assigned(tempbitmap) then
19.         tempbitmap.Free;
20.       if Assigned(tempimmagine) then
21.         tempimmagine.Free;
22.     end;
23. end;

In Delphi there is a standard implementation (Windows unity) TWICImage that incapsulate the Windows object, but I was not able to find one equivalente in Lazarus / FPC.

There is one somewhere ?

[marcov]

Maybe one of the WIA or DirectShow packages for older Delphis have something that you can adapt to lazarus. Like DSPack.

[domasz]

sharing you zip file which contain TIF image file .

I can't load your file to TImage in Lazarus in either design mode or run time. Maybe Windows rendered a preview for you when you where selecting the image but Lazarus just doesn't support this TIFF format out of the box.

[marcov]

It is a type that is typically used by fax machines, something that went somewhat out of favour, which is probably why nobody bothered yet.

IIRC Mattias once tried, but I don't know what became of it.

[DragoRosso]

From this Topic ( https://forum.lazarus.freepascal.org/index.php?topic=47014.15 ) I extract the code and it's working for this image. May be with a little works, who is interested can make a standard addon x FPC and Lazarus.

[Packs]

Is there any alternative options.

Like any other language will convert to bmp in the background and I will show in Lazarus application

[Tomxe]

You can try this:
https://forum.lazarus.freepascal.org/index.php/topic,70252.0.html