15Bit RGB in TBitmap32 konvertieren

[Aphton]

Zitat von SittingDuck:

Dies dürfte wohl auch die schnellste Lösung sein. Im Anhang das korrigierte Bild.

Will zwar nicht kleinlich sein, aber wenn du die Funktion Color32() als Inline deklarierst, sparst du einen Call Befehl und somit dürfte das dann um einen Tick schneller sein

[turboPASCAL]

Delphi-Quellcode:

procedure Load15BitPicFromRawFile(Filename: String; W, H: integer;
  DestBitmap32: TBitmap32; PosX, PosY: integer);
var
  i: Integer;
  b: Word;
  P: PColor32;
begin
  with TMemoryStream.Create do
  try
    LoadFromFile(Filename);
    Position := 0;

    with TBitmap32.Create do
    try
      SetSize(W, H);
      P := PixelPtr[0, 0];

      for i := 0 to Width * Height - 1 do
      begin
        ReadBuffer(b, 2);
        P^ := $FF000000 or (b and $7C00 shr 7) or (b and $3E0 shr 2) or (b and $1F shl 3);
        Inc(P);
      end;

      DrawTo(DestBitmap32, PosX, PosY);
    finally
      Free;
    end;
  finally
    Free;
  end;
end;

Oder so ?

[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

[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...