Hallo,
ich versuche gerade ein Image pixel für pixel abzuarbeiten und die Fraben als Zeichen in ein Memofeld einzufügen.
Nur leider will meine Prozedur nicht richtig funktionieren.
Eigentlich sollte das rauskommen: Das ist ein Testtext.
Es kommt aber das heraus: ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙
Das ist die Prozedure:
Delphi-Quellcode:
procedure TForm15.Button2Click(Sender: TObject);
var
color: TColor;
B, Y, X: Integer;
hex, s, t:string;
begin
for Y := 0 to Image1.Height do
begin
for X := 0 to Image1.Width do
begin
color:=image1.Canvas.Pixels[X,Y];
B := GetBValue(color);
hex:=IntToHex(B, 2);
t:=Chr(StrToInt('$'+hex));
s:=s+t;
end;
Memo1.Lines.add(s);
s:='';
end;
end;
Vielleicht weiß ja einer was ich falsch gemacht habe, ich bedanke mich schonml für die Hilfe.