百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术资源 > 正文

把Python的灵魂附加到上古编程语言Delphi/Lazarus

off999 2024-09-20 22:40 40 浏览 0 评论

前言

......Python和Pascal(Delphi/Lazarus)都是历史悠久的编程语言,都曾经在历史上扮演者重要角色。只是Pascal没能跟上技术发展潮流,逐步沦为末流。而Python与时俱进,不断跟着时代潮流自我革新,最终在AI时代大放异彩。

......于是有个想法,把Python的灵魂融合到Pascal,会怎样?

构思

......其他语言要融合Python,无外乎两种方式:

  • 通过对接API方式,调用和移植python.dll的API

如果没有现成的库,自己实现API对接难度较大。目前有一个Python4Delphi和Python4Lazarus的开源库可以使用。

  • 通过命令行方式,调用python.exe,执行Python代码

这种方式实现起来比较简单,调用python拿到结果后,再加一些逻辑对结果进行解析。

......两种做法博主都实践过了,最后的效果可以参考我之前发的Python执行器的文章。

......今天先看通过第一种方式子Lazarus中对接Python。Delphi的对接方式跟这个类似。

安装PythonForLazarus三方包

......在Lazarus的在线包管理器中,搜索PythonForLazarus包,点击安装即可。

......安装成功后,可以在组件中找到这个包提供的所有Python相关组件。今天我们需要用到其中的两个组件,

  • TPythonEngine,负责Python调用
  • TpythonGUIInputOutput,负责展示Python输出内容

组件配置

.....在新建的Lazarus项目中,从组件中拖入TPythonEngine和TpythonGUIInputOutput组件到窗体,还有一个TMemo组件用于显示Python输出。

......针对PythonEngine1组件,在属性设计器中,设置如下参数,Dll相关参数要清空,我们会通过代码进行设置。IO选择我们拖入PythonGUIInputOutput1组件

......在PythonGUIInputOutput1组件的属性设计器中,把Output属性设置为我们拖入的Memo组件。

......接下来,我们在Form的Create事件中,设置PythonEngine1的DLL相关参数,并加载dll。需要提前在本机提前安装好Python,或者下载Python Embeddable版本,我这里使用的是官网下载的Python3.11 Embeddable版本。


......在Create事件中添加如下代码:

procedure TForm1.FormCreate(Sender: TObject);
begin
  {根据自己Python的安装位置,设置下面的参数}
  PythonEngine1.DllPath := 'E:\Programs\python311';
  PythonEngine1.DllName := 'python311.dll';
  {可选。Python启动后执行下面的语句}
  PythonEngine1.InitScript.Text := 'import sys;print(sys.version)';
  {加载dll}
  PythonEngine1.LoadDll;
end;   

到这一步,就完成了Python组件的设置。接下来我们写一点python测试代码。

调用Python测试代码

......再加一个输入框TMemo,用来输入测试的Python代码。最后界面如下:

......上面的是输入框可以输入代码,下面的框展示Python输出结果。

......点击按钮后,执行用户在输入框中输入的代码。执行逻辑参考下面的代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  code: string;
begin
  {获取用户输入代码}
  code := Trim(Memo1.Text);
  if code <> '' then
    PythonEngine1.ExecString(code); {执行代码}
end;   

运行效果

......按F9编译运行我们写好的软件。在上面的输入框输入代码,即可点击运行,在下面的文本框即可看到Python执行的结果。查看下面的动画效果。

相关推荐

查看电脑ip地址的命令(查看电脑ip地址用什么命令)
查看电脑ip地址的命令(查看电脑ip地址用什么命令)

1、在“本地连接”的状态中查看。2、使用“ipconfig/all”命令查看。3、打开电脑网页,输入IP地址,点击确定,就能看到本机IP。扩展资料IP地址(InternetProtocolAddress),全称为网际协议地址,是一种在...

2025-12-30 10:03 off999

ie浏览器9(IE浏览器9.0如何升级)

1、首先,我们点击开始菜单,找到控制面板,点击一下。2、之后,找到程序和功能选项,点击一下。3、点击进入后,我们找到左边的打开或关闭windows功能,点击一下。4、点击进入后,找到Internet...

