|
Registriert seit: 23. Jan 2008
3.679 Beiträge
Delphi 2007 Enterprise
|
Re: Image Canvas Pixel in Memo
29. Mai 2008, 01:53
Anmerkungen, die das Problem wahrscheinlich nicht betreffen, aber dennoch erwähnenswert sind:
- Lass die Schleifen bis Image1.Width-1 (gleiches bei Height) laufen. Im Moment rauscht du immer einen Pixel zu weit.
- Die Wursterei mit Hex ist überflüssig. t := chr(B); mehr brauchst du nicht. Als Einzeiler: "s := s + chr(GetBValue(Image1.Canvas.Pixels[X, Y]));"
Was das Problem selbst angeht, so würde es helfen, wenn du dir die Zahlenwerte von B mal testweise mit ausgeben lässt. 'ÿ' ist wenn ich nicht irre #254 oder #255. Wenn B andere Werte hat, liegts vermutlich doch irgendwie an der Hex-Fummelei, wobei ich um die Uhrzeit auf den ersten Blick nicht erkenne warum (mal aussen vor gelassen, dass es unnötig ist).
Auch würde mich das zugrunde liegende Bild mal interessieren!
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
|