TViewport3D で描画されているものを画像に変換したい

とても簡単です。

ファイルとして保存したい

TButton (Button1) が押されたら TViewPort3D (ViewPort3D1) に描画されているものを C:\TEST フォルダに 3D.PNG という名前で出力します。

procedure TForm1.Button1Click(Sender: TObject);
begin
  ViewPort3D1.MakeScreenshot.SaveToFile('C:\TEST\3D.PNG');
end;

TImageControl に表示したい

TButton (Button1) が押されたら TViewPort3D (ViewPort3D1) に描画されているものを TImageControl (ImageControl1) に表示します。

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageControl1.Bitmap := Viewport3D1.MakeScreenshot;
end;

TBitmap に格納したい

TButton (Button1) が押されたら TViewPort3D (ViewPort3D1) に描画されているものを TBitmap (Bitmap 変数) に格納します。

uses
//..., FMX.Types;    // XE4 or before
  ..., FMX.Graphics; // XE5 or later

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  Bitmap := Viewport3D1.MakeScreenshot;
  ...
end;

MakeScreenshot() 内で生成されますので、TBitmap を Create する必要はありません。
MakeScreenshot() は FMX.Controls.TControl(XE3 以前は FMX.Types.TControl) から派生したもの…つまりほぼすべての FMX ビジュアルコンポーネントが持っているメソッドです。TButton のスクリーンショットすら撮る事ができます。
フォーム (TForm) のスクリーンショットを撮りたい場合には TLayout 等を貼り、それに対して MakeScreenshot() してみてください。

BACK