首页 > 代码库 > 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 大文件问题