Delphi FAQ

Jak skonwertować obrazek z *.bmp na *.jpg

Adam Boduch

Począwszy od Delphi 3 znajduje się moduł jpeg. To właśnie dzięki niemu można dokonać konwersji. Wystarczy dokonać takiej operacji:

var
  Bitmap : TBitmap;
  JPG : TJPEGImage;
begin
  try
    Bitmap := TBitmap.Create;
    Bitmap.LoadFromFile('C:\plik.bmp');
    JPG := TJPEGImage.Create;
    JPG.Assign(Bitmap);
    JPG.SaveToFile('C:\plik.jpg');
  finally 
    Bitmap.Free;
    JPG.Free;
  end;
end;

Zobacz także:

FAQ

6 komentarzy

bordeux: tamten komentarz ma już prawie rok :-P
Pewnie chodziło mu o zasadę działania :-D

Za pomocą tego???? hahaha tylko na bitmapki dziala

Mam pytanko. Mozna zapomocą tego przkonwertować plik z wav na mp3? czy nie?

No wlasnie, tez chcialem na to zwrocic uwage

dzieki za pomoc, ale...

"JPG.Assign(B);" ---> JPG.Assign(Bitmap);
B.Free;" ---> Bitmap.Free;