Bildbearbeitung mit Delphi

[freeway]

Delphi-Quellcode:

procedure JPEGtoBMP(const FileName: TFileName);
var jpeg : TJPEGImage;
    bmp  : TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    image1.Assign(jpeg);
  finally
    jpeg.Free
  end;
end;

annsonsten Dieses Forum durchsuchen png als stichwort