1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Var
  jpeg: TJPEGImage;
  bmp: TBitmap;
Begin
  jpeg:= TJPEGImage.Create;
  try
   jpeg.LoadFromFile( filename );
   bmp:= TBitmap.Create;
   try
   bmp.Assign( jpeg );
   bmp.SaveTofile( ChangeFileExt( filename, '.BMP' ));
   finally
   bmp.free
   end;
  finally
   jpeg.free
  end;
end;                    

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!