RGB -> Bitmap

[Neutral General]

Les mal was ich geschrieben hab

[JasonDX]

Zitat von Neutral General:

Les mal was ich geschrieben hab

d'oh, falsch gelesen...

Zitat von Neutral General:

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

Ja, ich hab auch nur einen Stream (h) verwendet. Da ein Stream (in .NET) nur bytes (bzw. byte-arrays) schreiben kann, gibts da den BinaryWriter (s). Der BinaryWriter ist kein Stream, sondern eine Klasse, die Daten in einen Stream schreibt.
In der Hoffnung, die Frage jetzt richtig verstanden zu haben

greetz
Mike

[Neutral General]

Delphi-Quellcode:

  
     SetLength(TGAInfo.Picture, TGAInfo.Header.Width, TGAInfo.Header.Height);
  if TGAInfo.Header.PictureFormat in [1..3] then
  begin
   for j:= 0 to TGAInfo.Header.Height-1 do begin
    for i:= 0 to TGAInfo.Header.Width-1 do begin
     AStream.Read(TGAInfo.Picture[i,j].B, SizeOf(Byte));
     AStream.Read(TGAInfo.Picture[i,j].G, SizeOf(Byte));
     AStream.Read(TGAInfo.Picture[i,j].R, SizeOf(Byte));
    end;
   end;

    BmpStream := WriteBmpHeader(TGAInfo.Header.Width,TGAInfo.Header.Height,TGAInfo.Header.Bpp);
    for j:= 0 to TGAInfo.Header.Height-1 do begin
     for i:= 0 to TGAInfo.Header.Width-1 do begin
      with BmpStream do
      begin
       Write(TGAInfo.Picture[i,j].B,SizeOf(Byte));
       Write(TGAInfo.Picture[i,j].G,SizeOf(Byte));
       Write(TGAInfo.Picture[i,j].R,SizeOf(Byte));
      end;
     end;
     for i:= 0 to (4 - (j * 3) mod 4) - 1 do
       BmpStream.Write(NULL,SizeOf(Byte));
    end;
    BmpStream.Read(FBitmap, BmpStream.Size);
//  FBitmap.LoadFromStream(BmpStream); geht auch nicht

WriteBmpHeader:

Delphi-Quellcode:

function WriteBmpHeader(Width,Height: Longword; bpp: Word): TMemoryStream;
const Null : Longword = 0;
      Dat1 : Word = $4D42;
      Dat2 : Longword = $EC4;
var lwTemp: Longword;
    wTemp : Word;
begin
 Result := TMemoryStream.Create;
 with Result do
 begin
    Write(Dat1,SizeOf(Word));
    Write(NULL,SizeOf(Longword));
    Write(NULL,SizeOf(Longword));
    lwTemp := 54;
    Write(lwTemp,SizeOf(Longword));
    lwTemp := 40;
    Write(lwTemp,SizeOf(Longword));
    Write(Width,SizeOf(Longword));
    Write(Height,SizeOf(Longword));
    wTemp := 1;
    Write(wTemp, SizeOf(Word));
    Write(Bpp,SizeOf(Word));
    Write(NULL, SizeOf(Longword));
    Write(NULL, SizeOf(Longword));
    Write(Dat2,SizeOf(Longword));
    Write(Dat2, SizeOf(Longword));
    Write(NULL, SizeOf(Longword));
    Write(NULL, SizeOf(Longword));
 end;
end;

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

Gruß
Neutral General

[markusj]

Ä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).

[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

[SirThornberry]

@Neutral General: weißt die die Größe des Bitmaps welches in dem Strea mit "RGBRGBRGB..." steht?
Woher kommt der Stream. Wenn du die Größe weißt geht es so:

Delphi-Quellcode:

var lBitmap: TBitmap;
    lPtr   : Pointer;
begin
  lBitmap := TBitmap.Create;
  lBitmap.Width  := WidthOfTheStreamBmp;
  lBitmap.Height := HeightOfTheStreamBmp;
  lBitmap.PixelFormat := pf24bit;
  lPtr := lBitmap.ScanLine[lBitmap.Height - 1];
  DeinStream.Read(lPtr^, BytesOfBitmap);
end;

[Neutral General]

SirThornberry...
Das ist göttlich genial
Danke

EDIT: Sagen wir halb-göttlich
Das Bild steht aufm Kopf xD

Gruß
Neutral General

[Phantom1]

Das iss normal das das Bild auf dem Kopf steht, wenn man ScanLine[Bmp.Height-1] benutzt.

probiere es mal so hier:

Delphi-Quellcode:

var lBitmap: TBitmap;
    lPtr   : Pointer;
    i      : Integer;
begin
  lBitmap := TBitmap.Create;
  lBitmap.Width  := WidthOfTheStreamBmp;
  lBitmap.Height := HeightOfTheStreamBmp;
  lBitmap.PixelFormat := pf24bit;
  for i:=0 to lBitmap.Height-1 do begin
    lPtr := lBitmap.ScanLine[i];
    DeinStream.Read(lPtr^, lBitmap.Width*3);
  end;
end;

[Neutral General]

Ja das hatte ich mir auch schon gedacht aber ich hatte irgendwie Angst es auszuprobieren bzw ich hatte befürchtet das das laden dann wieder so ewig lange dauert aber es funktioniert anscheinden doch

thx an alle

Gruß
Neutral General