Delphi Drag and Drop组件接收大文件内存不足 如何跳过加载本地文件流

解决方案 #

方案1（推荐，原生配置支持）

你使用的TDropComboTarget组件本身就提供了对应配置，不需要大改代码，只需要在构造函数中新增一行设置即可：

constructor TDragAndDrop.Create( vpntOwner: TWinControl);
begin  
  fpntDragAndDrop                 := TDropComboTarget.Create(vpntOwner);
  fpntDragAndDrop.Name            := 'DropComboTarget_'+vpntOwner.Name;
  fpntDragAndDrop.DragTypes       := [dtCopy, dtLink];
  fpntDragAndDrop.OnDrop          := DropFiles;
  fpntDragAndDrop.Target          := vpntOwner;
  fpntDragAndDrop.Formats         := [mfFile, mfData];
  // 新增这行，禁用本地文件自动加载到内存流的逻辑
  fpntDragAndDrop.DropFileTarget.LoadToStream := False;
end;

该配置生效后完全符合你的需求：

• 拖拽本地文件时：fpntDragAndDrop.Files.Count正常返回文件数量、保留完整路径，fpntDragAndDrop.Data.Count为0，不会加载文件内容到内存，彻底避免大文件内存溢出
• 拖拽Outlook附件时：原有逻辑不受影响，Data集合正常返回附件流

方案2（兼容老版本组件）

如果你用的组件版本较低，没有暴露DropFileTarget属性，可以通过事件逻辑规避问题：

1. 在OnDragOver事件中判断当前拖拽的格式，如果检测到是CF_HDROP（即本地文件拖拽），临时将Formats设置为仅[mfFile]，阻止流加载
2. 如果检测到是其他拖拽格式，再改回[mfFile, mfData]即可

额外优化建议

你当前代码的try-except块为空，没有任何异常捕获处理逻辑，建议补充异常日志输出，避免出现问题无法排查。

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