Integer in Farbwerte zerlegen und dann jeweils auslesen

[Helmi]

Zitat von EMS:

versteckte zahl soll das ja sein was ich vorher bei dem Button 2 in dieses erste bit reingeschrieben habe.

Das geht so nicht - schliesslich ist "versteckte_Zahl" für jeden Button als lokale Variable definiert

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
    Bildbreite,Bildhoehe,Zeile,Spalte,X,Y,farbe,r,g,b,v,Versteckte_Zahl,f:integer;  //<== hier
begin
 {...}
       Versteckte_Zahl:=80;
 {...}end;

procedure TForm1.Button3Click(Sender: TObject);
var
 s,r,g,b,v,versteckte_Zahl:integer; //<== hier
begin
 {...}
 v:=versteckte_Zahl + s and $FF000000; //Zahl die verschlüsselt werden soll
 {...}end;

[EMS]

ok ich hab das dann jetzt raus genommen aus dem Button 3
so müsste ich doch jetzt in v diesen Zahlenwert drinne stehen haben?
Aber es klappt immer noch nicht

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
s,r,g,b,v;
begin
ASSIGNFILE(DATEI,'versteckt.dat');
Reset(datei);
Read(datei,s);              //Farb Wert als integer
showmessage(inttostr(s));
//image3.Canvas.brush.Color:=s;
r:=s and $0000FF;                         //Rotwert als integer
g:=(s and $00FF00) shr 8;                 //Grünwert als integer
b:=(s and $FF0000)shr 16;                 //Blauwert als integer
v:=$FF000000 shr 32;     //Zahl die verschlüsselt werden soll
showmessage(inttostr(r));                 //Anzeigen der einzelnen Werte
showmessage(inttostr(g));
showmessage(inttostr(b));
showmessage(inttostr(v));
//image3.canvas.fillrect(rect(0,0,90,90));
Closefile(datei);
end;

[Helmi]

und wo soll jetzt der Wert herkommen?

[EMS]

den habe ich doch in der Datei gespeichert.
Da sollten meiner Meinung nach jetzt
der Rot,Grün,Blau und V drinne stehen.
alles aus Button 2

[Helmi]

Zitat von EMS:

Da sollten meiner Meinung nach jetzt
der Rot,Grün,Blau und V drinne stehen.

Möglich, aber wo bitte liest du im Button3 denn V aus der Datei?

[EMS]

bei
v:=(s and $FF000000) shr 32;

hier sollte v doch dann der wert aus S sein mit diesem Filter.

S lasse ich mir vorheranzeigen da steht dann der Wert drinne der im Button 2 aus R+G+B+Versteckte_Zahl heraus kommt drinne

stimmt das mit dem einen Wert habe ich gerade gesehen.
Aber wie stelle ich das an das ich jetzt das Pixel und seine 4 Bytes zerlegen kann und dann diese Werte dann einzenld speichern kann?
Auslesen bekomme ich ja hin aber am speichern scheitert es gerade

[Bummi]

zum nachvollziehen ...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 C:TColor;
 ByteArray:Array[0..3] of byte absolute C;
 ACharArray:Array[0..3] of AnsiChar absolute C;

 StringAusCharacters,StringAusBytes:String;
 i:Integer;
begin
   C := RGB(65,66,67);
   Memo1.Lines.Add('Zahlendarstellung der Bytes:');
   for i := 0 to 3 do Memo1.Lines.Add(IntToStr(ByteArray[i]));
   Memo1.Lines.Add('Umformungen');
   for i := 0 to 3 do
      begin
        StringAusCharacters := StringAusCharacters + ACharArray[i];
        StringAusBytes := StringAusBytes + Char(ByteArray[i]);
        Memo1.Lines.Add(IntToStr(ORD(ACharArray[i])) +'='+ IntToStr(ByteArray[i]) +' - ' +  ACharArray[i]  + '='  + Char(ByteArray[i]));
      end;
   Memo1.Lines.Add('String aus Charakters');
   Memo1.Lines.Add(StringAusCharacters);
   Memo1.Lines.Add('String aus Bytes');
   Memo1.Lines.Add(StringAusBytes);

   for i := 0 to 3 do ACharArray[i] := #0;
   ACharArray[0] := Char(255);
   Memo1.Lines.Add(ColorToString(c));


   for i := 0 to 3 do ByteArray[i] := 0;
   ByteArray[1] := 255;
   Memo1.Lines.Add(ColorToString(c));

   Memo1.Lines.Add('Setzen auf clBlue');
   c := clBlue;
   for i := 0 to 3 do
        Memo1.Lines.Add(IntToStr(ByteArray[i]));
   Memo1.Lines.Add('1* shr 8');
   c := c shr 8;
   for i := 0 to 3 do
        Memo1.Lines.Add(IntToStr(ByteArray[i]));
   Memo1.Lines.Add('1* shr 8');
   c := c shr 8;
   for i := 0 to 3 do
        Memo1.Lines.Add(IntToStr(ByteArray[i]));


end;

[mkinzler]

Nein, du schreibst nur einen Wert (f)