N
netbug
Unregistered / Unconfirmed
GUEST, unregistred user!
我用的是Delphi3.0,我用FTP命令可以以匿名登陆到ftp.microsoft.com,
我现在想用Delphi程序以匿名登陆，当登陆成功时，在状态栏显示：connect,
请看：
var
st:widestring;
procedure TForm1.Button1Click(Sender: TObject);
begin
ftp1.UserId:='anonymous';
ftp1.Password:='aa@aa';
ftp1.Connect('ftp.microsoft.com',21);
end;
procedure TForm1.FTP1Log(Sender: TObject);
begin
statusbar1.SimpleText:='connected';
ftp1.List(st);
end;
但不行，请问：我的程序错在哪里？谢谢。
我现在想用Delphi程序以匿名登陆，当登陆成功时，在状态栏显示：connect,
请看：
var
st:widestring;
procedure TForm1.Button1Click(Sender: TObject);
begin
ftp1.UserId:='anonymous';
ftp1.Password:='aa@aa';
ftp1.Connect('ftp.microsoft.com',21);
end;
procedure TForm1.FTP1Log(Sender: TObject);
begin
statusbar1.SimpleText:='connected';
ftp1.List(st);
end;
但不行，请问：我的程序错在哪里？谢谢。