估计是栈溢出，IdTCPServer 组件

[sczyq]

TCP服务程序，使用　Service 项目　Ｗin64　

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

先上代码，

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万个以上)　时，服务直接崩溃，甚至连异常都捕获不到

[SupermanTm]

写把文本写到一个内存流对象，再一次提交给TCP

[日月路明]

也有可能处理过程太长超时导致的

[pathletboy]

try ... finally并不能捕获异常，尝试使用

try
  try
  except
  end
finally
end

[jjpweb]

AContext.Connection.IOHandler.WriteLn(S); 这行先注释掉，排查下原因

[sczyq]

SupermanTm 经过使用 ASession.Connection.IOHandler 的 WriteBufferOpen， WriteBufferFlush, WriteBufferClose; 也没用。 pathletboy 在调用 ListFileToClient 之前已经有 try .. except .. end 但没用，是程序直接崩溃 jjpweb 这行先注释掉了，这个过程没用了 日月路明 后来我加了每发送2000行（2000个文件信息）就发送指令等待客户端处理答复协议，也不管用