Firemonkey - Inhalte von TLayer3D als Bild speichern - Wie?

[torud]

Hallo Wissende,

ich bin gerade dabei mich etwas mit Firemonkey zu beschäftigen. Ich weiss nicht, ob meine Herangehensweise korrekt ist, aber ich habe auf ein 3d-Form einen TLayer3D platziert und darauf ein Bild und ein Textobjekt platziert. Nun würde ich gern dieses Szenario als Bild speichern - am Besten als PNG mit Transparenz.

Layer3D1.Canvas.Bitmap.SaveToFile('c:\temp\test.bmp'); Damit erhalte ich aber nur ein Schwarzes Bild in der Größe des Layers.

Wie könnte ich das also machen? Der Plan ist dynamisch auf dem Formular oder dem Layer Bilder und Texte zu platzieren und dann ein Bild davon zu erstellen. Geht das überhaupt und wenn ja, WIE?

[Uwe Raabe]

Delphi Version? (Delphi 7 wohl eher nicht)

[torud]

Ups, sorry - XE2 oder XE5 wären möglich.

[Uwe Raabe]

Vielleicht kommst du mit TLayer3D.PaintToBitmap weiter.

[torud]

Jo, das geht zwar, aber krieg einfach nur ein scharzes Bild.

Delphi-Quellcode:

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

[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;

[Uwe Raabe]

Abgesehen von der Füllfarbe wäre das eigentlich die richtige Methode - wenn sie denn funktionieren würde...

[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.

[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.