【Pyhton4Delpi】学习笔记（二）安装验证篇-编程知识

D12环境下安装P4D。

一、下载 Python4Delphi（下称P4D）:

下载地址：https://github.com/pyscripter/python4delphi

下载或者克隆P4D到指定的目录，例如：MDS_New，目录结构如下，P4D就是克隆下来的控件全部目录。

二、安装P4D

首先关闭正在运行的Delphi IDE!

2.1 自动安装：

在下载的目录Install（MDS_New\P4D\Install）中，点击 MultiInstaller.exe 进行安装。

提示：

在安装目录中的Setup.ini中默认定义了安装的目录是在P4D目录下，这一步体现在2.1.2选择的目录之下。例如：2.1.2步骤中选择 D:\MDS_New 则试剂安装在 D:\MDS_New\P4D目录中，如果需要更改这个目录，则需要修改Setup.ini文件。

强烈建议不要修改，这个安装程序是有问题的，默认安装才可以！
[Package - Python4Delphi]
Name=Python4Delphi
Folder=P4D
SearchPath="Source"

2.1.1 选择需要安装的包，默认可以全部安装

2.1.2 选择需要安装的文件夹：

注意:

勾选 Compile packages and install on IDE 选项，这样就会安装完成后，在控件面板上显示已经安装好的P4D控件。

另外注意，这里选择目录是上一级目录，实际默认安装在这一级目录下的P4D目录中。

2.1.3 安装完成，点击：Finish 即可

2.2 手动安装

自动安装和手动安装是完全独立的安装方式，但只需要成功执行一次就可以。对于手动安装，比如已经将P4D克隆到了 D:\MDS_New\P4D 目录中。

2.2.1 打开Delphi IDE

2.2.2 设置搜索路径，增加如下地址

D:\MDS_New\P4D\Source
D:\MDS_New\P4D\Source\vcl
D:\MDS_New\P4D\Source\fmx

2.2.3 打开 D:\MDS_New\P4D\Packages\Delphi\P4DComponentSuite.groupproj 工程组

对于10.4+以上版本就选择10.4+，否则选择10.3-。选择 Build All

2.2.4 选择 dclPython, dclPythonVcl 和 dclPythonFmx 运行时包进行安装

三、查看安装是否成功

打开Delphi 12，不同的Delphi版本都是可以的，从10.4开始，都是一样的，10.3以下的版本有区别。

如果看到控件面板上包含P4D的控件，这样就算安装成功了！

四、配置验证运行环境，检测是否真正可用

由于P4D是使用Python和Delphi两种语言，那么正常理解，Python的环境是必须要安装的，但事实上，完整安装了Python的环境当然是没有问题的，但是，如果我们给客户开发了一个软件，还需要开户安装Python开发环境，这就太奢侈了，所以也还有个不需要完整安装Python开发环境的路。

对于完整安装，本文就不多说，对于只需要一个极简安装环境的，说明如下，其实Python的运行环境就是一个DLL和一些lib库，只要这两个有了，就可以运行起来了。

以pythpon38为例：

这个DLLs是如果有Python代码引用到三方的DLL，那么三方的DLL就在这个目录中，如果没有引用到，就可以不需要这个目录。特别注意X32和X64是不同的版本，32位的Python就只能用32位的Delphi，必须对应使用。

做一个Delphi 的程序，然后在写Python代码，就可以尝试运行了，举例：

1. Delphi 程序源代码

