procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if radiobutton1.Checked then
NMFTP1.Mode(MODE_ASCII)
else
NMFTP1.Mode(MODE_BYTE);
nmftp1.uploadunique(directorylistbox1.Directory+'/'+filelistbox1.Items[filelistbox1.itemindex]);
end;

解决方案 »

  1.   

    你的'/'写反了:
    nmftp1.uploadunique(directorylistbox1.Directory+'\'+filelistbox1.Items[filelistbox1.itemindex]);
      

  2.   

    为什么上去那种文件的 都是多起来的都是FTP00000  FTP00001  FTP00002^^^^
      

  3.   

    因为你用的是uploadunique,它上传时会自己起一个唯一的名字的。
    如果你还想用原来的文件名可以用upload:
    nmftp1.upload(directorylistbox1.Directory+'\'+filelistbox1.Items[filelistbox1.itemindex], filelistbox1.Items[filelistbox1.itemindex]);