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