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.
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