Delphi 6调用返回1700万行的存储过程时内存不足问题求助

核心原因 #

内存不足和存储过程是否执行完成无关，本质是Delphi默认会把结果集全部加载到客户端内存，1700万行数据的内存占用远超普通应用的可用上限。SSMS能正常运行是因为它采用了流式读取+分页显示，不会一次性加载所有数据。

具体修复步骤 #

1. 启用数据集的流式/按需读取模式 #

Delphi 6中的TADOQuery/TADOStoredProc默认全量加载数据，改成服务器端游标+仅向前读取模式，让SQL Server负责缓存数据，客户端按需取行：

• 设置CursorLocation为clUseServer
• 设置CursorType为ctForwardOnly
• 设置LockType为ltReadOnly
  示例代码：

ADOStoredProc1.CursorLocation := clUseServer;
ADOStoredProc1.CursorType := ctForwardOnly;
ADOStoredProc1.LockType := ltReadOnly;
ADOStoredProc1.ProcedureName := '你的存储过程名';
ADOStoredProc1.ExecProc;

2. 分页读取数据 #

不要一次性获取所有行，改成分批分页读取：

• 修改存储过程，新增@PageSize（每页行数）和@PageIndex（页码）参数，用SQL Server的分页逻辑返回指定页数据（SQL Server 2005+用ROW_NUMBER()，更早版本用嵌套TOP实现）
• Delphi端循环调用存储过程，每次处理一页数据，处理完成后释放当前页内存再取下一页

3. 精简存储过程返回数据 #

• 只返回业务需要的字段，删除不必要的列，减少单条数据的内存占用
• 若存在TEXT/IMAGE这类大字段，非必要则不返回；必须返回时，设置Delphi数据集的FetchBlobsOnDemand为True，实现大字段延迟加载

4. 优化应用内存配置 #

Delphi 6默认是32位应用，内存上限约2GB，可通过以下方式提升：

• 编译时开启Large Address Aware（在项目选项中设置，需系统支持，可让32位应用访问最多3GB内存）
• 处理数据时及时释放无用对象、变量，避免内存泄漏

关于sleep()的说明 #

sleep()完全无法解决问题，它只会让应用暂停执行，既不会加速存储过程，也不会减少内存占用。问题核心是全量加载大结果集，必须从数据读取模式或获取方式上调整。

内容的提问来源于stack exchange，提问作者test12345