HI

I load jpeg200 from TBlob to TSingleImage and convert jpeg2000 to jpeg format.
str_file_path := "c:\file.";

TBlobField(qr_graphic.FieldByName('GRAPHIC')).SaveToStream(mem_st);
Img := TSingleImage.Create;
try
  try
     mem_st := TMemoryStream.Create;
     mem_st.Position := 0;
     Img.LoadFromStream(mem_st);
     Img.SaveToFile(str_file_path + 'jpg');
  except
  end;
finally
  mem_st.Free;
  Img.Free;
end;

But how I can change quality of jpeg to 75% or recomperss it? Help please.

I have images that fill by bytes.
This images- 1024х1280х1- opened in Photoshop as RAW - format, with parameter depth - 8 Bits, Count - 1, Width, Height

In code image save in
imageBuf: array[0..1279, 0..1023] of byte;

Is it possible convert this array of bytes to jpeg or png