Menu Search

Borland Delphi

JPEG in ein Bitmap konvertieren
uses jpeg;

procedure JpegToBmp(const Filename: String);
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;

Aufgerufen werden kann die Prozedur beispielsweise so:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
JpegToBmp(OpenDialog1.Filename);
end;

Liste

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

Index

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

LetzteChance.Org - Links -

PDF/ZIP/Word