Firemonkey - Inhalte von TLayer3D als Bild speichern - Wie?

[mkinzler]

Delphi-Quellcode:

var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create( Layer3D1.Width, Layer3D1.Height);
  Layer3D1.PaintToBitmap(bmp, 1024, 576, $FF000000);
  bmp.SaveToFile('c:\temp\test.bmp');
  bmp.Free;

[torud]

Zitat von mkinzler:

Delphi-Quellcode:

var
  bmp := TBitmap.Create( Layer3D1.Width, Layer3D1.Height);

Leider ist es nicht möglich das Erzeugen des Bitmaps mit den 2 Parametern zu versehen. Was mache ich falsch?

Die Füllfarbe habe ich eigentlich aus unit System.UITypes übernommen. Welcher Wert wäre denn sonst gültig und warum funktioniert das Ganze nicht?

[Thom]

Brobier's mal mit Layer3D1.Buffer - also Layer3D1.Buffer.SaveToFile(...). PaintToBitmap funktioniert - wie schon angemerkt - leider nicht.

[torud]

Zitat von Thom:

Brobier's mal mit Layer3D1.Buffer.SaveToFile(...).

Volltreffer!
Ging auch direkt als png mit Alpha.

Hm, leider bekomme ich es nicht noch einmal hin. Ich hatte auf dem Layer ein normales Image liegen und ein Textobjekt. Das Image wurde korrekt in dem ausgegebenen png angezeigt. Der Text wurde nicht übernommen. Gibts vielleicht noch irgendwelche Tricks, welche Controls worauf zu platzieren sind und welche Einstellungen man vornehmen muss? Kann man irgendwo auch was nachlesen oder hat jemand von Euch damit weitere Erfahrungen gemacht?

[Thom]

Meinst Du mit Textobjekt ein TText3D? Falls Ja: Versuch lieber ein normales TLabel-Objekt. Der Buffer enthält alle 2D-Unterobjekte von TLayer3D, die dann als Textur während des eigentlichen Renderprozesses auf ein einfaches Rechteck gelegt werden. Alle 3D-Unterobjekte werden separat gerendet und das führt mit PaintToBitmap momentan leider nicht zum gewünschten Ergebnis.

[torud]

Also irgendwas muss ich jetzt falsch machen, denn ich erhalte nur noch leere Bilder.
Ich musste leider das Projekt nochmal neu erstellen, da XE5 abgeschmiert war.

Seitdem kriege ich es einfach nicht mehr hin, dass es funktioniert.
Kann jemand bitte mal einen prüfenden Blick drauf werfen?

[Thom]

Bei mir funktioniert eine etwas abgewandelte Version: Das Bild wird erst nach Betätigung eines Buttons aus dem Layer ausgelesen. Wenn Du den Buffer schon in Form3DShow verwendest, ist er noch leer, da das Bild selbst noch nicht auf dem Formular gerendert wurde.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image2.Bitmap:=Layer3D1.Buffer;
end;

Screenshot.jpg

[Uwe Raabe]

Zitat von torud:

Zitat von mkinzler:

Delphi-Quellcode:

var
  bmp := TBitmap.Create( Layer3D1.Width, Layer3D1.Height);

Leider ist es nicht möglich das Erzeugen des Bitmaps mit den 2 Parametern zu versehen. Was mache ich falsch?

Ist auch nicht nötig, da die Bitmap innerhalb PaintToBitmap sowieso mit SetSize angepasst wird.

Zitat von torud:

Die Füllfarbe habe ich eigentlich aus unit System.UITypes übernommen. Welcher Wert wäre denn sonst gültig und warum funktioniert das Ganze nicht?

Die Füllfarbe entspricht TAlphaColorRec.Alpha, was streng genommen eigentlich gar keine Farbe ist. Du kannst ja erst mal eine normale Farbe nehmen, wie white oder silver, bevor du dich an die Transparenz wagst.

Warum es nicht funktioniert, kann ich dir auch nicht sagen. Ich bekomme manchmal zwar etwas in die Bitmap, wenn die Projektion auf Camera steht, aber nicht ganz das was ich will. Ich habe aber jetzt auch keine Zeit den Fehler zu suchen.