hp1020打印机驱动怎么下载(hp1020打印机驱动怎么下载)

惠普1020打印机驱动怎么安装:  1.首先到下载软件名称:惠普1020打印机驱动程序官方版(支持win7/8)32位/64位软件大小:5.09MB更新时间:2014-09-05立即下载  2.然后...

win2003是windows7系统(win2003哪个版本好)

win2003是专门用于服务器的操作系统,现在最主流的windows服务器系统主要是win2003server和win2008server,winXP是个人电脑专用的操作系统,现在微软已经不再提供XP...

路由器账号和密码忘了怎么办

你好,如果你忘记了路由器的用户名和密码,你可以尝试重置一下路由器,大多数路由器都配备了一个复位按键。在重置路由器之后,用户名和密码将被还原为默认值,你可以在路由器的用户手册或厂家网站上找到默认的用户名...

win10永久禁止自动更新(win10禁止自动更新彻底)

阻止Windows10自动更新的方法如下:使用“本地组策略编辑器”:按下“Win+R”键,输入“gpedit.msc”打开本地组策略编辑器,找到“计算机配置”>“管理模板”>“W...

联想笔记本怎么看配置和型号

联想笔记本看配置的方法如下1、打开电脑,点击桌面的计算机,右键菜单里选择【属性】;打开后,即可看到电脑系统的大概信息;2、如果要看比较详细的设备相关信息,点击桌面的计算机,点击右键,在菜单里选择【系统...

怎样把打印机连接到电脑上(怎么把打印机连接电脑上)
  • 怎样把打印机连接到电脑上(怎么把打印机连接电脑上)
  • 怎样把打印机连接到电脑上(怎么把打印机连接电脑上)
  • 怎样把打印机连接到电脑上(怎么把打印机连接电脑上)
  • 怎样把打印机连接到电脑上(怎么把打印机连接电脑上)
photoshop6序列号(photoshop8.01序列号)
  • photoshop6序列号(photoshop8.01序列号)
  • photoshop6序列号(photoshop8.01序列号)
  • photoshop6序列号(photoshop8.01序列号)
  • photoshop6序列号(photoshop8.01序列号)
win10下载应用商店(win10应用商店打不开)

1、点击Win10系统的开始菜单,然后在点击应用商店;2、打开Win10应用商店后,在搜索框里输入想要搜索的应用软件,然后点击检索;3、点击搜索到的应用,点击安装;4、点击安装后,系统会提示要切换到这...

dell电脑重装系统win10(dell 重装win10系统)

戴尔笔记本重装系统win10的步骤如下:制作好wepe启动盘之后,将win10系统iso镜像直接复制到U盘。在需要重装系统的戴尔电脑上插入pe启动盘,重启后不停按F12启动快捷键,调出启动菜单对话框,...

android升级包下载安装(android 升级包)

打开手机系统更新升级,前提是官方有新系统推送才能更新  哪个大不一定,但一般规律如下:  1、小版本的更新,通常越更新越大。比如3.1更新到3.2,通常是修复bug,代码量通常会增大,体积就会增大。 ...

hdd硬盘和ssd(ssd硬盘和hdd硬盘是什么意思)

HDD硬盘和SSD硬盘是两种不同类型的电脑存储设备,它们有着以下区别:1.工作原理:HDD硬盘使用机械旋转的磁盘和读写磁头来存储和读取数据,而SSD硬盘则使用闪存存储数据,类似于USB闪存盘。2....

电脑免费软件下载大全(电脑上免费的下载软件)

正常情况下,如果我们想要在自己的电脑上面下载一个不要钱的单机游戏,那么我们是可以直接在我们的软件管理中心进行一个下载的,这个时候我们只需要通过一个权限就能够正常的下载,当然我们也是可以在一些小游戏的软...

mpp文件转换excel(mpp转换成pdf)

要将Excel表格转换为MPP格式,您可以按照以下步骤操作:1.打开Excel表格并确保数据按照项目的不同阶段或任务进行组织。2.将Excel表格中的数据复制到一个新的MicrosoftProj...

取消回复欢迎 发表评论: