那天项目卡死之后

上个月接了个活儿，用Delphi改个老掉牙的后台网页系统。好家伙，一进去页面加载跟蜗牛爬似的，点个按钮能去冲杯咖啡回来还没反应完，用户骂娘邮件都堆成山了。我琢磨着不行，这玩意儿再这么瘫下去，我这饭碗怕是要凉。翻箱倒柜找资料，厚着脸皮请教了几个搞了十几年Delphi的老杆子，自己憋在电脑前捣鼓了两周，总算把这玩意儿整顺溜了点。

开刀第一式：掐掉那些偷偷吃资源的贼

我第一步就是拿着放大镜瞅代码，好嘛发现一堆坑货：

• 循环里怼SQL查询，点个筛选按钮后台就跟抽风似的狂读数据库，数据库脸都绿了。
• 界面更新玩命刷，表格里屁大点改动都整个重画，眼都快被闪瞎了。
• 内存漏得跟筛子一样，对象创建了不收拾，网页开着开着就能把电脑拖成老牛拉破车。

这能忍？我抄起键盘就改：循环里的SQL全拎出来拼成一句，让数据库一口吃饱；界面刷新锁死，数据攒够了再一口气吐出来；对象用完的地方，.Free 给我摁着头加，眼睛盯着内存管理器看到数值稳了才撒手。

撞上大铁板：网络请求堵成粥

刚觉得喘口气，测试那边又吼了：“上传大文件直接卡崩！” 我一瞅，老代码用 Indy 组件搞阻塞式传输，传文件的时候整个界面就跟冻住了一样。这用户体验，用户不掀桌才怪。

连夜翻技术群聊天记录，看到有人说用TNetHttpClient加异步。赶紧试了把，把上传动作扔到后台线程去，主界面该干嘛干嘛传完再弹个小窗通知。改完上传个200M的压缩包，界面照样丝滑点按钮，后台自己吭哧吭哧传，用户终于不用干瞪眼了。

藏起来的绝活：缓存这玩意儿真香

系统里有几个下拉菜单，数据就那几样，非得每次打开都去数据库里刨。我看着服务器日志里重复的查询语句直搓牙花子，这不是白给数据库上刑吗？

想起一个老哥提过内存缓存。琢磨了半天，搞了个全局的 TDictionary，第一次查数据库就把结果怼进去，后面再要直接从内存里掏，速度快得飞起。给缓存设了个过期时间，数据万一变了也不怕，到点自动刷新，省心！

硬挤点油水

主体搞定了还不死心，抠抠搜搜又想压榨点性能：

• 图片全给我瘦身！UI用的那些图标，原图大的吓人，批量过了一遍压缩工具，肉眼看不出来区别，体积直接砍半；
• JavaScript和CSS捆一块儿，浏览器少发几次请求；
• 第三方控件？能拆的全拆了，换原生写法，轻快得不像话。

结果跟做梦似的

折腾完一测，我自己都不敢信：原先点开页面要等三分钟的玩意儿，现在基本秒开；文件上传后台自己跑得欢，界面稳如狗；服务器CPU从天天飙红到现在悠哉悠哉。用户那边反馈画风突变，骂娘的没了，居然还有人夸“顺滑”？嚯，值了！

这趟活儿算是明白了：Delphi搞网页，不是它不行，是你得会收拾。少点花里胡哨，盯着资源管饱、内存看牢、请求别堵，老树也能发新芽。改完那天晚上，我开了罐啤酒对着屏幕乐，被优化虐了千百遍，终于能扬眉吐气一回。