delphi - Delphi - IntraWeb で TChart を使用する方法

Question

XIV v14.0.49を使用Delphi XE8して、コンポーネントを作成し、その上に垂下しました。IntraWebTIWFormTChart

設計時にTChart表示され、設定できます。

しかし、実行時にはTChartWebページにはありません。

それを使用するために構成する必要がある設定はありますか?

Answer 1

TChartwithを使用TIWImageして Web ページに表示する必要があるようです。

IntraWeb demos で次のメソッドを見つけました

// this method copies a TChart to an TIWImage
procedure CopyChartToImage(const aChart: TChart; const aImage: TIWImage);
var
  xMetaFile: TMetafile;
  xBitmap: TBitmap;
  xRect: TRect;
begin
  xBitmap := aImage.Picture.Bitmap;
  xBitmap.Width := aChart.Width;
  xBitmap.Height := aChart.Height;
  aImage.Width := aChart.Width;
  aImage.Height := aChart.Height;

  xRect := Rect(0, 0, aChart.Width, aChart.Height);
  aChart.BufferedDisplay := False;
  xMetaFile := aChart.TeeCreateMetafile(False, xRect);
  try
    xBitmap.Canvas.Draw(0, 0, xMetaFile);
  finally
    FreeAndNil(xMetaFile);
  end;
end;

詳細については