Thema: Delphi RGB -> Bitmap

Einzelnen Beitrag anzeigen

markusj

Registriert seit: 9. Dez 2005
Ort: Kandel
408 Beiträge
 
#14

Re: RGB -> Bitmap

  Alt 12. Aug 2006, 07:29
Ähm, vielleicht musst du die Komponente noch refreshen lassen?
Und warum machst du sizeof(byte) ? Nimm doch einfach "1"!

mfG

Markus

EDIT: Hä, das ist leicht verwirrend. Du nimmst dein TGAInfo, schreibst die Bilddaten rein, machst dir dann einen Bitmapheader im Bitmapstream, schreibst die Bilddaten von TGAInfo dort hinein und machst dann BMPStream.read(FBitmap,(BMPStream.size).
Da müsstest du FBitmap.loadfromstream(BMPStream) machen, der erste Befehl ist komplett sinnfrei.

Mein Vorschlag wäre, dass du die Daten aus deinem AStream immer in RGB-Päckchen als drei Bytes (mach dir nen Record!) lädst und dann in Umgekehrter Reihenfolge direkt in dein Bitmap schreibst.
Länge und Breite des Bildes musst du dann im Header festsetzen und bei deiner "Schreibschleife" entsprechend anstelle des TGAInfo verwenden. (Dieser Job schreit nach einem longword, da in den BMP-Specs auch ein Longword verwendet wird).
Markus
  Mit Zitat antworten Zitat