15Bit RGB in TBitmap32 konvertieren

[Namenloser]

Du musst schon bitshiften...

[SittingDuck]

Stimmt, habe ich vergessen hinzuschreiben ... (Copy/Paste-Fehler von mir)

Delphi-Quellcode:

    TColor32Entry(col32).A := 255;
    TColor32Entry(col32).R := Byte(Buf or $7C00) shr 7;
    TColor32Entry(col32).G := Byte(Buf or $3E0 ) shr 2;
    TColor32Entry(col32).B := Byte(Buf or $1F  ) shl 3;

So hatte ich es auch gemacht ... der Effekt (weißes Bild) bleibt aber.

[Namenloser]

Auf den zweiten Blick: Müsste es nicht AND sein statt OR?

[jfheins]

Zitat von NamenLozer:

Auf den zweiten Blick: Müsste es nicht AND sein statt OR?

Ja, müsste es. Tut mir Leid ^^

[SittingDuck]

Ja, das wars ... Danke für Eure Hilfe. Hier nochmal die bereinigte Routine, falls ein anderer mal vor einem ähnlichen Problem steht.

Delphi-Quellcode:

var i: Integer; b: Word; TempMap: TBitmap32; ms: TMemoryStream; P: PColor32; 
begin
  ms := TMemoryStream.Create; ms.LoadFromFile('Pic.raw'); ms.Position := 0;
  
  with TempMap do begin SetSize(150, 150); P := PixelPtr[0, 0];
   
    for i := 0 to Width * Height - 1 do begin ms.ReadBuffer(b, 2);
      P^ := Color32(b and $7C00 shr 7, b and $3E0 shr 2, b and $1F shl 3);
      Inc(P);
    end;

    DrawTo(FotosImage.Bitmap, 4, 4, Rect(0, 0, 150, 150));   
  end;
end;

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

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