15Bit RGB in TBitmap32 konvertieren

[himitsu]

So?

Delphi-Quellcode:

RawMS.CopyFrom(SourceMS, 50560); // RawDaten holen ((158+2) * 158 * 2)

for i := 0 to 157 do begin
  Ptr := bmp.ScanLine[i];
  RawMS.Read(Ptr^, bmp.Width * 2);
  //RawMS.Position := RawMS.Position + (4 - (bmp.Width * 2) mod 4) mod 4;
  RawMS.Position := RawMS.Position + 2;
end;

Wenn das geht, dann verrat ich vielleicht auch das warum

PS: 158 * 158 * 2 = 49928