Witam!
Mam maly problem z konwersja RAW (16bit) na BMP, otoz nie wiem jak zamienic te 2 bajty na RGB. Czy mam to po prostu przewalic na bin, potem podzielic 5/6/5, a dalej na int? hmm... moze troche wali lamem, ale jakos nie moge tego ogarnac, wiec z gory dzieki za wszelkie podpowiedzi.
uses
Windows, SysUtils, Graphic;
function ColorToWebHex(color: TColor): string;
var RGB: LongInt;
Red, Green, Blue: Integer;
begin
RGB := ColorToRGB(color);
Red := GetRValue(RGB);
Green := GetGValue(RGB);
Blue := GetBValue(RGB);
Result := IntToHex(Red,2) + IntToHex(Green,2) + IntToHex(Blue,2);
end;
Zgadza sie, tylko ze TColor to 4 bajty, a ja probuje odczytac kolor zapisany w 2 bajtach (16bppp).