本帖最后由 xiaojiuakio 于 2026-4-10 11:21 编辑
Delphi Lite 也常被称为并不是 Embarcadero 官方发布的标准产品版本,
而是社区第三方基于官方 Delphi 13.1(RAD Studio 13.1 Florence)正式版或试用版制作的精简模块化安装包。
官方 RAD Studio 完整安装包体积通常超过 30GB,其中包含了 C++ Builder 、VC++ Redistributable,JDK、.NET Framework、Windows SDK等大量依赖组件。
Delphi Lite 并非 Embarcadero 官方发布的标准产品版本,而是由社区第三方基于官方 RAD Studio 13.1 Florence正式版制作的模块化安装包。
截至目前为止99.9%以上的Delphi相关项目都是Windows 上的 VCL 32位的客户端开发,为了安装速度,
我们只选择这个版本的组件安装即可,我们只安装VCL + Windows 32位这个版本的组件即可。
首先先从百度网盘下载:
通过网盘分享的文件:VCL13.1 Lite 32-bit
链接: https://pan.baidu.com/s/1u1RS5NJZQjWaUtyJ90SH6A 提取码: akio
我们需要安装 适配于 x86指令集的 windows VCL 的 delphi控件,因此只需要如下三个包:
- Ext.Core.zip 这个包是经典的 32位 x86 windows IDE 以及 VCL 控件集合。
- Embarcadero.Delphi.Activator.zip 是crack程序破解程序不需要我们主动解压,后续启动程序会自动帮我们解压。
- Embarcadero.Delphi.Lite.zip 是安装的主程序,为了防止被安全软件误杀,我把他压缩在一个zip包内,使用的时候先关闭安全中心,然后必须解压缩这个包。
我们需要安装 适配于 x86指令集的 windows VCL 的 delphi控件,因此只需要如下三个包:- Ext.Core.zip 这个包是经典的 32位 x86 windows IDE 以及 VCL 控件集合。
- Embarcadero.Delphi.Activator.zip 是crack程序破解程序不需要我们主动解压,后续启动程序会自动帮我们解压。
- Embarcadero.Delphi.Lite.zip 是安装的主程序,为了防止被安全软件误杀,我把他压缩在一个zip包内,使用的时候先关闭安全中心,然后必须解压缩这个包。
双击解压后的 Embarcadero Delphi 13.1 Lite v19
在选择组件界面中,只勾选 Activator/Keygen/Patch 与 Remove Welcomepage Online Resource选项即可,
因为我们只使用 32位 widnows 的 VCL 桌面应用。
在 Form 上拖放一个 TImage(改名为 Image1)。
- 把 Image1 的 Align 属性设为 alClient(铺满窗体)或手动调整位置和大小。
- 可选:把 Stretch 属性设为 True(自动拉伸图片),Proportional属性 设为 True(保持比例),Center 属性设为 True(图片居中显示)。
在 Form 上拖放一个 TButton(改名为 btnShow 或保持 Button1)。- name 属性点击右边的三个...的按钮,然后在 Multi-Line String Editor内写入 “点击显示”回车“ 小啾akio”回车“盾盾盾反”
- WordWrap 属性选择为 True
设计时界面如下图
双击 Button1 控件,在 Button1Click 方法内写入一下代码,
其中LoadFromFile里面写入你想要的图片的绝对地址。
[Pascal] 纯文本查看 复制代码 procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('c:\Users\WB\Pictures\18f331cb6b4c3b4f8e7f73e1074a8bd0.jpg');
end;
end.
在样本代码的 uses 的最后引入JPEG这个单元。(在pascal 里面的『单元』类似其他编程语言的『包』)。Delphi 的 TPicture.LoadFromFile 默认只支持 BMP 等少数格式。 JPG/JPEG 格式需要额外注册,而这个注册是由 JPEG 单元完成的。你没有在代码中引用它,所以 Delphi 不认识 .jpg 扩展名(报错里显示成 Jjpg 是因为它把扩展名处理得有点奇怪)。uses引入了JPEG单元后,你的代码应该就能正常显示这张 JPG 图片了。
[Asm] 纯文本查看 复制代码 uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,JPEG;
Ctrl + Shift + F9 编译执行代码,运行窗体:
|