hey,
ich muss noch einmal was wegen meinem steganografie projekt fragen.
Ich möchte ja von einem Pixel die Farbe verändern oder auslesen
und ich dachte ich mach das so :
Delphi-Quellcode:
procedure Tcodieren.Verstecken;
var
i, j, k ,
PixelX, PixelY : integer ;
Farbe : TColor;
Str_BinaerBuchstabe : string ;
BitArray : Array[1..9] of byte;
begin
PixelX := 0 ;
PixelY := 0 ;
BitArray[9] := 0 ;
for i := 1 to Length(text) do
begin
for k := 1 to 3 do
begin
Farbe := Bild.Canvas.Pixels[PixelX,PixelY] ;
case k of
1 : Bild.Canvas.Pixels[PixelX,PixelY] := Pixel_aendern(BitArray[1],
BitArray[2],
BitArray[3],
Farbe);
//...
Aber meine Variable "Farbe" aht irgendwie immer den Wert '0' und das versteh ich nicht. Mein Bild müsste auf jedenfall (da es an der stelle 0/0 Grau ist) doch eine mischung aus Rot Grün und Blau sein
und nicht 0 oder ?
könnt ihr mir nocheinmal helfen, und mir sagen, was ich falsch mach ?