Delphi bmp dosyasını jpg dosyasına çevirme

En sık kullanılan resim formatlarından olan bmp ve jpg formatları arasında dönüşüm işlemini bu makalemizde delphi tarafında nasıl yapıldığını göreceğiz.

Bmp formatını jpg formatına çevirme

Alttaki kodlardada gördüğünüz gibi uses satırına Jpeg,Graphics eklemelisiniz.

uses Jpeg,Graphics;
 
procedure Convert();
var
  Bitmap  : TBitmap;
  JpegImg : TJpegImage;
begin                  
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:a.bmp');
    JpegImg := TJpegImage.Create;
    try
      JpegImg.Assign(Bitmap);
      JpegImg.SaveToFile('c:a.jpg');
    finally
      JpegImg.Free;
    end;
  finally
    Bitmap.Free;
  end;
end;

uses Jpeg,Graphics;

procedure Convert();

var

Bitmap : TBitmap;

JpegImg : TJpegImage;

begin

Bitmap := TBitmap.Create;

try

Bitmap.LoadFromFile('c:a.bmp');

JpegImg := TJpegImage.Create;

try

JpegImg.Assign(Bitmap);

JpegImg.SaveToFile('c:a.jpg');

finally

JpegImg.Free;

end;

finally

Bitmap.Free;

end;

İçeriği puanla diğer kullanıcılara ışık tut

Kategoriler

Bloga e-posta ile abone ol

Delphi bmp dosyasını jpg dosyasına çevirme

Bmp formatını jpg formatına çevirme

Bir yanıt yazın Yanıtı iptal et

Bmp formatını jpg formatına çevirme

Bir yanıt yazın Yanıtı iptal et

Murat Öner sitesinden daha fazla şey keşfedin