L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-02 #1 我写了一个小小小小的下载程序；但是没有进度条很麻烦 不知道哪位大位知道制作方法； NMFTP在PacketRecvd事件中设置，可是根据demo代源，没有反应！
W weekboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-02 #3 动态创建一个progressbar: bar:=tprogressbar.create; bar.parent:=form1 .....
L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-02 #4 不能获得已发送多少字节，或每秒几个字节 能详细一点吗，谢谢，谢谢，谢谢 我的希望就在你了
W weekboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-02 #5 var bar:tprogressbar; begin bar:=tprogressbar.create(form1); bar.parent:=form1; bar.max:=100 bar.min:=0; bar.step:=NMFTP1.BytesTotal/100; bar.position:=bar.position+NMFTP1.BytesRecvd/bar.step; end;
var bar:tprogressbar; begin bar:=tprogressbar.create(form1); bar.parent:=form1; bar.max:=100 bar.min:=0; bar.step:=NMFTP1.BytesTotal/100; bar.position:=bar.position+NMFTP1.BytesRecvd/bar.step; end;
L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-02 #6 谢谢！我去图书管找书，可以用 procedure TForm1.NMFTP1PacketSent(Sender: TObject); begin PBGOTO.Max:=NMFTP1.BytesTotal; PBGOTO.Position:=NMFTP1.BytesSent; end; 不过还是要感谢你，谢谢，分数不多！不要介意
谢谢！我去图书管找书，可以用 procedure TForm1.NMFTP1PacketSent(Sender: TObject); begin PBGOTO.Max:=NMFTP1.BytesTotal; PBGOTO.Position:=NMFTP1.BytesSent; end; 不过还是要感谢你，谢谢，分数不多！不要介意
