用Delphi程序调用Python代码画曲线图--数据来自Delphi程序

接本博客上一篇文章，使用 Python 的 matplotlib 库画曲线。

上次是为了实现调用该库，数据是直接写死在 Python 代码里面的。代码是这一行：

squares = [1, 4, 9, 16, 25];

既然是 Delphi 调用 Python 的库，数据应该是 Delphi 的程序传递给 Python 的代码，然后 Python 的代码利用 Python 库把图画出来。

比如，数据可能来自数据库。做数据库编程，Delphi 非常擅长啊。

上述 Python 代码，是把很多数字，给了一个数组类型的变量。

在 Delphi 这边，首先，拖一个控件到界面上：PythonDelphiVar1

设置 PythonDelphiVar1.VarName := 'MyParams';  这个 MyParams 就是在 Python 代码中，Python 可以读 Delphi 传递过来的数据的变量名。

然后给 PythonDelphiVar1.OnGetData 事件写程序。Python 的数组，在 Delphi 这边该如何传递数据过去呢？我猜了一下，写下代码测试。结果猜中。代码如下：

procedure TForm2.PythonDelphiVar1GetData(Sender: TObject; var Data: Variant); begin {------------------------------------------------------------------------ # squares = [1, 4, 9, 16, 25]; squares = MyParams.Value 在 Python 里面使用第二行代码，就可以在 Delphi 里面，通过下面的 VarArrayOf 赋值给 Python 了。 测试通过。 ------------------------------------------------------------------------} Data := VarArrayOf([1, 4, 9, 16, 30]); end;

在 Python 那边，原来的数组变量赋值的语句就不需要了。改为向  Params 这个变量要数据。代码如下：

import sys print(sys.version_info) import matplotlib.pyplot as plt # squares = [1, 4, 9, 16, 25]; squares = MyParams.Value plt.plot(squares); plt.grid(True) # 网格线 plt.show(); # 这句话会弹出个窗口出来，里面是上述数据的曲线。

看过本系列前面两篇文章的朋友应该知道，上述 Python 代码里面的 squares = MyParams.Value 会触发 Delphi 这边绑定的 PythonDelphiVar1.OnGetData 事件。在 Delphi 程序的上述事件里面，我们给出数据，把数据变成 Variant 数组。Python 代码就获得数据了。

以下是设计期界面

以下是运行期界面

结论：

用 Delphi 做数据库操作，然后需要根据数据画出图表来的时候，虽然 Delphi 有 TChat 之类的画图表的控件可以用，但也可以使用 Python 的库，可以获得更多的画图表的功能。

至于使用 Python 的库，能画出多复杂的图表，或者能画多漂亮，网上关于这方面的教程很多，可能开源现成的代码也很多。