Hallöchen, ich habe ein kleines Problem:
ich kriege hier eine
Exception: >>External: SIGSEGV<<
In Datei 'kennzeichenfinden.pas' in Zeile 178: DST:= Rect(0, 0, img.Width, img.Height);
ich werde nicht wirklich schlau aus dem fehler. währe nice, wenn ihr mir helfen könntet.
Vielen dank schon einmal im Vorraus.
Hier der betroffene Code-teil:
Delphi-Quellcode:
function TKennzeichenFinden.start (Pfad: String): TBitmap;
var
img: TBitmap;
kanten: TBitmap;
blaueflaeche: TBitmap;
width, height, i, j: Integer;
DstRect, SrcRect: TRect;
filterRad: integer;
begin
filterRad:= 3;
DstRect:= Rect.(0, 0, img.Width, img.Height);
img.LoadFromFile(Pfad);
kanten.Create;
kanten.setSize(img.Width, img.Height);
blaueflaeche.Create;
blaueflaeche.setSize(img.Width, img.Height);
kanten:= findeKanten(img, filterRad, 200, kanten);
blaueflaeche:= findeBlau(img, filterRad, blaueflaeche);
for i:=filterRad to img.Width-filterRad-1 do
begin
for j:=filterRad to img.Height-filterRad-1 do
begin
if(isObenLinks(kanten, i, j, 3) AND hatBlaueFlaeche(blaueflaeche, i, j, 3)) then
begin
SrcRect:= Rect(i, j, 300, 200);
Result.Canvas.CopyMode:= cmSrcCopy;
Result.Canvas.CopyRect(dstRect, img.Canvas, SrcRect);
break;
end;
end;
end;
end;