盒子论坛 v2.1

我的os是win10，开发环境是delphi xe8，indy 10.6.2。代码如下
  IdFTP.Connect;
  IdFTP.DefStringEncoding := IndyTextEncoding_OSDefault;
  IdFTP.IOHandler.DefStringEncoding := IndyTextEncoding_OSDefault;
  if not IdFTPEnabledUTF8(IdFTP) then
  begin
    Application.MessageBox('不支持UTF8编码', '错误', MB_OK + MB_ICONSTOP);
  end;
  IdFTP.List(RzListBox.Items, '', False);
其中IdFTPEnabledUTF8()函数为xuchuantao提供。
执行代码之后不会提示'不支持UTF8编码'，但是获得的list的中文文件和文件夹均显示'???'，请问该如何解决？谢谢。
----------------------------------------------
-

作者：

badwood (badwood)	★☆☆☆☆	-
	盒子活跃会员

2016/9/8 17:47:34

1楼：

1、开启AUTOFEAT
2、赋值IndyTextEncoding_OSDefault时要先判断是否支持UTF8,开启UTF8，赋值这个就不对了。
----------------------------------------------
-

作者：

xuchuantao (暗黑天使)	★☆☆☆☆	-
	普通会员

2016/9/8 22:06:58

2楼：

if IdFTP.DefStringEncoding = IndyTextEncoding_UTF8 then
    begin
      IdFTP.List();
    end
    else
    begin
      IdFTP.List('', False);
    end;
for i := 0 to IdFTP.DirectoryListing.Count - 1 do
    begin
      VirtualNode := FTPTreeView.AddChild(nil);
      VirtualNodeData := FTPTreeView.GetNodeData(VirtualNode);
      VirtualNodeData^.ItemType := IdFTP.DirectoryListing.Items[i].ItemType;
      VirtualNodeData^.FileName := IdFTP.DirectoryListing.Items[i].FileName;
    end;
IdFTP.List默认会以UTF8来处理.
----------------------------------------------

作者：

wazhl (浪漫三界)	▲▲▲△△	-
	普通会员

2016/9/9 8:58:50

3楼：

尝试了xuchuantao说的，IdFTP.List已经按照UTF8进行处理，但是获得的List依然是'？？？'
----------------------------------------------
-

作者：

wazhl (浪漫三界)	▲▲▲△△	-
	普通会员

2016/9/9 9:47:52

4楼：

已解决，支持中文了，谢谢大家
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2016/9/9 14:10:21

5楼：

楼主是保密局的。只管提问，不管正确答案。
----------------------------------------------
(C)(P)Flying Wang

作者：

kingofsun (小矮人酋长)	★☆☆☆☆	-
	普通会员

2016/9/9 15:40:38

6楼：

公布下正确答案叻
----------------------------------------------
-

信息

登陆以后才能回复