100分,如何用FTP下载或上传文件时显示进度条(100分)

K

kingkong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #1

请以Delhpi自带的Demos中的FTP例子说明如何用FTP下载或上传文件时显示进度条，
请各位高人祥细一些，耐心一些，我没有这方面的编程经验，谢过先。。。。。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #2

用ICS的很容易做到，里面有个事件可以响应

 

S

shibaoping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #3

想精确的显示好像不太容易

 

G

gong666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-14

• #4

在NMFTP控件的PacketSent 及PacketRecvd事件中，对滚动条赋值即可，如：
procedure TForm1.NMFTP1PacketSent(Sender: TObject);
begin
ProgressBar1.Position:= NMFTP1.BytesSent;
end;

 

K

kingkong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-14

• #5

to gong666:
NMFTP1.BytesSent想精确的显示好像不太精确,特别是比较小的文件.

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-14

• #6

用大名鼎鼎的 ICS 里面的 FTPClient
直接响应 OnProgress 事件即可：
procedure TForm1.FtpClient1Progress(Sender: TObject; Count: Integer;
var Abort: Boolean);
begin
// here
end;

 

T

tennic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #7

可以试试:
procedure Tform1:NMFTP1packetSent(Sender:TObject);
begin
ProgressBar1.Position:=(NMFTP1.BytesSend div NMFTP1.BytesTotal)*100;
end;