Bild in TImage in einer anderen Größe abspeichern

[Nalincah]

Wie kann ich ein bmp (Grösse in Pixel: 556x792), welches im TImage geladen wurde, unter z.B. 1112x1584 abspeichern? Also vorher die Größe verändern. Oder als 10x10cm mit 127dpi??

[MarcoWarm]

Hi,

um das zu erreichen musst Du das Bitmap auf alle Fälle in ein neues übertragen.
Schritte:
1. kleines Bild laden
BmpSmall.LoadFromFile(...) 2. großes Bild erstellen

Delphi-Quellcode:

BmpLarge:=TBitmap.create;

BmpLarge.PixelFormat:=BmpSmall.PixelFormat;
BmpLarge.Width:=1112;
BmpLarge.Height:=1584;

3. kleines auf großes Bild zeichnen und speichern

Delphi-Quellcode:

BmpLarge.Canvas.StrechDraw(BmpLarge.Canvas.ClipRect,BmpSmall);
BmpLarge.SaveToFile(...);

zugegeben, das Ergebnis wird nicht sonderlich schön, da das Bitmap nicht interpoliert vergrößert wird.
Wenn man das will empfiehlt sich:
http://delphi.icm.edu.pl/ftp/d20free/resample.zip

Ciao

Marco

[Nalincah]

So..Dieser Code funktioniert nur teils. Es wird zwar ein Bild abgespeichert das dem Format entspricht, aber leider ist es leer und mein "Image1" welches auf der Form liegt verschwindet aufeinmal.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BmpNeu : TBitmap;
  dpi : Integer;
  NeuWidth,NeuHeight:Extended;
begin
  NeuWidth := (StrToInt(EditBreite.Text) * StrToInt(EditDpi.Text)) / 2.54;
  NeuWidth := 1270 / 2.54;
  BmpNeu := TBitmap.Create;
  BmpNeu.PixelFormat := Image1.Picture.Bitmap.PixelFormat;
  BmpNeu.Width := StrToInt(EditBreite.Text);
  BmpNeu.Height := StrToInt(EditHoehe.Text);
  BmpNeu.Canvas.StretchDraw(BmpNeu.Canvas.ClipRect,Image1.Picture.Bitmap);
  BmpNeu.SaveToFile(LabeledEdit2.Text);
end;

Woran könnte das liegen?

[Nalincah]

Noch ne Frage..Wie kann ich ein Bild unter einer bestimmten dpi-Anzahl speichern???

[MarcoWarm]

Also der von dir gepostete Code funktioniert bei mir. Habs grad ausprobiert.

[Nalincah]

Mein Fehler..Falsche Kompo drin gehabt..Jetzt klappts hier auch
Danke