Indy 大文件问题

发现Indy9和Indy10（10.0.52版本）里的IdFTP.Size()返回值的类型都是Integer的，也就是说文件最大不能超过2G，需要进入IdFTP.Pas里修改，

声明的地方：
function Size(const AFileName: String): Integer; //修改Integer-->Int64


实现的地方：
function TIdFTP.Size(const AFileName: String): Integer;  //修改Integer-->Int64
var
  SizeStr: String;
begin
  result := -1;
  if SendCmd('SIZE ' + AFileName) = 213 then begin  {do not localize}
    SizeStr := Trim(LastCmdResult.Text.Text);
    IdDelete(SizeStr, 1, IndyPos(' ', SizeStr)); // delete the response   {do not localize}
    result := StrToIntDef(SizeStr, -1);  //修改StrToIntDef-->StrToInt64Def
  end;
end;

同样在把IdFTP.Size()得到的值，赋给你的自定义变量时，也需要Int64类型。这样只要文件不超过{（2的63次方）-1 }都是没问题的。

http://download.csdn.net/detail/yoyo19820622/3982924