Bildgröße verändern

**BigBen**

Hallo,
ich möchte 50 Pixel der rechten Seite eines Bitmaps abschneiden.
Mir ist aber nicht klar, wie die Zuweisung der cut-Daten hinhaut. (Dat is meine erste Woche, die ich mich mit Delphi beschäftigen muss

)
Der folgende Code lässt sich zwar compilieren, gibt dann aber einen Fehler aus:

---------------------------
Anwendungsfehler
---------------------------
Exception EAccessViolation in Modul Bmp_resize.exe bei 000153B1.

Zugriffsverletzung bei Adresse 004153B1 in Modul 'Bmp_resize.exe'. Lesen von Adresse 00000001.

zusammenfalten · markieren

Delphi-Quellcode:

			program Bmp_resize;

uses

  Windows, Graphics;

{$R *.res}

var

  SourceBitmap : TBitmap;

  TargetBitmap : TBitmap;

  Cut : TRect;

begin

  SourceBitmap.LoadFromFile('ausweis.bmp');

  TargetBitmap.Width := Cut.Right - Cut.Left;

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

  BitBlt(TargetBitmap.Canvas.Handle, 0, 0, 50, 0, SourceBitmap.Canvas.Handle, 0, 0, SRCCOPY);

  TargetBitmap.SaveToFile('ausweis.bmp');

end.

Bin über jede Hilfe dankbar

LG
Benny

Bildgröße verändern

Bildgröße verändern

Forumregeln