Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by xufang.bbs
Fri, 27 Mar 1998 00:00
Re: ��ȣ�����λ�����ù�delphi 3.0 c/s���FTP
Author: xufang.bbs
Date: Fri, 27 Mar 1998 00:00
Date: Fri, 27 Mar 1998 00:00
49 lines
1944 bytes
1944 bytes
�� �� 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;
--
[1;36m ��Դ: ����������BBSվ��bbs.nease.net�E[FROM: www-post@bbs.nease.n]
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads