Super Idee ... Danke schonmal für Deine Hilfe. Trotzdem, irgenwas mache ich noch falsch.
Delphi-Quellcode:
var i: Integer; Buf: Word; col32: TColor32; RawMS: TMemoryStream;
begin
RawMS.CopyFrom(SourceMS, 50560); // RawDaten holen (158 * 158 * 2)
TempMap := TBitmap32.Create; TempMap.SetSize(158, 158);
for j := 0 to 157 do
for i := 0 to 157 do begin
RawMS.ReadBuffer(Buf, 2);
TColor32Entry(col32).A := 255;
TColor32Entry(col32).R := Byte(Buf or $7C00);
TColor32Entry(col32).G := Byte(Buf or $3E0 );
TColor32Entry(col32).B := Byte(Buf or $1F );
TempMap.SetPixelT(i, j, col32);
end;
end;
TempMap.DrawTo(FotosImage.Bitmap, 4, 4); // Ausgabe auf einem TImageView32
end;
Das Bitmap ist danach einfach nur weiss ...
