Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: 15Bit RGB in TBitmap32 konvertieren

   
    by SittingDuck, 7. Mai 2011
  Ja, das wars ... Danke für Eure Hilfe. Hier nochmal die bereinigte Routine, falls ein anderer mal vor einem ähnlichen Problem steht.
  
  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;
  
  for i := 0 to Width * Height...
• Forum: Multimedia

  AW: 15Bit RGB in TBitmap32 konvertieren

   
    by SittingDuck, 7. Mai 2011
  Stimmt, habe ich vergessen hinzuschreiben ... (Copy/Paste-Fehler von mir)
  
  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.
• Forum: Multimedia

  AW: 15Bit RGB in TBitmap32 konvertieren

   
    by SittingDuck, 7. Mai 2011
  Super Idee ... Danke schonmal für Deine Hilfe. Trotzdem, irgenwas mache ich noch falsch.
  
  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
• Forum: Multimedia

  15Bit RGB in TBitmap32 konvertieren

   
    by SittingDuck, 7. Mai 2011
  Moin zusammen ...
  
  Ich versuche 16Bit RGB(555) Raw-Daten in ein TBitmap32 zu bekommen, aber irgendwas stimmt hier nicht ... Bit-Schieben ist nicht so meine Stärke. Wer kann helfen? Dieses Format wird hier ganz gut beschrieben.
  
  
  
  var i: Integer; Ptr: Pointer; RawMS: TMemoryStream;
  
  RawMS.CopyFrom(SourceMS, 50560); // RawDaten holen (158 * 158 * 2)