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 :angle2:

PS: 158 * 158 * 2 = 49928 :zwinker:

[Bummi]

Delphi-Quellcode:

var
  bmp:TBitMap;
begin
  bmp:=TBitMap.Create;
  bmp.LoadFromFile('C:\temp\bummi.bmp');
  bmp.PixelFormat := pf32Bit;
  bmp.SaveToFile('C:\temp\bummi2.bmp');
  bmp.free;
end;

[Namenloser]

@turboPASCAL: Wenn schon BitBlt statt DrawTo, denn BitBlt erzeugt wirklich eine exakte Kopie, während DrawTo eben „zeichnet“. Ist in diesem Fall kein Unterschied, da keine Transparenz im Spiel ist, aber trotzdem sollte man es lieber gleich richtig machen.

Aber eigentlich steht die Lösung doch eh schon in #8...