盒子论坛 v2.1

乱码问题已经解决,
IdFTP.DefStringEncoding := IndyTextEncoding_OSDefault;
IdFTP.IOHandler.DefStringEncoding := IndyTextEncoding_OSDefault;
关键IdFTP.List('', false);
----------------------------------------------

作者：

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

2016/6/23 23:18:33

3楼：

问题在于TIdFTP.ExtListDir 函数使用了UTF8来解码数据,并且没有检查服务器是否为UTF8编码,造成的乱码.
----------------------------------------------

作者：

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

2016/6/23 23:22:42

4楼：

function IdFTPEnabledUTF8(IdFTP: TIdFTP): Boolean;
begin
  Result := False;
  if Assigned(IdFTP) then
  begin
    if IdFTP.Connected then
    begin
      IdFTP.Quote('FEAT');
      if IdFTP.IsExtSupported('UTF8') then
      begin
        case IdFTP.SendCmd('OPTS UTF8 ON') of
          200, 220:
          begin
          IdFTP.DefStringEncoding := IndyTextEncoding_UTF8;
          Result := True;
          end;
        else
          begin
          if IdFTP.SendCmd('OPTS UTF-8 NLST') = 200 then
          begin
          IdFTP.DefStringEncoding := IndyTextEncoding_UTF8;
          Result := True;
          end;
          end;
        end;
      end;
    end;
  end;
end;
function GetFTPList(IdFTP: TIdFTP): Boolean;
begin
  Result := False;
  if Assigned(IdFTP) then
  begin
    if IdFTP.DefStringEncoding = IndyTextEncoding_UTF8 then
    begin
      IdFTP.List();
    end
    else
    begin
      IdFTP.List('', False);
    end;
    Result := True;
  end;
end;
理论代码未进行UTF8的测试.
----------------------------------------------

信息

登陆以后才能回复