Image1.Bitmap.Assign(Layout1.MakeScreenshot);

(28-09-2023, Saat: 17:07)barissagir Adlı Kullanıcıdan Alıntı: Selamün Aleykum

Merhaba arkadaşlar,

Androidde 

 Image1.Bitmap.Assign(Layout1.MakeScreenshot);

bu kodlar ekran görüntüsünü Image alıyorum 
ordan da Whatsapp duruma paylaşıyorum.

Ama Image1 e aktarım sırasında görüntü kalitesinde düşüklük oluyor.

Nasıl arttıtarbilirim görüntü kalitesini?

uses FMX.Surfaces;

{$R *.fmx}

procedure TForm1.Button2Click(Sender: TObject);
var
  NewBitmap: TBitmap;
  CodecParams : TBitmapCodecSaveParams;
  MS1 : TMemoryStream;
  Surf: TBitmapSurface;
  JpgQuality : TBitmapCodecSaveParams;
begin

  ms1:=TMemoryStream.Create;
  try
    newBitmap:=Tbitmap.Create;
    newBitmap.Assign(Layout1.MakeScreenshot); 

    JpgQuality.Quality := 100;

    MS1.Position := 0;
    Surf := TBitmapSurface.Create;
    try
      Surf.assign(NewBitmap);
        if not TBitmapCodecManager.SaveToStream(
                         MS1,
                         Surf,
                         '.jpg', @JpgQuality) then

          raise EBitmapSavingFailed.Create(
                'Kayıt işlemi başarısız oldu.');


      ms1.Position:=0;
      ms1.SaveToFile('C:\Users\XXXXX\Desktop\sil2.bmp.jpg');
    finally
      Surf.Free;
    end;
  finally
    ms1.Free;
  end;
end;