RAW > BMP

Odpowiedz Nowy wątek
2007-02-01 01:49
fec
0

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.

Pozostało 580 znaków

2007-02-01 11:54
abj
0

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;

Pozostało 580 znaków

2007-02-01 14:50
fec
0

Zgadza sie, tylko ze TColor to 4 bajty, a ja probuje odczytac kolor zapisany w 2 bajtach (16bppp).

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0