那位能给些个RGB16to24的函数(100分)

C

Cjzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-04

• #1

现能得到一个pchar类型的RGB16数据，需要将其转化为RGB24的

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-04

• #2

是哪种RGB16? RGB565还是?

 

C

Cjzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-04

• #3

RGB565,能给一个吗

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-05

• #4

这个就简单

function RGB565TORBG24(RGB565: WORD): DWORD;
var
R, G, B: Byte;
begin
R:= RGB565 and $1F;
G:= (RBG565 and $7E0) shr 5;
B:= (RBG565 and $F800) shr 11;

Result:= RGB(R,G,B);
end;

R和B的颜色可能会相反，自己试吧．