简介一份由Delphi完整开发的股票分析系统源码包主站与客户端全部采用Delphi编写几乎不依赖第三方控件涵盖股票行情分析、完全实时的财务数据、实时信息地雷等核心模块正面回应了Delphi能否胜任大型系统的疑问。资源共87个文件压缩包约2.32MB其中60个cel文件对应各类财务与行情模板14个dat文件存放股票板块、字典与更新数据5个dll动态库支撑业务逻辑2个exe实现主程序与更新入口另有ini/xml配置文档结构清晰便于按模块拆解研读。目前已有984人学习下载。读者可借此研究金融信息服务客户端的多文档界面组织、数据层与界面层交互、图表绘制与实时刷新机制等设计思路也可直接编译运行输入任意登录名即可体验完整的看盘与财务数据展示流程。适合具备一定Delphi基础、希望了解大型桌面客户端工程组织方式的开发者参考。1. 股票分析系统用什么写这套 Delphi 全栈图形源码的落地价值拿到这套股票分析系统的源码包时我先翻的不是业务逻辑而是图形处理类控件源码——Delphi 开发的主站和客户端里最容易被低估的就是自绘图表这块。很多人默认行情界面就是塞一个 Chart 控件拉数据真接手过这类项目的人才知道K 线缩放、分时聚合、十字线跟随时那些卡顿和错位十有八九不是数据问题而是画布处理没做对。这套资源把主站和客户端完整串了起来主站负责行情推送客户端纯 Delphi 自绘渲染图形控件部分可以直接摘出来复用。适合要接手存量行情项目的人也适合想搞懂桌面端行情软件底层绘图逻辑的开发者。别把时间花在“用哪个组件画图”上应该先看它的坐标映射和刷新策略怎么写的。2. 图形处理类控件选型为什么行情图表不靠现成 Chart 控件2.1 自绘、通用图表控件、商业金融图表包的取舍我在一个模拟项目X里重新搭行情客户端时第一件事就是选绘图方案。当时摆在桌面上的是三条路通用 Chart 控件、商业金融图表包、完全自绘。通用 Chart 控件的特点是拖进去就能出柱状图、折线图但行情场景下它的坐标轴校准、数据集更新、十字线联动都要额外做适配数据量一上来刷新就很吃力。商业金融图表包展示效果最好可主站和客户端的视觉样式往往不一致授权成本偏高而且想改成交量的副图样式、定制涨跌停标记基本要跟控件开发商反复沟通。最后我们选了完全自绘基于 TCanvas 和 GDI 绘制全部图表元素。方案上手成本大规模数据定制自由度维护成本通用 Chart 控件低中卡顿明显低受控件模型限制中商业金融图表包中好但黑匣子中改深层逻辑困难高依赖版本更新TCanvas 自绘高前期要写底层高可控高全在代码里低出问题能直接定位自绘的代价是前期工作量大但优势在后期。行情系统的绘图需求一旦细化到“某根 K 线收盘价突破前高时画个标记”“副图 MACD 金叉时在对应位置标个箭头”控件方案的改动成本会指数级上升自绘只需要在绘制循环里加一个分支。这套资源的图形控件部分走的就是第三种路线源码里能同时看到坐标映射、刷新区间管理和双缓冲实现都是我前面提到的关键点。2.2 自绘最小骨架先解决数据索引到屏幕坐标的映射自绘第一步不是画线而是建立数据索引到屏幕坐标的映射。K 线图本质上是一个从左往右排布的序列屏幕 X 坐标由数据索引决定Y 坐标由价格区间决定。很多自绘代码写乱了就是因为 X 轴直接拿“第几根”去乘宽度Y 轴拿价格直接减最小值没有统一走映射函数结果缩放和十字线一加就全乱。function TChartPainter.DoCalcRect(aIndex: Integer; aCount: Integer; aRect: TRect; aBarWidth: Integer): TRect; begin // 数据索引到X轴画布坐标的线性映射 Result.Left : aRect.Left Trunc(aIndex / Max(aCount - 1, 1) * (aRect.Width - 1)); Result.Right : Result.Left aBarWidth; Result.Top : aRect.Top; Result.Bottom : aRect.Bottom; end;这段代码的核心是aIndex / Max(aCount - 1, 1)它把 K 线在数据序列里的位置换算成 0 到 1 之间的比例再去乘以画布宽度得到左边界。这里有两个容易忽略的参数细节一是Max(aCount - 1, 1)防止只有一根 K 线时除数为零二是aRect.Width - 1避免最后一根 K 线贴到画布右边缘之外。我习惯把这种纯计算函数放到独立单元里不依赖任何控件实例这样后面加十字线、加缩放都能复用同一个公式不会各写各的导致画面错位。2.3 刷新策略全量重绘和脏矩形重绘的取舍坐标映射解决了画什么的问题刷新策略解决的是什么时候画、画多少。新手容易直接在每个数据更新事件里调用Repaint让整个客户区重画一遍。行情客户端每秒钟可能收到几十笔推送每次都全量重绘CPU 占用会非常难看。通常的做法是维护一个绘制锁按区间失效画布只有数据变化涉及的区域才会真正进入重绘流程。procedure TChartPainter.InvalidateRange(aRect: TRect); begin // 只让画面上需要变化的区域失效而不是整个客户区 FDrawLock.BeginUpdate; try if FNeedFullPaint then InvalidateRect(FPaintHandle, nil, False) else InvalidateRect(FPaintHandle, aRect, False); finally FDrawLock.EndUpdate; end; end;这里FDrawLock.BeginUpdate和EndUpdate是防止数据线程和绘制线程同时操作画布。InvalidateRect的第一个参数传窗口句柄第二个参数传矩形区域False表示不需要擦除背景减少闪烁。实际项目中我一般会在主图、副图、盘口面板分别维护各自的失效矩形而不是用一个全局的nil全量失效。这样拖动十字线时只有十字线经过的小区域被重画K 线主体不参与重绘性能差距在新机器上不明显在旧设备上就是天壤之别。3. 主站与客户端的分工行情结构体、断线补齐与本地缓存3.1 二进制协议结构体与粘包拆包逻辑主站和客户端的分工很明确主站负责接入行情源、聚合数据、按统一协议广播客户端负责解析、缓存和图形渲染。两端都用 Delphi 写共享一份协议定义这比主站用 C、客户端用 Delphi 的跨语言方案省事得多因为结构体可以直接packed record对齐不用手工算偏移量。type PQuotePack ^TQuotePack; TQuotePack packed record Tag: Byte; // 1快照 2tick 3K线补齐 Length: Word; // 包体长度 Symbol: array[0..7] of AnsiChar; Timestamp: Int64; // UNIX毫秒时间戳 LastPrice: Double; Volume: Int64; end;网络传输里最怕的是客户端和主站对同一个字段的偏移理解不一致packed record能保证结构体没有对齐填充字段顺序和大小都确定下来。解析时先读Tag再根据Length决定还差多少字节粘包时把剩余数据留在缓冲区里等下一个包到达后继续拼接。需要注意Double在网络传输中的字节序我在实际开发里会统一转成Int64传输以 0.0001 为精度单位表示价格避免不同平台浮点解析差异。这个协议定义了三种消息类型Tag3专门给 K 线补齐用断线重连要靠它恢复本地缓存。3.2 重连后的数据缺口拉最近 K 线覆盖空洞TCP 连接断开再恢复最麻烦的不是重连本身而是重连期间的 K 线缺口。客户端的本地缓存本来按时间顺序排列断线这段时间少了几根 K 线如果直接用后续 tick 往数组里追加图上会出现一段空白技术指标也会在这些位置断掉。正确的做法是重连后先发一个补齐请求把最近一段 K 线拉回来做对齐。function TQuoteClient.FetchRecentBars(aSymbol: AnsiString; aCount: Integer): Boolean; begin // 重连后先请求最近的aCount根K线覆盖断线缺口 Result : False; FRequest.MsgTag : 3; // 3K线补齐请求 FRequest.Symbol : aSymbol; FRequest.Count : aCount; if FTransport.Send(FRequest, SizeOf(FRequest)) then Result : FTransport.WaitAck(3000); end;这里的aCount传多少很关键。传少了补不齐空洞传多了浪费时间在无意义的网络传输上。我一般会按断线时长估算断线 30 秒拉最近 510 根 1 分钟 K 线断线 5 分钟拉最近 25 分钟的数据宁可多拉一点做重叠校验也不愿意在缺口上蒙数据。WaitAck(3000)是等待确认的超时时间实际生产环境里这个值要根据网络情况调整过高会导致界面假死过低会在弱网环境反复触发重连逻辑。3.3 多窗格界面与合并绘制定时器客户端的界面不是一张大画布而是拆成多个窗格左侧是自选列表中间是主 K 线图下方是成交量副图右侧是盘口。每个窗格有独立的绘制区域和失效范围窗格之间通过事件传递联动消息比如主图滚动时副图跟随平移。这个设计避免了每次交互都把整个客户端重绘一遍。procedure TQuoteClient.OnPaintTimer(Sender: TObject); begin // 合并绘制50毫秒内多次数据到达不会多次重绘 if FDataCache.Version FLastPaintedVersion then begin FChartPainter.InvalidateRange(FChartRect); FLastPaintedVersion : FDataCache.Version; end; end;这里维护一个版本号数据每次更新都会改变FDataCache.Version绘制定时器周期检查版本号是否有变化。这个做法的好处是把数据接收频率和绘制频率解耦数据可以每秒钟到达 20 次但画面最多每 50 毫秒刷新一次避免了高频推送导致的重绘风暴。定时器间隔我一般设 50 毫秒行情剧烈时人眼已经足够流畅静态时段间隔可以放宽到 100 毫秒进一步降 CPU 占用。用血泪经验说一句千万别在数据线程里直接调用绘制函数跨线程操作画布是界面崩溃的常见源头所有绘制统一回到主线程定时器里做。4. K 线与分时图绘制从数据网格到缩放十字线的完整链路4.1 缓存切片的边界防护绘制的前提是拿到一段有序数据。本地缓存通常维护一个全局的TList按时间递增追加 K 线。绘制时不能直接把整个列表丢给绘制函数而是要先按当前可视范围切片。这套源码里的ListByRange函数就是做这件事的重点不在切片本身而在边界防护。procedure TQuoteCache.ListByRange(aSymbol: AnsiString; aStartIndex, aCount: Integer; aBars: TList); begin // 先定位起始索引再取连续区间避免遍历全量数据 if aStartIndex 0 then aStartIndex : 0; if aStartIndex aCount FBarList.Count then aCount : FBarList.Count - aStartIndex; // 直接把指针批量写入目的列表减少内存拷贝 Move(FBarList.List[aStartIndex], aBars.List[0], aCount * SizeOf(Pointer)); end;Move直接从源列表指针位置拷贝到目标列表指针位置尽量避免逐根循环赋值在大数据量下这个优化收益明显。aBars.List[0]要保证目标列表预分配了足够的容量否则内存越界会在极端行情下爆发。边界判断分两层左侧不允许负索引右侧不允许超出缓存总数。我实际遇到过滚动到最左边准备往回拉时aStartIndex变成负数导致画布一片乱码就是少了这一行if防护的原因。4.2 成交量副图画布裁剪与指标叠加顺序主 K 线图和副图共享同一个画布但绘制区域上下分开。画布裁剪的目的是把绘制操作限制在各自区域内主图的数据不会越界画到副图区域。自绘时每次进入副图绘制前先保存当前裁剪区画完再恢复这样主图的后续绘制不会受副图画笔和画刷状态污染。procedure TChartPainter.PaintVolume(aG: TCanvas; aRect: TRect; aBars: TList; aMaxVol: Double); var I: Integer; vH: Integer; begin // 按最大成交量归一化高度 for I : 0 to aBars.Count - 1 do begin vH : Trunc(TKLine(aBars[I]).Volume / Max(aMaxVol, 1) * aRect.Height); aG.Rectangle(aRect.Left I * FBarWidth, aRect.Bottom - vH, aRect.Left I * FBarWidth FBarWidth - 2, aRect.Bottom); end; end;aMaxVol是当前可见范围内最大成交量不能用一个全局固定值不然股价翻倍后副图柱子全部顶到天花板对比度失真。每根柱子宽度减 2 像素让柱和柱之间留一条缝视觉效果更接近主流行情终端。画完副图后主图的 MA5、MA10 均线叠加时要注意绘制顺序先画 K 线实体再画均线最后画十字线覆盖关系不能反否则均线会被 K 线实体切开看起来像是断断续续的点线段。4.3 滚轮缩放锚点与十字线反变换滚轮缩放最反直觉的地方在于缩放中心不是屏幕中心而是鼠标所在的 K 线索引位置。如果只改可视 K 线总数而不调整滚动偏移画面会以左边缘为锚点缩放鼠标下面的那根 K 线会跑掉交互上非常别扭。正确做法是缩放前后保持锚点索引的像素位置不变。procedure TChartPainter.ZoomAt(aAnchorIndex: Integer; aDelta: Integer); var vOldCount: Integer; begin vOldCount : FVisibleCount; FVisibleCount : Max(FMinVisibleCount, Min(FMaxVisibleCount, FVisibleCount - aDelta)); // 锚点索引不变调整滚动偏移量 FScrollOffset : aAnchorIndex - Trunc((aAnchorIndex - FScrollOffset) * (FVisibleCount / Max(vOldCount, 1))); end;这段逻辑的实质是一个比例换算缩放前锚点距离左边缘的像素比例等于缩放后锚点距离左边缘的比例由此反推出新的滚动偏移。FMinVisibleCount和FMaxVisibleCount分别设最小和最大可视 K 线数比如最小 20 根防止过度拉伸最大 300 根防止单根 K 线被压成一条线。十字线的 X 反变换用同一套公式从屏幕坐标反推出数据索引。5. 避坑与排查绘制性能、字体缩放、布局错位的问题实录5.1 双缓冲反而越画越模糊现象给画布加了TBitmap双缓冲后K 线文字和网格线边缘出现轻微毛边缩放后整幅图像是隔了一层雾。原因双缓冲位图的PixelFormat和画布原生格式不一致画布缩放时位图被拉伸产生插值模糊。我最初直接新建一个默认TBitmap它的位深和主画布不一定匹配在部分高 DPI 环境下就会触发系统缩放插值。解决创建缓冲位图时显式指定PixelFormat : pf32bit并在绘制前把位图的宽高设为实际像素尺寸而不是逻辑尺寸。从那次之后我养成一个习惯新建任何离屏缓冲画布第一行先设置PixelFormat不依赖默认值。5.2 高分屏缩放后十字线不在鼠标位置现象在 Windows 显示设置里把缩放从 100% 调到 150%十字线位置和鼠标点击处错开偏差约等于缩放比例。原因Windows 的 DPI 虚拟化让应用程序以为屏幕分辨率比实际小鼠标消息里的坐标是逻辑坐标而画布绘制用的是物理像素坐标。没有声明进程 DPI 感知时两套坐标混用就会整体偏移。解决在程序启动时调用SetProcessDPIAware让系统不要对窗口做虚拟化缩放。同时把绘制区域的高度和宽度统一换算成物理像素。这个坑在 Windows 11 上遇到的人更多因为系统默认缩放比例普遍高于 100%。5.3 极端行情下 K 线数组越界导致崩溃现象某标的在连续竞价阶段瞬间收到大量成交回报客户端直接弹地址访问错误日志里ListByRange调用栈出现在崩溃点。原因数据接收线程往缓存列表追加数据时绘制线程正在用旧索引切片两个线程同时访问同一个TList没有加锁。常规行情下并发概率低极端行情下推送频率暴增竞争窗口被放大越界就成了必然。解决给缓存列表的读写都加上临界区保护读操作用TMonitor.Enter(FDataLock)包住整个切片过程。我顺手给ListByRange加了一层循环判断如果目标列表容量不足就扩容算是双保险。5.4 高频推送拖垮界面卡顿不在绘制在排队现象行情刷新频繁时界面卡顿但 CPU 占用并不高倒是内存占用持续上涨。原因数据接收线程把每个行情包都丢进队列绘制线程消费不过来队列积压。我一度以为是绘制算法太慢加了性能分析才发现绘制函数消耗很小积压发生在队列生产端。解决把高频 tick 数据先按时间窗口聚合成 K 线再入队同时丢弃比当前 K 线时间戳更早的重复推送。绘制侧沿用前面的版本号判断一次重绘只消费最新状态中间的旧数据直接跳过。6. 进阶热力图渲染与双数据源验证6.1 把板块热度画成热力图行情客户端除了 K 线经常需要展示板块热度分布。实现思路很简单用TBitmap的像素级操作把每个标的的涨跌幅映射成色块的 RGB。这个技巧比逐个绘制Rectangle快得多尤其当板块内有上百只标的时。function HeatMapColor(aValue, aMin, aMax: Double): TColor; var vRatio: Byte; begin // 涨跌比例映射到红绿区间负数偏绿正数偏红 vRatio : Trunc((aValue - aMin) / Max(aMax - aMin, 0.0001) * 255); if vRatio 127 then Result : RGB(200, Trunc(200 * (255 - vRatio) / 128), 0) else Result : RGB(Trunc(200 * vRatio / 128), 200, 0); end;我一般会把热力图输出到内存位图再一次性Draw到画布上避免每个色块单独刷新。参数上注意aMax - aMin的除数保护板块内所有标的涨跌幅都一样时除数为 0函数直接返回绿色。6.2 模拟推送验证别拿真行情调渲染接手这类 Delphi 行情源码后我最后悔的是第一版调试直接接了真实行情结果崩了都分不清是数据问题还是绘制问题。后来我习惯先写一个模拟推送器按固定时间间隔生成行情包灌给客户端验证极端区间再换真数据。procedure TSimFeed.Run; var I: Integer; P: TQuotePack; begin // 模拟某标的连续拉涨再急跌的行情包 for I : 1 to 3000 do begin FillChar(P, SizeOf(P), 0); P.Tag : 2; P.Symbol : SIM001; P.LastPrice : 10.0 I * 0.01; P.Volume : I * 100; FClient.Feed(P); Sleep(20); end; end;模拟数据的意义不只是制造行情而是制造真实行情里难以遇到的边界组合连续一字涨停、瞬间跌停、停牌后复牌、成交量跃升十倍。从那以后我每次拿到新的行情绘制代码都会先跑一遍这种模拟 push确认极端区间不越界再把真行情接进来希望帮到你。本文还有配套的精品资源点击获取