功能是列出指定目录下的所有文件信息发送给客户端
先上代码，
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万个以上) 时，服务直接崩溃，甚至连异常都捕获不到
