Delphi - 我如何将 TChart 与 IntraWeb 一起使用

Delphi - how i can use TChart with IntraWeb

我正在使用 Delphi XE8IntraWeb XIV v14.0.49 我创建了一个 TIWForm 并在其上放置了一个 TChart 组件。

在设计时显示 TChart,我可以设置它。

但是运行时候网页上没有TChart

我应该配置什么设置来使用它吗?

看来您必须使用TChartTIWImage才能在网页中显示它。

我在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;

For more information