Farbwerte von 24 Bit RGB zu 16 Bit RGB (565) konventieren

[Real_Thunder]

Moin erstmal,
ich hänge hier ein wenig fest, da ich die entsprechende Formel nicht herausbekomme.
Ich habe ein TImage und lese dort die Pixelfarben stück für stück aus.
nun soll mein Progrämmchen diese Farben als RGB 565 Ausgeben.
Wäre Nett wenn mir jemand helfen könnte.
Kurzfassung: aus TColor bzw. den einzelnen RGB (8Bit) Werten einen RGB 565 (16 Bit) Wert zaubern.

[Sir Rufo]

Wo ist denn das Problem genau?

• Errechnen der Einzel-Farbwerte? (Dreisatz)
• Zusammenbauen zum 16-Bit Wert?

8	6	5	%
255	63	31	100
127	31	15	50
0	0	0	0

[mensch72]

ein Zusammenhang mit einem Dreisatz erschließt sich mir hier nicht... ich empfehle ganz einfaches binäres ausmaskieren und Bit-Schieben:

rgb24 : DWORD;
rgb16 : WORD;

//xxxxxxxx RRRRRrrr GGGGGGgg BBBBBbbb -> RRRRRGGG GGGBBBBB
//eventuell ist Rot&Bbau vertauscht, das ist aber wurscht weil symmetrisch

rgb16:=WORD(DWORD( ((rgb24 and $f80000) shr 8) or ((rgb24 and $fc00) shr 5) or ((rgb24 and $f8) shr 3) ))

[Sir Rufo]

Zur Info Dreisatz

und eine Antwort dazu auf StackOverflow

Wenn es genauer sein soll, dann eben den Dreisatz bemühen, sonst einfaches Bitschieben

[himitsu]

Das binäre Schieben ist am Ende auch nur der Dreisatz, wenn man es mathematisch betrachtet.

Einziger Unterschied:

• 24-Bit-RGB (TColor) kann man schön einfach über eine passende API zerlegen (GetRValue usw.),
  oder man macht das mathematisch (DIV und MOD)
  oder man macht über binäres maskieren und rumgeschiebe (SHR und AND)
• während es bei dem 16-Bit-RGB die API nicht gibt.

Die Einzelwerte dann wieder zu dem Gesammtwert zusammensetzen geht dann andersrum und man kann auch gleich zerlegen und zusammensetzen auch schön in einer "Formel" zusammenfassen.


Ach ja, bei den binären Wegen wird immer abgerundet, außer man rechnet (addiert) vorher noch bissl was drauf. (gibt ja keinen Nachkommaanteil)

[mensch72]

Eine "API" für RGB16...(eventuell ist rot und blau vertauscht)

r := BYTE(WORD((rgb16 shr 11) and $1f))); //GetR16value
g := BYTE(WORD((rgb16 shr 5) and $3f))); //GetG16value
b := BYTE(WORD(rgb16 and $1f)); //GetB16value

[himitsu]

In Delphi (Windows) war TColor nur in einer Reihenfolge.

Für iOS/OSX oder so, wo das andersrum ist, gibt es in TColorRec, bzw. TAlphaColorRec (hieß doch so?) entsprechende Helper-Methoden, welche sich ans entsprechende Endianess anpassen.