Image aus der DB "resizen" und ins ClipBoard kopieren

[Reinhardtinho]

Super, das mit dem Canvas.StretchDraw() klappt nun wunderbar.

Nun noch etwas, ich habe das jetzt für ein Bitmap gemacht, in der Datenbank können (bzw. werden) die Bilder von unterschiedlichen Typen sein (*.bmp; *.jpg; *.jpeg).

Nun habe ich in einer Testanwendung mal ein Bild vom Typ *.jpg geladen und verkleinert abgespeichert, allerdings ist das Resultat eine weiße Fläche (mit richtiger Größe).

Was muss ich noch ändern, dass auch Jpg-Bilder verkleinert werden können?

Delphi-Quellcode:

  Bitmap := TBitmap.Create;

  try
    Bitmap.Width  := 100;
    Bitmap.Height := 100;

    Bitmap.Canvas.StretchDraw(Rect(0,0,100,100), Image1.Picture.Bitmap);

    Bitmap.SaveToFile('C:\Dokumente und Einstellungen\Lorenz.Reinhardt\Desktop\Bild.bmp');
  finally
    Bitmap.Free;
  end;

Vielen Dank!

MFG
Lorenz