Bmp nach Farbe Scannen und Resultat anzeigen.. stürzt ab

[Eggimaa]

Also ich mal wieder..

folgendes Problem.
Ich habe ein Bit Map 24 Bit RGB, aus diesem Bitmap möchte ich die Pixels mit
der Farbe Schwarz bestimmen, das Funktioniert auch bestens.
Ich möchte nach erfolgreichem Scan das gefilterte Bild anzeigen.. und am Schluss
schwirrt das Programm mit einer Zugriffsverletzung ab. Was mach ich falsch.
Hier der Code

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, Spin, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Rot: TEdit;
    Gruen: TEdit;
    Blau: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Hoehe: TSpinEdit;
    Breite: TSpinEdit;
    Label4: TLabel;
    Label5: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    BmpHoehe: TEdit;
    BmpBreite: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Count: TEdit;
    Memo1: TMemo;
    PGImage1: TImage;
    Anzeigen: TButton;
    Edit1: TEdit;
    Edit2: TEdit;

    procedure FormCreate(Sender: TObject);
    procedure HoeheChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AnzeigenClick(Sender: TObject);
    procedure Zeichnen;

  private
    { Private-Deklarationen }
    BitMap  : TBitmap;
  public
    { Public-Deklarationen }
    Resultat : array [0..350,0..1] of Integer;
    counter :Integer;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 BitMap:= TBitmap.Create;
 BitMap.LoadFromFile('C:\Grafik1.bmp');
 BmpHoehe.Text := IntToStr(BitMap.Height);
 BmpBreite.Text := IntToStr(BitMap.Width);

end;

procedure TForm1.HoeheChange(Sender: TObject);

var
  X,Y     : Integer;
  S1      : PByteArray;
begin
  X := Hoehe.Value;
  Y := Breite.Value;
  S1 := BitMap.ScanLine[X];
  Blau.Text := IntToStr((PByte(Integer(S1) + Y * 3)^));             //Blau
  Gruen.Text :=IntToStr((trunc(PByte(Integer(S1) + Y * 3 + 1)^)));  // Grün
  Rot.Text := IntToStr((trunc(PByte(Integer(S1) + Y * 3 + 2)^)));   //Rot
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X,Y     : Integer;
  S1      : PByteArray;
  i,j     : Integer;
  counter :Integer;
  schwarz : string;


begin
  Counter := 0;
  Y := StrToInt(BmpHoehe.text);
  X := StrToInt(BmpBreite.text);
  schwarz:= '';


  for i := 0 to Y -1  do
  begin
  S1 := BitMap.ScanLine[i];
  j:= 0;
    repeat
      Blau.Text := IntToStr((PByte(Integer(S1) + j * 3)^));    //Blau
      Gruen.Text :=IntToStr((PByte(Integer(S1) + j * 3 + 1)^)); // Grün
      Rot.Text := IntToStr((PByte(Integer(S1) + j * 3 + 2)^));  //Rot

      if ((PByte(Integer(S1) + j * 3)^) = 0) and
         ((PByte(Integer(S1) + j * 3 + 1)^)= 0) and
         ((PByte(Integer(S1) + j * 3 + 2)^)= 0)
      then  begin
          Inc(Counter);
          Resultat[Counter,0] := i;   // X Werte
          Resultat[Counter,1] := j;   // Y Werte
          schwarz := schwarz + IntToStr(j) + ' ' + IntToStr(i) + '; ';
      end;

      j := j+ 12;
    until j> X-1;

    Count.Text := IntToStr(Counter);
  end;

  Memo1.Text := schwarz;
end;

procedure TForm1.AnzeigenClick(Sender: TObject);

var
  dc      : TCanvas;
  i       : Integer;
  hClip   : HRGN;
  a,b     : Integer;
  rcClip  : TRect;
  penMode : TPenMode;
  penColor: TColor;
  penWidth: Integer;
  penStyle: TPenStyle;


begin
 //Zeichnen;
 dc := PGImage1.Canvas;
 penMode :=dc.Pen.Mode;
 penColor := dc.Pen.Color;
 penWidth := dc.Pen.Width;
 penStyle := dc.Pen.Style;
 rcClip := dc.ClipRect;


 dc.Pen.Mode  := pmCopy;
 dc.Pen.Color := $00F572B0;
 dc.Pen.Width := 2;
 dc.Pen.Style := psSolid;
 hClip :=CreateRectRgn(0,0,350,890);
 SelectClipRgn(dc.Handle,hClip);

  dc.MoveTo(Resultat[0,0],Resultat[0,1]);
  a := Resultat [0,0];
  b := Resultat [0,1];
  edit1.text := inttostr(a);
  edit2.text := inttostr(b);
  for i  := 1 to counter-1 do
    begin
      dc.Pixels[Resultat[i,0], Resultat[i,1]] := 0;
  end;


 dc.Pen.Mode := pmCopy;
 dc.Pen.Color := penColor;
 dc.Pen.Width := penWidth;
 dc.Pen.Style := penStyle;



 hClip := CreateRectRgn(0,0,350,890);
 SelectClipRgn(dc.Handle,hClip); }

end;

Kann mir jemand weiterhelfen?
Besten Dank

[shmia]

Wenn dein Bild mehr als 350 schwarze Punkte enthält, gibt es eine Bereichsverletzung beim Array Resultat! Als Folge muss man mit einer Zugriffsverletzung rechnen.
Resultat[0, ] wird nie beschrieben, kann also undefinierte Werte enthalten.

[Eggimaa]

Danke, habs grad selbst bemerkt..
:wall:

Herzlichen Dank!!!

[Muetze1]

Moin!

Schalte mal den Range Check bei dir mit ein bei den Projektoptionen, da du in folgendem Code eine ERangeCheckError bekommen solltest:

Code:

procedure TForm1.HoeheChange(Sender: TObject);

var
  X,Y     : Integer;
  S1      : PByteArray;
begin
  X := Hoehe.Value;
  Y := Breite.Value;
  S1 := BitMap.ScanLine[X];
  Blau.Text := IntToStr((PByte(Integer(S1) + Y * 3)^));             //Blau
  Gruen.Text :=IntToStr((trunc(PByte(Integer(S1) + Y * 3 + 1)^)));  // Grün
  Rot.Text := IntToStr((trunc(PByte(Integer(S1) + Y * 3 + 2)^)));   //Rot
end;

Da ScanLine[] nur von 0 bis Höhe-1 definiert ist, sollte es bei dem Zugriff auf Scanline x-1 heissen...

MfG
Muetze1