delphi 得idftp.put方法能否上传大于2G得文件？

chinawcs 2006-10-19 02:43:15

当我上传大于2G得文件时put方法就报错：no data to trasfer 小于2G得没事
这是为什么呢？难到是bug?
大家给个解决办法呀我得文件都是DVD盘制作得iso文件所以很大

另一个问题：
我搜索一个文件夹得全部文件不包括下一级文件夹得文件
...
dim s as string
SearchResult: TSearchRec;
......
s:=Format('%.2f',[SearchResult.Size/(1024*1024)])

当文件比较大时（大约2G左右）s返回'-XX' 而且数值xx和实际文件大小不同。
文件小得没有问题。
请大家帮忙

...全文

701 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

chinawcs 2006-10-21

打赏
举报

已经安装编译过的组件

ok 了

就是占用内存太大了。

ly_liuyang 2006-10-20

打赏
举报

用最新的Indy 9.0.18
修改4个相关文件的Integer为Int64
即可支持>2GB的文件

chinawcs 2006-10-20

打赏
举报

请大虾指点如何查看delphi 7安装自带得indy是哪个版本

chinawcs 2006-10-20

打赏
举报

谢谢

现在问题是我再idftp 得onwork , onworkbegin 里设置了gauge进度条显示上传进度
现在当我传大文件时该过程
procedure TfrmMirrorSend.ftpClientWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: INTEGER);

AWorkCountMax: INTEGER是integer类型会溢出得。
如何解决这个问题呢？

我下载了upp_Indy_snapshot_2006-9-9.rar 不知能否解决这个问题。

real_name 2006-10-20

打赏
举报

可以

chinawcs 2006-10-20

打赏
举报

对了如何卸栽 delphi 自带得indy组件包括安装路径内容呢？
用delphi 安装盘可以嘛？

chinawcs 2006-10-20

打赏
举报

听大哥得话

自己搞定了该了3个pas int64就ok了
结贴了

谢谢兄弟们！

oushengfen 2006-10-20

打赏
举报

这个倒没有遇到过,还没有上传下载那么大的文件.

ly_liuyang 2006-10-20

打赏
举报

都说了~
修改Indy 4个源文件
全部更改为Int64接口,包括函数的实现部分,(提示: ReadStream和WriteStream是关键)

修改后的Indy,支持>4GB的文件都是OK的

至于如何修改Indy,那就自己搞吧~

日立奔腾浪潮微软松下联想 2006-10-20

打赏
举报

那你下一个indy9.0.19_d7，估计修正了。

chinawcs 2006-10-20

打赏
举报

楼上朋友：

是这样得我在idftp onworkbegin 事件中

procedure TfrmMirrorSend.ftpClientWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: INTEGER);
begin
ggProgress.maxvalue:=AWorkCountMax;
end;
当put发生时触发此事件 AWorkCountMax获得文件大小
但AWorkCountMax是integer类型，当传送>2G时就报错溢出了因为他只能达到20亿。
如何处理呢？

日立奔腾浪潮微软松下联想 2006-10-20

打赏
举报

另外，如果你有使用Indy9的项目，最好不要切换到Indy10，变化很大（为了兼容.net的缘故）。

日立奔腾浪潮微软松下联想 2006-10-20

打赏
举报

Gauge只是一个比例问题，你自己缩放一下就可以了。
就是累计传送的字节 / 总量 * 100，再取整。（假设gauge的最大值设置为100）
在OnWork中，AWorkCount是指本次已传送的字节数，为什么还是integer呢？因为Win32上缓冲区最大也只能开到2GB（实际比这个还要小一点），当然不可能一次发送超过2GB的数据了，那需要多次发送。

chinawcs 2006-10-20