Forum: Sonstige Fragen zu Delphi
by gangs-taas,
5. Sep 2010
wow vielen vielen dank
es funktioniert :) :)
Forum: Sonstige Fragen zu Delphi
by gangs-taas,
5. Sep 2010
hey,
vielen dank
ich glaub das war (anscheinend) doch der hauptfehler in meiner CodierUnit..
könnt ihr mir noch einmal helfen und mir einen einfachen Weg (vor)-sagen, mit dem ich aus mehreren Bits (die ich beim Decodieren bekomme) wieder ein Byte (und dann einen Buchstaben) erzeugen kann ?
mich bringen die ganzen bits irg. durcheinander und das funktioniert alles nicht so wie ich dachte,...
Forum: Sonstige Fragen zu Delphi
by gangs-taas,
5. Sep 2010
Warum geht das denn nicht ?
ich möchte doch aus 3 mal 8 bit 1mal 24 bit machen
sprich z.B. (irg. zufällige zahlen in dem beispiel jetzt ..)
'00000001'+'10011001'+01110011' => '000000011001100101110011'
und ich dachte ich reihe die Strings aneinander und sag dann, das was man dann hat (sind dann ja einsen und nullen), soll halt ein integer wert sein
aber der fehler leigt ja irg. schon...
Forum: Sonstige Fragen zu Delphi
by gangs-taas,
5. Sep 2010
es geht trotzdem nicht
ich weiß einfach nicht weiter ..
Farbe ist immer null ..
ich glaub ich geb auf und stell dann ein fremdes steganografie-programm vor, dass funktioniert ...
ich häng trotzdem mal mein ganzes projekt als anhang ran, vielleicht hat einer von euch ein wenig zeit und kann sich das anschauen und mir sagen, was ich falsch gemachth ab ...
Forum: Sonstige Fragen zu Delphi
by gangs-taas,
4. Sep 2010
naja es geht darum es vorzustellen und da dachte ich mach ich ein relativ einfach programm (ohne schnickschnack) und stell das dann vor.
und ich wüsste jetzt halt auch so mal gerne warum meins nicht läuft ...
Forum: Sonstige Fragen zu Delphi
by gangs-taas,
4. Sep 2010
Wie gesagt Die Fariable Farbe ist immer 0 und nicht das was sie eigendlich sein sollte ...
und ich weiß einfach nicht warum
eigl. müsste die so doch den farb wert zugweisen bekommen ober nicht ?
Farbe := Bild.Canvas.Pixels ;
Forum: Sonstige Fragen zu Delphi
by gangs-taas,
4. Sep 2010
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 :
procedure Tcodieren.Verstecken;
var
i, j, k ,
PixelX, PixelY : integer ;
Farbe : TColor;