用IDFTP上传中文文件名为问号的问题

[k39k39]

环境XE6。
用IDFTP.put上传中文名文件。
因为FTP不支持UTF8，上传的文件名显示为问号。
将文件名转码GBK，但结果仍然是问号
后来注意到idftp.put的函数定义如下：
procedure Put(const ASource: TStream; const ADestFile: string;
const AAppend: Boolean = False; const AStartPos: TIdStreamSize = -1); overload;
procedure Put(const ASourceFile: string; const ADestFile: string = '';
const AAppend: Boolean = False; const AStartPos: TIdStreamSize = -1); overload;

文件名参数 ADestFile 是string，unicode字符串，所以在前面把文件名转码也没用。

请教该怎么解决。

[lyhoo163]

要用WideString;

[k39k39]

试过了 ,idftp.put的参数是 string类型，转为WIDESTRING没有用处

[k39k39]

设置了 ftp.IOHandler.DefStringEncoding:=IndyTextEncoding_ASCII; 也没效果