Hello, I have a buffer from a camera with a image in Mono12 or in Mono8 pixel format. I want to save it in jpeg.
For convert from Mono8 to RGBA, I wrote:
Imagen := TFPMemoryImage.Create(g_Frames.Width, g_Frames.Height);
fpCol.Alpha := $FFFF;
if PixelFormat[0] = 'Mono8' then
begin
src := pInt8(g_Frames.buffer);// pInt8 is a pointer to shortInt
for Y := 0 to g_Frames.Height - 1 do
begin
for X := 0 to g_Frames.Width - 1 do
begin
fpCol.Red := Abs(src^ * $101);
fpCol.Green := Abs(src^ * $101);
fpCol.Blue := Abs(src^ * $101);
Imagen[x, y] := fpCol;
Inc(src);
end;
end;
end
After thar I write the image to file, like this:
jpeg := TFPWriterJPEG.Create;
Imagen.SaveToFile('pepe.jpg', jpeg);
Imagen.Free;
But How Can I convert from Mono12 to RGA.
Thanks in advance
/BlueIcaro