首页 > 代码库 > Indy 大文件问题

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

Indy 大文件问题