关于indy的下载问题

Question

最近在学indy组件
用了下delphi6自带的indy ftpdemo
发现list了文件后怎么不能下载哦
源代码如下
 if not IdFTP1.Connected then exit;
  Line := DirectoryListBox.Items[DirectoryListBox.ItemIndex];
  Name := GetNameFromDirLine(Line, IsDirectory);
  if IsDirectory then begin 
  ChageDir(Name);  
  end
  else begin
  try
  SaveDialog1.FileName := Name;
  if SaveDialog1.Execute then begin  
  IdFTP1.TransferType := ftBinary;
  BytesToTransfer := IdFTP1.Size(Name);
  IdFTP1.Get(Name, SaveDialog1.FileName, true);
  end;
  finally
  SetFunctionButtons(true);
  end;
  end;还有GetNameFromDirLine这个函数是不是有问题啊，文件夹可以读出来，可是文件就读出一大串哦
下面是我自己简写的，会提示550 failed to open file
    Line := FLB_list.Items[FLB_list.ItemIndex];
    Name := GetNameFromDirLine(Line,IsDirectory);
     IdFTP1.TransferType := ftASCII;
     BytesToTransfer := IdFTP1.Size(Name);
     IdFTP1.Get(name, 'c:/'+name, true);求教各位啊，非常急哦

Answer 1

哈哈,我现在正在向弄一下indy的下载问题 :)