Bildbearbeitung mit Delphi

[DeddyH]

Zitat von Muellermilchtrinker:

Ich mache das so:
StretchGraphic(Image1.Picture.Graphic,Image2.Picture.Graphic,30,30,False); Wobei Image2 leer ist

Leer bedeutet nil? Das ist dann falsch, ich hatte die Benutzung der Routine so vorgesehen (Beispiel aus dem Kopf, Fehler vorbehalten):

Delphi-Quellcode:

Quelle := TBitmap.Create;
try
  Ziel := TJPEGImage.Create;
  try
    Quelle.LoadFromFile(Dateiname);
    StretchGraphic(Quelle, Ziel, 200, 200);
    ImageBla.Picture.Graphic.Assign(Ziel);
  finally
    Ziel.Free;
  end;
finally
  Quelle.Free;
end;