if idftp1.Connected then
begin
if dlgOpen_File.Execute then
begin
idftp1.TransferType := ftBinary;
//这里怎么判断FTP服务器上有这个文件（目录已经存在了，
只要判断这个目录下面是否有这个文件），
如果有我就不传，如果没有再执行下面的上传代码
idftp1.Put(dlgOpen_File.FileName, AnsiToUtf8(ExtractFileName(dlgOpen_File.FileName)));
ChageDir(Utf8ToAnsi(idftp1.RetrieveCurrentDir));
end;
end;
小弟刚接触delphi ，希望大神帮助一下，感谢了！