1、选择多个文件上传比如一个100k一个500k 2、传上去得文件为什么都一样大 var i: Integer; begin for i := 0 to FileListBox1.Items.Count - 1 do begin if FileListBox1.Selected[i] then begin SetFunctionButtons(false); IdFTP1.TransferType := ftBinary; IdFTP1.Put(FileListBox1.FileName, ExtractFileName(FileListBox1.Items.Strings[i])); ChageDir(idftp1.RetrieveCurrentDir); SetFunctionButtons(true); end; end; end;