RGB -> Bitmap

[Neutral General]

Hi,

Also der Threadname siehtn bisschen komisch aus :mrgreen:
Es geht darum das ich einen Stream hab in dem tausenden RGB-Werte stehen.. Ungefähr so:

Zitat:

Zitat von Stream

RGBRGBRGBRGBRGB...RGB

Nun will ich dadrauß en Bitmap machen (TBitmap).
Bisher hab ich das so gemacht das ich alle RGB Werte einzeln ausgelesen habe und die dann mit TBitmap.Canvas.Pixels gemalt habe aber das ist ehhmm "etwas" langsam... :|

Kann das vielleicht nicht etwa so machen :

Delphi-Quellcode:

Stream.Read(Bitmap, SizeOf(Byte)*Pixelanzahl*3);

? :|

So gehts glaub ich nicht aber halt so in der Richtung..

Gruß
Neutral General

[arbu man]

Guck dir doch mal TBitmap.ScanLine in der OH an...

[Neutral General]

Mh kann man die auch zum schreiben von Pixeln benutzen ? o.O^^

[JasonDX]

Hi

Ich hatte mal ein aehnliches Problem, allerdings in C#, ich hab hier das erstellen des Bitmaps an dein Problem angepasst. Eine Uebersetzung sollte nicht die Allergroesste Schwierigkeit sein, da ja eigentlich nur Daten in einen Stream geschrieben werden ;)

Code:

s.Write((ushort)0x4D42);
s.Write((uint)0);
s.Write((uint)0);
s.Write((uint)54);

s.Write((uint)40);
s.Write((uint)width); //Breite
s.Write((uint)height); //Hoehe
s.Write((ushort)1);
s.Write((ushort)24); //24bpp
s.Write((uint)0);
s.Write((uint)0);
s.Write((uint)0xEC4);
s.Write((uint)0xEC4);
s.Write((uint)0);
s.Write((uint)0);

for (int i = 0; i < height; i++)
{
   for (int j = 0; j < width; j++)
   {
      s.Write((byte)0); //B
      s.Write((byte)0); //G
      s.Write((byte)0); //R
   }
   for (int j = 0; j < (4 - (i * 3) % 4); j++) //die 3 bedeutet steht fuer die 24bpp in Byte
      s.Write((byte)0); //Jede Zeile wird auf eine 4Bit-Breite mit 0en aufgefuellt
}

h.Position = 2;
s.Write((uint)h.Length);

Eine genauere Beschreibung hatte ich auf Wikipedia gefunden: *klick*

greetz
Mike

[Neutral General]

Hi,

Danke für den Ansatz ich glaube das wird mir helfen aber eine Zeile kann ich mir leider nicht übersetzen:

Delphi-Quellcode:

for (int j = 0; j < (4 - (i * 3) % 4); j++) 
  s.Write((byte)0);

und was ist h ?

Gruß
Neutral General

[JasonDX]

Zitat:

Zitat von Neutral General

Danke für den Ansatz ich glaube das wird mir helfen aber eine Zeile kann ich mir leider nicht übersetzen:

Delphi-Quellcode:

for (int j = 0; j < (4 - (i * 3) % 4); j++) 
  s.Write((byte)0);

Das ist eine uebliche Forschleife, mit einer etwas komplizierteren Abbruchbedingung. Das sieht in Delphi ca. so aus, und fuellt die Zeilen auf einen durch 4(byte) teilbare Laenge.

Delphi-Quellcode:

for j := 0 to (4 - (i * 3) mod 4) - 1 do
  //...

Zitat:

Zitat von Neutral General

und was ist h ?

Das war der Stream (ich weiss, einfallsreicher name :oops: )
Im Dateikopf wird auch die Groesse der Datei gespeichert, also die Groesse des Streams, das wird hier eben nachtraeglich erledigt.

greetz
Mike

[Neutral General]

ja aber s ist ja auch ein Stream. Wofür ist denn der h-Stream ?
in den S-Stream wird doch der Bitmap Header und dann das Bitmap selbst geschrieben. Wofür dann der andere Stream?

[JasonDX]

Zitat:

Zitat von Neutral General

ja aber s ist ja auch ein Stream. Wofür ist denn der h-Stream ?
in den S-Stream wird doch der Bitmap Header und dann das Bitmap selbst geschrieben. Wofür dann der andere Stream?

Nicht ganz, ich hatte dafuer einen BinaryWriter genommen (s), der in den Stream (h) geschrieben hat ;)

greetz
Mike

[Neutral General]

Man kann das aber auch nur mit einem Stream machen oder ?

[JasonDX]

Zitat:

Zitat von Neutral General

Man kann das aber auch nur mit einem Stream machen oder ?

Na ja, ein Stream ist fuer diese Loesung gut geeignet. Obs fuer dein Problem noch eine andere, bessere Loesung gibt, weiss ich nicht.

greetz
Mike