delphi6 中TNMFTP 和TIDFTP 的循环上传文件的问题；(100分)

C

clapper

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #1

有一个程序功能是有客户端向服务器传送文件；
可以是传一个文件也可以是多个文件，文件大小不定；
现在的问题是：
使用TNMFTP控件来传送一个文件时（5M多）都能正常上传，下传；
可是传送多个文件时，使用FOR 循环来传送，上传成功，可是各个文件的大小变为
一样的，5M的变为1M多；
后来改用DELPHI6 自带的TIDFTP控件结果也一样；

 

Z

zfan76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-09

• #2

我想问一下,你上传的代码是怎样的?

 

1

13911060887

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #3

有一个程序功能是有客户端向服务器传送文件；
可以是传一个文件也可以是多个文件，文件大小不定；
现在的问题是：
使用TNMFTP控件来传送一个文件时（5M多）都能正常上传，下传；
可是传送多个文件时，使用FOR 循环来传送，上传成功，可是各个文件的大小变为
一样的，5M的变为1M多；
后来改用DELPHI6 自带的TIDFTP控件结果也一样；var
i: Integer;
begin
for I:=0 to FileListBox1.Items.Count-1 do
if FileListBox1.selected then
begin
IdFTP1.Put(FileListBox1.filename,extractfilename(FileListBox1.Items.Strings));
SetFunctionButtons(false);
IdFTP1.TransferType := ftBinary;
ChageDir(idftp1.RetrieveCurrentDir);
SetFunctionButtons(true);
end;
end;
文件发出以后到远端都一样大小
谁解决掉给100分

 

T

thygw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #4

我有socket的例子，留下mail，但是只能传送一个文件，看看源程序，我想实现多个文件传输也没有问题！

 

Y

yf168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #5

留下email?[]

 

1

13911060887

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #6

楼上的你好
wangxingyong@163.net

 

S

smileforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #7

可以给我一份吗?????????
yuanlinhuangjei@hotmail.com

 

T

tang_zhihua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #8

请问在delphi里写"映射网络驱动器"要怎样写才行吗?
net use ('U://服务器/共享文件夹名称',false);
这样为什么不行呀?请示,谢谢!