einfache frage (bestimmt) : Picture zuschneiden

[simlei]

Hallo!
Die Frage ist, wie ich ein als Image gespeichertes Bild zuschneide, sodass eben nur noch ein Rechteck aus diesem Bild übrigbleibt; was ich dann auch als Datei abspeichern kann.
Danke schonmal!

[Der_Unwissende]

Hi,
hierfür gibt es zwei sehr interessante Funktionen, BitBlt und StretchBlt. Letzteres funktioniert fast analog zu BitBlt, aber du könntest dein Bild halt auch strecken/stauchen. Für einen Zuschnitt brauchst du das ja eher nicht. Beide finden sich in der Unit Windows. Ein Rechteck kopierst du wie folgt:

Delphi-Quellcode:

var SourceBitmap : TBitmap;
    TargetBitmap : TBitmap;
    Cut : TRect;
...

begin
  // kopiert das Rechteck Cut aus der SourceBitmap in die TargetBitmap
  // Dabei wird die Größe von TargetBitmap der größe des Ausschnitts angepasst.

  TargetBitmap.Width := Cut.Right - Cut.Left;
  TargetBitmap.Height := Cut.Bottom - Cut.Top;

  BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
  SourceBitmap.Canvas.Refresh;
end;

Mit SaveToFile kannst du dann natürlich auch das TargetBitmap in ein File speichern. Auf die Bitmap eines Image kannst du mit Image.Picture.Bitmap zugreifen.

Gruß Der Unwissende

[marabu]

Beim Berechnen von Breite und Höhe bitte jeweils noch einen Pixel dazuzählen - ist besser so.

Grüße vom marabu

[0NyX]

Zitat:

Zitat von Der_Unwissende

Hi,
hierfür gibt es zwei sehr interessante Funktionen, BitBlt und StretchBlt. Letzteres funktioniert fast analog zu BitBlt, aber du könntest dein Bild halt auch strecken/stauchen. Für einen Zuschnitt brauchst du das ja eher nicht. Beide finden sich in der Unit Windows. Ein Rechteck kopierst du wie folgt:

Delphi-Quellcode:

var SourceBitmap : TBitmap;
    TargetBitmap : TBitmap;
    Cut : TRect;
...

begin
  // kopiert das Rechteck Cut aus der SourceBitmap in die TargetBitmap
  // Dabei wird die Größe von TargetBitmap der größe des Ausschnitts angepasst.

  TargetBitmap.Width := Cut.Right - Cut.Left;
  TargetBitmap.Height := Cut.Bottom - Cut.Top;

  BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
  SourceBitmap.Canvas.Refresh;
end;

Mit SaveToFile kannst du dann natürlich auch das TargetBitmap in ein File speichern. Auf die Bitmap eines Image kannst du mit Image.Picture.Bitmap zugreifen.

Gruß Der Unwissende

Guten Abend,

ich wollte soeben die Funktion verwenden, jedoch bekomme ich dabei immer eine Zugrifssverletzung und ich weiß nicht warum :(
Ich würde mich freuen wenn jemand von euch mal bitte drüber schauen würde, vielen Dank im voraus!

Code:

Delphi-Quellcode:

procedure TfmMain.zuschneiden;
var SourceBitmap : TBitmap;
    TargetBitmap : TBitmap;
    Cut : TRect;
begin
  // kopiert das Rechteck Cut aus der SourceBitmap in die TargetBitmap
  // Dabei wird die Größe von TargetBitmap der größe des Ausschnitts angepasst.
  SourceBitmap.Create;
  TargetBitmap.Create;
  SourceBitmap.LoadFromFile('C:\Users\Davide\Documents\bild1.bmp');
  Cut.Left := 50;
  Cut.Top := 500;
  Cut.Right := 500;
  Cut.Bottom :=  100;

  TargetBitmap.Width := Cut.Right - Cut.Left;
  TargetBitmap.Height := Cut.Bottom - Cut.Top;

  BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
  SourceBitmap.Canvas.Refresh;
  TargetBitmap.SaveToFile('C:\Users\Davide\Documents\bild2.bmp');
end;

MfG 0NyX

[Pfoto]

Du musst die Bitmaps noch erstellen:

Delphi-Quellcode:

SourceBitmap:= TBitmap.Create;
  TargetBitmap:= TBitmap.Create;

Edit:
und freigeben nicht vergessen, deshalb besser
in einem try finally block, etwa so:

Delphi-Quellcode:

  SourceBitmap:= TBitmap.Create;
  TargetBitmap:= TBitmap.Create;
  try
    // Hier was tun...
  finally
    SourceBitmap.Free;
    TargetBitmap.Free;
  end;

Gruß
Jürgen

[0NyX]

Guten Abend Jürgen,

vielen Dank für deine Hilfe :)

Jedoch tritt jetzt ein neuer Fehler auf:

Zitat:

Im Projekt ist eine Exzeption der Klasse EOutOfRessources aufgetreten.
Meldung: Falscher Parameter

:(

Gruß David

[mkinzler]

Und in welcher Zeile?

[0NyX]

Zitat:

Zitat von mkinzler

Und in welcher Zeile?

In dieser Zeile:

Delphi-Quellcode:

TargetBitmap.Height := Cut.Bottom - Cut.Top;

[mkinzler]

Ist ja auch negativ!

[0NyX]

ahja stimmt :-[

Schuldige :(

Vielen Dank für eure Hilfe!

Klappt nun alles!