unit uMainForm;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons,Vcl.Samples.Spin, Vcl.ExtCtrls,system.Math,System.Threading,System.DateUtils, PythonEngine, Vcl.PythonGUIInputOutput,VarPyth;//PythonEngine, Vcl.PythonGUIInputOutput;typeTForm1 = class(TForm)Splitter1: TSplitter;Panel1: TPanel;Memo1: TMemo;SpeedButton1: TSpeedButton;PythonGUIInputOutput1: TPythonGUIInputOutput;PythonEngine1: TPythonEngine;SpeedButton2: TSpeedButton;PythonModule1: TPythonModule;SpeedButton_LoadDLL: TSpeedButton;OpenDialog1: TOpenDialog;Edit1: TEdit;SpeedButton_UnLoadDLL: TSpeedButton;SpeedButton3: TSpeedButton;Memo2: TMemo;procedure PythonEngine1BeforeLoad(Sender: TObject);procedure SpeedButton1Click(Sender: TObject);procedure SpeedButton2Click(Sender: TObject);procedure PythonModule1Events0Execute(Sender: TObject; PSelf,Args: PPyObject; var Result: PPyObject);procedure SpeedButton_LoadDLLClick(Sender: TObject);procedure SpeedButton_UnLoadDLLClick(Sender: TObject);procedure FormResize(Sender: TObject);procedure PythonModule1Events1Execute(Sender: TObject; PSelf,Args: PPyObject; var Result: PPyObject);procedure SpeedButton3Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }function IsPrime(n : integer) : Boolean;function CountPrimes(MaxN : Integer) : Integer;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.CountPrimes(MaxN: Integer): Integer;
varCount : integer;
beginTParallel.For(2,MaxN,procedure(i: integer)beginif IsPrime(i) thenAtomicIncrement(Count);end);Result := Count;
end;procedure TForm1.FormCreate(Sender: TObject);
begin{$IFDEF WIN32}{$IFDEF DEBUG}Self.Caption := 'P4D Demo示例 ( Win32 ) Debug';{$ELSE}Self.Caption := 'P4D Demo示例 ( Win32 ) Release';{$ENDIF}{$ELSE}{$IFDEF DEBUG}Self.Caption := 'P4D Demo示例 ( Win64 ) Debug';{$ELSE}Self.Caption := 'P4D Demo示例 ( Win64 ) Release';{$ENDIF}{$ENDIF}
end;procedure TForm1.FormResize(Sender: TObject);
begin//Memo2.Height := Trunc((Self.ClientHeight - Panel1.Height) * 0.7);
end;function TForm1.IsPrime(n: integer): Boolean;
beginif n <= 1 then Exit(False);var q := Floor(Sqrt(n));for var i := 2 to q doif (n mod i = 0) then Exit(False);Exit(True);
end;procedure TForm1.PythonEngine1BeforeLoad(Sender: TObject);
begin//PythonEngine1.SetPythonHome(PythonEngine1.DllPath);   //必须设置这一步
end;procedure TForm1.PythonModule1Events0Execute(Sender: TObject; PSelf,Args: PPyObject; var Result: PPyObject);
varN : integer;
beginwith GetPythonEngine doif PyArg_ParseTuple(Args,'i:delphi_is_prime',@N) <> 0 thenbeginif IsPrime(N) thenResult := PPyObject(Py_True)elseResult := PPyObject(Py_False);Py_INCREF(Result);endelseResult := nil;
end;procedure TForm1.PythonModule1Events1Execute(Sender: TObject; PSelf,Args: PPyObject; var Result: PPyObject);
varN : integer;
beginwith GetPythonEngine doif PyArg_ParseTuple(Args,'i:delphi_count_primes',@N) <> 0 thenbeginResult := PyLong_FromLong(CountPrimes(N));Py_INCREF(Result);endelseResult := nil;
end;procedure TForm1.SpeedButton1Click(Sender: TObject);
beginif not PythonEngine1.Initialized thenbeginMemo1.Lines.Add('请先装载Python DLL');Exit;end;//GetPythonEngine.ExecStrings(SynEdit1.Lines);PythonEngine1.ExecStrings(Memo2.Lines);
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
varaTask: ITask;T    : TDateTime;path : string;PyModule: Variant;
beginif not PythonEngine1.Initialized thenbeginMemo1.Lines.Add('请先装载Python DLL');Exit;end;aTask := TTask.Create(procedurebeginT := Now;TThread.Synchronize(TThread.Current,procedurebeginMemo1.Lines.add('线程运行开始时间: ' + FormatDateTime('hh:mm:ss zzz',T));end);PythonEngine1.ExecStrings(Memo2.Lines);
//      path := 'D:\MDS_New\Demo\camera';
//      PyModule := SysModule;
//      PyModule.path.append(path);
//      PyModule := Import('run');
//      PyModule.start();TThread.Synchronize(TThread.Current,procedurebeginMemo1.Lines.add('线程运行结束时间: ' + FormatDateTime('hh:mm:ss zzz',Now) +  #13#10'线程执行花费时长: ' + (MilliSecondsBetween(Now,T) / 1000).ToString + ' 秒');end);end);aTask.Start;
end;procedure TForm1.SpeedButton3Click(Sender: TObject);
varPyModule: Variant;path : string;
begin{path := 'D:\MDS_New\Demo\camera';PyModule := SysModule;PyModule.path.append(path);PyModule := Import('run');PyModule.start();}//PyModule := Import('hello');//PyModule.SayHello('ABC 你好吗');
end;procedure TForm1.SpeedButton_LoadDLLClick(Sender: TObject);
beginif not OpenDialog1.Execute then Exit;Edit1.Text := OpenDialog1.FileName;//进行运行环境装载PythonEngine1.DllPath := ExtractFilePath(OpenDialog1.FileName);//   'Y:\Documents\sensorwu\Python4Delphi\x86py38';PythonEngine1.DllName := ExtractFileName(OpenDialog1.FileName);PythonEngine1.SetPythonHome(PythonEngine1.DllPath);   //必须设置这一步PythonEngine1.LoadDll;SpeedButton_LoadDLL.Enabled := False;SpeedButton_UnLoadDLL.Enabled := True;
end;procedure TForm1.SpeedButton_UnLoadDLLClick(Sender: TObject);
beginPythonEngine1.UnloadDll;SpeedButton_LoadDLL.Enabled := True;SpeedButton_UnLoadDLL.Enabled := False;
end;end.

2. Python 源代码

#-------------------------------------------------------------------------------
# Name:        module1
# Purpose:     判断素数测试
#
# Author:      wuxihong
#
# Created:     01-02-2024
# Copyright:   (c) wuxihong 2024
# Licence:     <your licence>
#-------------------------------------------------------------------------------#-------- 以下这个包是从delphi 中导入的,打开该引用，同时打开下面的delphi_is_prime实现调用Delphi函数 -------
# ---------- delphi_count_primes 完全使用Delphi的并行计算，速度提高非常多
#from delphi_module import delphi_is_prime
#from delphi_module import delphi_count_primes
#-------------------------------------------
import math
from timeit import Timerdef is_prime(n):if n < 1:return Falseq = math.floor(math.sqrt(n))for i in range(2,q+1):if (n % i == 0):return Falsereturn Truedef count_primes(max_n):res = 0for i in range(2,max_n + 1):#----------- 以下这句是引用 Delphi 包中的函数 delphi_is_prime，打开该语句，屏蔽下面一句 if#if delphi_is_prime(i):#-------------------------------------if is_prime(i):res += 1return resdef test():max_n = 100000print(f'Number of primes between 0 and {max_n} = {count_primes(max_n)}')#----------- 以下这句是引用 Delphi 包中的函数 delphi_count_primes，打开该语句，屏蔽上面一句，即可体会到Delphi的并行运算能力#print(f'Number of primes between 0 and {max_n} = {delphi_count_primes(max_n)}')def main():print(f'Elapsed Time: {Timer(stmt=test).timeit(1)} secs')if __name__ == '__main__':main()