Delphi Web 老包 deweb2020-05-23 beta2 拆包与 UniGUI 实战指南

简介DeWeb 是一套面向 Delphi 开发者的网页化转换工具让习惯 Object Pascal 的工程师无需学习 HTML、JavaScript、Java、PHP、ASP 或 C#即可把现有 Delphi 程序快速改造成可在手机、平板等各类客户端访问的网页应用适合希望低成本迁移桌面项目、拓展 Web 交付能力的中高级开发者。压缩包共 2669 个文件约 24.59MB以 pas、dfm、dpr、dproj 等 Delphi 源码与工程文件为主辅以 dcu 编译单元、cpp、h 等 C 相关文件以及 js、css、html 等前端资源并包含 res、ico、jpg、gif 等界面素材和 exe、dll、bat 等运行与构建脚本目录结构完整。资源内附安装控件、按版本复制 dcu、编译 DelphiWeb.dproj、浏览器访问演示页面以及新建 Form 并注册类等关键流程说明可帮助读者快速跑通示例、理解页面注册机制并在此基础上扩展自己的业务窗体。目前已有 1073 人学习下载适合作为 Delphi 转 Web 方向的实践参考。1. 从一份 Delphi Web 老包说起deweb2020-05-23 beta2 new2.rar 到底能跑什么如果你手头还压着几套 Delphi 老项目又不想把业务逻辑重写成 Java 或 .NET那deweb2020-05-23 beta2 new2.rar这类包就是典型的“续命型资源”。它本质是一套基于 Delphi 的 Web 应用开发框架核心思路是用 Delphi 写服务端逻辑通过 UniGUI 这类组件把 VCL 风格的界面直接映射成浏览器可访问的 Web 页面。换句话说你原来写的窗体、按钮、事件不用推倒重来就能跑在浏览器里。这个包适合谁一是维护存量 Delphi 系统的工程师二是想用 Pascal 语法快速搭内部管理后台的开发者三是需要把桌面端工具改造成 B/S 架构但又不想换技术栈的团队。它解决的不是“高并发互联网级应用”而是“让 Delphi 代码以最低成本上网”。下面我按实际拆包、配置、跑通、排错的顺序把这份资源讲透。2. 拆包先看目录UniGUI 运行时、Demo 与编译产物的分布逻辑拿到deweb2020-05-23 beta2 new2.rar后别急着双击运行。先解压到一个纯英文、无空格的路径下比如D:\delphi_web\deweb_beta2。中文路径在 Delphi 的包加载和 Web 资源映射阶段容易出玄学问题血泪经验是路径里带一个中文字符都可能让服务端找不到ext-6之类的静态资源目录。2.1 解压后的典型目录结构与识别方法解压后你通常会看到类似这样的结构不同打包者可能微调但核心一致目录/文件作用是否必须bin/或exe/编译好的可执行服务端程序是快速验证用source/或src/Delphi 源码单元含 UniGUI 框架文件是二次开发用demo/或samples/示例项目展示登录、表格、上传等建议看ext/或ext-6/ExtJS 前端静态资源是缺了页面白屏lib/编译好的 dcu 或 bpl 包视版本而定readme.txt版本说明、编译环境要求先读我一般会先打开readme.txt确认它要求的 Delphi 版本常见是 Delphi 10.2 Tokyo 到 10.4 Sydney 之间和 UniGUI 版本号。如果 readme 缺失就看source/下是否有uniGUIBase.pas这类文件用编辑器打开看头部注释里的版本信息。2.2 判断这份包是“运行时完整版”还是“仅 Demo 源码”这一步很关键直接决定你能不能编译。判断方法如果source/下只有demo相关的几个.pas没有uniGUI*.pas核心单元那它只是示例源码你还需要单独安装 UniGUI 商业版。如果source/下包含uniGUIBase.pas、uniGUIConst.pas、uniGUIServer.pas等并且lib/下有对应的.dcu那这份包是带运行时的可以直接编译。如果只有bin/下的 exe没有源码那只能跑现成功能不能改。常见做法是先看bin/里有没有 exe有就先跑起来看界面确认功能符合预期再回头折腾源码编译。别一上来就配 Delphi 环境容易在版本兼容上卡半天。3. 跑通第一个 UniGUI 页面从 exe 启动到浏览器访问的完整链路假设你拿到的是带 exe 的完整包那最快验证方式就是直接启动服务端然后用浏览器访问。这一章把启动参数、端口配置、静态资源映射和常见白屏问题一次讲清。3.1 启动 exe 并确认监听端口进入bin/目录双击 exe 或从命令行启动。命令行方式能看到更多日志cd /d D:\delphi_web\deweb_beta2\bin start server.exe如果 exe 名称是deweb_server.exe或uniGUIApp.exe替换即可。启动后控制台通常会打印类似Server started on port 8077 Document root: D:\delphi_web\deweb_beta2\bin记下端口号。如果没打印就看 exe 同目录下有没有.ini或.cfg配置文件里面一般有Port8077这样的字段。我一般会先确认端口没被占用netstat -ano | findstr :8077有输出就说明端口被占改配置文件里的端口或者杀掉占用进程。3.2 浏览器访问与静态资源路径校验打开浏览器输入http://localhost:8077。如果出现登录页或主界面说明服务端和 ExtJS 资源都正常。如果白屏或 404按 F12 看 Network 面板如果ext-6/...下的 js/css 报 404说明静态资源目录没映射对。检查 exe 同目录下是否有ext-6文件夹或者配置文件里ExtRoot指向的路径是否存在。如果根路径就 404说明服务端没把默认页配好。常见做法是在配置文件里设DefaultPageindex.html或StartPagemain。提示UniGUI 的静态资源映射对路径大小写敏感Windows 下不觉得部署到 Linux 或容器里就会翻车。建议统一用小写目录名。3.3 用 Demo 源码编译一个最小页面如果你要改功能就得走源码编译。以 Delphi 10.4 为例步骤打开 DelphiFile - Open Project选择demo/下的.dproj文件。在Project - Options - Delphi Compiler - Search Path里把source/和lib/加进去。确认Output Directory指向bin/这样编译完直接能跑。按 F9 编译运行。一个最小的 UniGUI 窗体单元长这样unit MainForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uniGUIBaseClasses, uniGUIClasses, uniGUImainmodule, uniGUIForm, uniGUIApplication, uniButton, uniLabel, uniEdit; type TMainForm class(TUniForm) lblHello: TUniLabel; btnClick: TUniButton; edtName: TUniEdit; procedure btnClickClick(Sender: TObject); private { Private declarations } public { Public declarations } end; function MainForm: TMainForm; implementation {$R *.dfm} function MainForm: TMainForm; begin Result : TMainForm(UniMainModule.GetFormInstance(TMainForm)); end; procedure TMainForm.btnClickClick(Sender: TObject); begin lblHello.Caption : 你好 edtName.Text; end; end.逻辑说明TUniForm是 UniGUI 的窗体基类TUniLabel、TUniButton、TUniEdit分别对应浏览器里的标签、按钮和输入框。btnClickClick是服务端事件点击按钮后回传服务端改完Caption再刷新到前端。参数上UniMainModule.GetFormInstance负责窗体实例管理避免多用户串数据。编译前确认Search Path里uniGUIBaseClasses等单元能找到否则会报File not found: uniGUIBaseClasses.dcu。这时候就回到第 2 章检查lib/下有没有对应 dcu或者source/下有没有 pas 需要一起编译。4. 避坑与排查UniGUI 老包在 Win10/Win11 上的五个翻车点这一章全是实际踩过的坑每条按“现象 → 原因 → 解决”写。你如果卡在某个环节先来这里对号入座。4.1 启动即报“Cannot load package uniGUIXX.bpl”现象双击 exe 或编译时弹窗提示找不到某个 bpl 包。原因Delphi 的包搜索路径没配或者系统 PATH 里没有 bpl 所在目录。解决把lib/或bin/下所有.bpl所在目录加到系统环境变量PATH里重启 Delphi。如果是编译期报错在Project - Options - Packages里把Runtime Packages的搜索路径补上。4.2 浏览器打开是空白页Network 里 js 全 404现象页面白屏F12 看到ext-6/ext-all.js404。原因静态资源目录没放对或者配置文件里ExtRoot指向了绝对路径但实际不存在。解决确认 exe 同目录下有ext-6文件夹且里面至少有ext-all.js、theme-triton等。如果是从别的机器拷来的包经常漏掉这个目录。补上后重启服务端。4.3 编译报“Unit uniGUIServer was compiled with a different version”现象编译时提示某个 dcu 版本不一致。原因lib/下的 dcu 是用另一个 Delphi 版本编译的和你当前 IDE 不匹配。解决删掉lib/下所有 dcu把source/下的 pas 全部加入项目重新编译。或者换用 readme 里指定的 Delphi 版本。我一般会先看source/uniGUIBase.pas头部注释里的版本号再决定用哪个 IDE。4.4 多用户访问时数据串了现象A 用户填的表单B 用户刷新后看到了。原因把用户状态存到了全局变量或窗体类的 published 字段里UniGUI 的窗体实例默认是每会话一个但如果你用了Var全局变量就会串。解决所有会话相关数据放到TUniMainModule或TUniSession里用UniSession取当前会话。别用全局var存用户输入。4.5 部署到 Windows Server 后端口不通现象本机跑得好好的放到服务器上外网访问不了。原因防火墙没放行端口或者服务端绑定了127.0.0.1而不是0.0.0.0。解决在服务器防火墙入站规则里放行对应端口。检查配置文件里BindAddress或Host字段改成0.0.0.0或留空。如果用了 IIS 反代还要确认 IIS 的 URL Rewrite 规则把请求转到了正确端口。注意老版本 UniGUI 在 Win11 上可能遇到 Indy 组件兼容问题表现为服务端启动后立即退出。常见做法是换用更新一点的 Indy 单元或者直接在 Win10 虚拟机里跑。别在 Win11 上死磕时间成本不划算。5. 进阶把老包改造成可维护的内部工具以及我的验证习惯跑通之后下一步就是让它真正干活。我一般会做三件事把配置外置、加一个健康检查接口、写一个最小回归清单。5.1 配置外置与健康检查别把端口、数据库连接串硬编码在代码里。在 exe 同目录放一个config.ini[Server] Port8077 BindAddress0.0.0.0 ExtRoot./ext-6 [Database] DriverSQLite Path./data/app.db然后在 Delphi 里用TIniFile读取uses System.IniFiles, System.SysUtils; var Ini: TIniFile; Port: Integer; begin Ini : TIniFile.Create(ExtractFilePath(ParamStr(0)) config.ini); try Port : Ini.ReadInteger(Server, Port, 8077); UniServerModule.Port : Port; finally Ini.Free; end; end;逻辑说明ExtractFilePath(ParamStr(0))取 exe 所在目录保证配置文件跟着程序走。ReadInteger第三个参数是默认值配置缺失时不会崩。参数上UniServerModule.Port是 UniGUI 服务端模块的端口属性改完需要重启服务端生效。健康检查接口更简单加一个TUniPageControl或直接用一个返回 JSON 的TUniCustomSession处理procedure TMainModule.UniSessionCreate(Sender: TObject); begin // 会话创建时记录日志便于排查 end; function TMainModule.HealthCheck: string; begin Result : {status:ok,time: FormatDateTime(yyyy-mm-dd hh:nn:ss, Now) }; end;这样运维可以用curl http://localhost:8077/health确认服务活着。5.2 我的验证清单与一个习惯每次改完配置或升级包我会按这个清单走一遍检查项命令/操作预期端口监听netstat -ano | findstr :8077有 LISTENING首页可访问浏览器打开http://localhost:8077出现登录页静态资源F12 Network 看ext-all.js200登录流程用 demo 账号登录进入主界面数据提交填表单点保存数据库有记录多会话隔离两个浏览器分别登录数据不串最后说个习惯从那以后我每次拿到这种带 beta 字样的老包都强制先在虚拟机里跑一遍完整流程确认没有捆绑奇怪东西、没有缺静态资源、没有端口冲突再往生产环境搬。因为 beta 版的包打包者自己可能都没在干净环境里验证过你直接上生产就是给自己埋雷。希望帮到你。本文还有配套的精品资源点击获取