How to convert from TBGRABitmap to TBitmap?

[domasz]

I thought this should work but it just creates a full black image.

I know I can do "A.Assign(B);" but I would prefer to keep whatever pixelformat and width/height I have.

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

1. var A: TBitmap;
2.     B: TBGRABitmap;
3. begin
4.   B := TBGRABitmap.Create('test.png');
5.  
6.   A := TBitmap.Create;
7.   A.PixelFormat := pf32bit;
8.   A.Width := B.Width;
9.   A.Height := B.Height;
10.  
11.  
12.   B.Draw(A.Canvas, 0,0);
13.   A.SaveToFile('test.bmp');
14.   A.Free;
15.   B.Free;

[KodeZwerg]

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   A: TBitmap;
4.   B: TBGRABitmap;
5. begin
6.   B := TBGRABitmap.Create(ExtractFilePath(ParamStr(0)) + 'KodeZwerg.png');
7.   try
8.     A := TBitmap.Create;
9.     try
10.       A.PixelFormat := pf32bit; // it automatic be whatever your display got, it is bugged
11.       A.Width := B.Width;
12.       A.Height := B.Height;
13.       A.Canvas.CopyMode := cmSrcCopy;
14.       A.Canvas.CopyRect(
15.             Rect(0,
16.                  0,
17.                  A.Width,
18.                  A.Height),
19.             B.Canvas,
20.             Rect(0,
21.                  0,
22.                  B.Width,
23.                  B.Height));
24.       A.SaveToFile(ExtractFilePath(ParamStr(0)) + 'KodeZwerg.bmp');
25.     finally
26.       A.Free;
27.     end;
28.   finally
29.     B.Free;
30.   end;
31. end;

Does that fit your needs?

[domasz]

Does that fit your needs?

Interesting, thank you!

[lainz]

The first spammer that uses Chat-GPT? Or just did a search... Casino link.

Edit: response is good, moderator please just remove the link...

[KodeZwerg]

I know I can do "A.Assign(B);"

  bmp.Assign(bgraBmp.Bitmap);

response is good

I am curious how this can be good when it was already in original post but please do what you think is best for forum

[lainz]

Yes, but keep it is not as bad, at lease shows with actual code how to assign..

You can do this as well:

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

1. BGRAReplace(bgra, bgra.resample(bitmap.width, bitmap.height));

To resample with high quality the bgrabitmap.

Then you can draw it to any canvas:

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

1. bgra.Draw(bitmap.canvas, 0, 0);