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

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

off999 2024-09-20 22:40 39 浏览 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执行的结果。查看下面的动画效果。

相关推荐

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

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

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...

win7旗舰版开机密码忘记按f2

方法如下:开始-控制面板-用户帐户;在打开的更改用户帐户界面点击要更改的帐户;然后点击帐户左面的更改密码按钮;在打开的页面上,输入一次当前使用的密码,输入2次要更改的新密码然后保存退出就可以了...

笔记本无音频输出设备(笔记本无音频输出设备)

1、没有声卡驱动,解决方法就是找到笔记本的官网,下载电脑声卡的驱动安装即可。2、没有外界的音频播放设备,解决方法就是买一个外界的音频播放设备插到电脑主机的音频接口上即可。笔记本电脑显示未安装任何音频输...

iso文件能用手机打开吗(iso文件能用手机打开吗安全吗)

一般的压缩软件就可以打开的,比如,好压软件,这个打开只是解压形式的,如果你说的是运行iso文件,这个没有,况且安卓系统也不支持iso运行ISO文件一般用于光盘镜像文件的存储,如果想要在手机上运行ISO...

win7系统卡顿怎么优化(win7很慢很卡怎么优化)

1、首先打开安全卫士,进入安全卫士首页,单击软件窗口右下角的“更多”图标,打开扩展应用程序。2、单击选择“我的工具”。3、在我的工具菜单里面找到“人工服务”单击打开人工服务。4、在人工服务对话框有很多...

取消回复欢迎 发表评论: