Hmm die Tips waren schon nicht schlecht habe das jetzt nen wenig verbessert.
Aber das Problem ist noch nicht gelöst.
Und das ganze ist im moment zu Testzwecken, in dem Bild sollen später ganze Datenpakete gespeichert werden.
Wenn ich per Showmessage den jeweiligen Chr ausgeben lasse dann funktioniert es.
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-1 do
begin
for X := 0 to Image1.Width-1 do
begin
color:=image1.Canvas.Pixels[X,Y];
B := GetBValue(color);
t:=Chr(B);
--->>> Showmessage(t);
s:=s+t;
end;
Memo1.Lines.add(s);
s:='';
end;
end;
Mit Showmessage wird immer der richtige Chr angezeigt, aber ich muss das ganze ja in den string kriegen und das will nicht klappen.