Forum: Multimedia
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
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
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