估计是栈溢出,IdTCPServer 组件

sczyq 2017-11-21 01:30:39
TCP服务程序,使用 Service 项目 Win64 

功能是列出指定目录下的所有文件信息发送给客户端

先上代码,


procedure TMyFileServices.ListFileToClient(AContext: TIdContext; APath : String);
var
SR : TSearchRec;
S : String;
begin

if FindFirst(APath + '*', faAnyFile, SR) = 0 then
try
repeat
if (SR.Name <> '.') and (SR.Name <> '..') then
begin
 S := SR.Name + ',' + IntToStr(SR.Size) + ',' + IntToStr(SR.Attr) + ',' + IntToStr(SR.Age);
   AContext.Connection.IOHandler.WriteLn(S);
end;
until FindNext(SR) <> 0;
finally
System.SysUtils.FindClose(SR);
end;
end;


一般情况下都没问题,当有一个文件夹文件数达到 280000 (28万个以上) 时,服务直接崩溃,甚至连异常都捕获不到
...全文
468 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
sczyq 2018-03-06
  • 打赏
  • 举报
回复
SupermanTm 经过使用 ASession.Connection.IOHandler 的 WriteBufferOpen, WriteBufferFlush, WriteBufferClose; 也没用。 pathletboy 在调用 ListFileToClient 之前已经有 try .. except .. end 但没用,是程序直接崩溃 jjpweb 这行先注释掉了,这个过程没用了 日月路明 后来我加了每发送2000行(2000个文件信息)就发送指令等待客户端处理答复协议,也不管用
jjpweb 2017-12-01
  • 打赏
  • 举报
回复
AContext.Connection.IOHandler.WriteLn(S); 这行先注释掉,排查下原因
pathletboy 2017-12-01
  • 打赏
  • 举报
回复
try ... finally并不能捕获异常,尝试使用
try
  try
  except
  end
finally
end
日月路明 2017-12-01
  • 打赏
  • 举报
回复
也有可能处理过程太长超时导致的
SupermanTm 2017-11-30
  • 打赏
  • 举报
回复
写把文本写到一个内存流对象,再一次提交给TCP

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