Hi,

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

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 :

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

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

Gruß
Neutral General

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

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

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

markieren

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

Hi,

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

markieren

Delphi-Quellcode:

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

und was ist h ?

Gruß
Neutral General

Zitat von Neutral General:

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

markieren

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.

markieren

Delphi-Quellcode:

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

Zitat von Neutral General:

und was ist h ?

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

greetz
Mike

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?

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

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

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