Thema: Delphi JPG's in BMP's umwandeln

Einzelnen Beitrag anzeigen

Benutzerbild von idontwantaname
idontwantaname

Registriert seit: 31. Aug 2004
Ort: Traiskirchen
575 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: JPG's in BMP's umwandeln

  Alt 17. Dez 2005, 10:06
ganz einfach:
Du lädst das Bild in ein TJPEGImage, dann machst du ein neues Bitmap-Objekt, per Assign bringst du das JPG-Bild hinein, abspeichern, fertig

Delphi-Quellcode:
uses JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  bmp := TBitmap.Create;
  try
    jpg.LoadFromFile('J:\test.jpg');
    bmp.Assign(jpg);
    bmp.SaveToFile('J:\test.bmp');
  finally
    jpg.Free;
    bmp.Free;
  end;
end;
Oliver Hanappi
  Mit Zitat antworten Zitat