Einzelnen Beitrag anzeigen

gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#1

Problem mit TColor

  Alt 4. Sep 2010, 12:38
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 ?
  Mit Zitat antworten Zitat