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