🚀 go-pugleaf

�� �� Chipmunk (winter) �Ĵ������ᵽ: ��
: ProtocalState��ת����Ҫһ����ʱ�䣬�������Ϣ��Ӧ����OnProtocalStateChange()
: ���ж���ֵ������ѭ���ȴ�
: BTW:
:    �벻Ҫʹ���Զ����У����˸е� :-Q
: 
:                                           peon
: 
ʮ�ָ�лChipmunk�����İ�������ѭ���ȴ�ProtocalState�˺�
�ã�����һֱ�ȴ�Ҳ����ProtocalState�仯���Ұ��ҵ�ԭ����������
�棬��Chipmunk���ҿ�һ����С��ʮ�ָ�л��

ftp1.RemoteHost:='192.168.1.100';
  ftp1.UserId:='id';
  ftp1.Password:='p';
  ftp1.RemoteFile:='cisco.txt';
  
  ftp1.Connect(ftp1.remotehost,ftp1.remoteport);

  i:=60000;
  while TRUE do
    begin
        i:=i-1;
        if (ftp1.ProtocolState=1) or (i=0) then
           break;
    end;

  if i=0 then
     goto protocolerr;

  ftp1.Authenticate(ftp1.UserId,ftp1.Password);

  i:=60000;
   while TRUE do
    begin
        i:=i-1;
        if (ftp1.ProtocolState=2) or (i=0) then
           break;
    end;
   if i=0 then
       goto  PROTOCOLERR;
  
  ftp1.Getfile('\cisco.txt','c:\cisco.txt');
  progressbar1.Max:=ftp1.docoutput.BytesTotal;
  progressbar1.Position:=ftp1.docoutput.BytesTransferred;

--
 ��Դ: ����������BBSվ��bbs.nease.net�E[FROM: www-post@bbs.nease.n]