-
本版专家分：385结帖率 100% -
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万个以上) 时，服务直接崩溃，甚至连异常都捕获不到
-
本版专家分：531 -
写把文本写到一个内存流对象，再一次提交给TCP
-
本版专家分：14765 -
try ... finally并不能捕获异常，尝试使用
try
try
except
end
finally
end
-
本版专家分：4234
-
- 黄花 2016年7月 Delphi大版内专家分月排行榜第二
-
-
AContext.Connection.IOHandler.WriteLn(S);
这行先注释掉，排查下原因
-
本版专家分：385
-
SupermanTm
经过使用 ASession.Connection.IOHandler 的 WriteBufferOpen， WriteBufferFlush, WriteBufferClose; 也没用。
pathletboy
在调用 ListFileToClient 之前已经有 try .. except .. end 但没用，是程序直接崩溃
jjpweb
这行先注释掉了，这个过程没用了
日月路明
后来我加了每发送2000行（2000个文件信息）就发送指令等待客户端处理答复协议，也不管用