高分，求源码！ 怎样从FTP服务器上拷文件到本地上，

Question

高分，求源码！ 怎样从FTP服务器上拷文件到本地上，

Answer 1

procedure TForm1.ConnectButtonClick(Sender: TObject);
begin
  ConnectButton.Enabled := false;
  if IdFTP1.Connected then
    try
      if TransferrignData then IdFTP1.Abort;
      IdFTP1.Quit;
    finally
      DirectoryListBox.Items.Clear;
      ConnectButton.Caption := '连接';
      ConnectButton.Enabled := true;
      ConnectButton.Default := true;
    end
  else
  try
    IdFTP1.User := UserIDEdit.Text;
    IdFTP1.Password := PasswordEdit.Text;
    IdFTP1.Host := FtpServerEdit.Text;
    IdFTP1.Port:=StrtoInt(PortEdit.Text);
    IdFTP1.Connect;
    DirectoryListBox.Items.Clear;
    IdFTP1.List(DirectoryListBox.Items);
  finally
    ConnectButton.Enabled := true;
    if IdFTP1.Connected then
      begin
      ConnectButton.Caption := '断开';
      ConnectButton.Default := false;
      end;
  end;end;procedure TForm1.UsePassiveClick(Sender: TObject);
begin
IdFTP1.Passive := UsePassive.Checked;
end;procedure TForm1.DownloadButtonClick(Sender: TObject);
var fileName:string;
begin
  if Not IdFTP1.Connected then exit;
  Filename:=Trim(Midstr(DirectoryListBox.Items[DirectoryListBox.ItemIndex],40,90));
  IdFTP1.TransferType := ftBinary;
  BytesToTransfer := IdFTP1.Size(FileName);
  IdFTP1.Get(FileName, EditPath.Text+FileName, true);
end;

Answer 2

晕， 我新手， 看不太懂，能不能一起打个， 发到我的EMAIL [email protected]