Ich gehe jetzt einer anderen Idee nach... allerdings stehe ich gerade voll auf dem Schlauch.
Kann mir einer sage warum bei dieser Prozedure sich das Programm aufhängt ?? Verhalten wie bei eine Endlosschleife aber ich seh keine ?!?
Delphi-Quellcode:
procedure TfrmMain.btnCodeClick(Sender: TObject);
var ID : string;
x, y : integer;
begin
ID := '';
for x := 0 to Image.Width - 1 do
begin
for y := 0 to Image.Height - 1 do
begin
if Image.Canvas.Pixels[x,y] = clBlack then
begin
ID := ID + 'B';
end
else
begin
ID := ID + 'W';
end;
end;
end;
edtCode.Text := ID;
end;
PS: Hab extra ein Bild mit wenig Pixel genommen als Test.