28-09-2023, Saat: 18:52
(Son Düzenleme: 28-09-2023, Saat: 20:16, Düzenleyen: hi_selamlar.)
(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?
Merhabalar,
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;
jpg dönüştürüp denermisiniz.
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.

