RGB -> Bitmap

[JasonDX]

Zitat von Neutral General:

Es gibt zwar keine AV aber ich bekomme auch nichts zu sehen

Ok, 2 Sachen sind mir beim aufgefallen:

• Du schreibst NULL statt 0 in den Stream. Und wenn du dir die Definition von NULL ansiehst, es ist verschieden 0

• Zitat von Neutral General:

  Delphi-Quellcode:

  //...
       for i:= 0 to (4 - (j * 3) mod 4) - 1 do
         BmpStream.Write(NULL,SizeOf(Byte));
      end;
      BmpStream.Read(FBitmap, BmpStream.Size);

  Ok, Du vergisst, dass am Ende die Groesse des Streams noch ans Offset 2 geschrieben werden muss. Bevor das Bitmap "Fertig" ist, brauchst du noch BmpStream.Position := 2; BmpStream.Write(BmpStream.Size, 4);

Ich weiss nicht genau, das FBitmap ist. Wenn es ein TBitmap ist, dann wird das sicherlich nicht funktionieren.
Das laden des Bitmaps sieht dann so aus:

Delphi-Quellcode:

BmpStream.Position := 0;
FBitmap := TBitmap.Create;
FBitmap.LoadFromStream(BmpStream);

greetz
Mike