Delphi7 TIdFtp List中文文件名乱码

[Mr Dang]

Delphi7 TIdFtp List中文文件名乱码
ftp里面有【 数字+中文+字母 】文件名，List的时候，文件名有的就乱码，有的可以正确获取到，请教解决方法。

[Mr Dang]

自己顶，不要沉了

[luxuewei5214]

难道是unicode的问题？

[道玄希言]

用XE搞吧…… 我是被D6, D7的乱码搞怕了

[Yothan]

这个很简单，提供给你一个判断ftp文件夹是否存在的函数，可以借鉴 function FTPHasDirectary(ftp : TIdFTP;SFatherDirect,SDirectName : string) : boolean; var LS : TStringList; i : integer; begin result := false; if (not assigned(ftp)) or (not ftp.Connected) then exit; try try LS := TStringList.Create; ftp.TransferType := ftASCII; //重要 ftp.ChangeDir(SFatherDirect); ftp.List(LS);//使用TStringList保存列表 if LS.Count = 0 then exit; for i := 0 to LS.Count - 1 do begin if AnsiPos(SDirectName,LS.Strings[i]) > 0 then begin result := true; exit; end; end; except end; finally FreeAndNil(LS); end; end;