服务器端接收的含中文的文件名，中文都是乱码，我用AnsiToUtf8，UTF8Decode，Utf8ToAnsi，UTF8Decode，UTF8Encode，AnsiString
这些函数都转换了也没有效果，不用函数也不行，其中UTF8Decode和Utf8ToAnsi不能传，会报错，我用的XE6，请问有大神遇到同样的问题了吗，怎么解决的？

发送者必须传送
TNetEncoding.URL.Encode(文件名);
服务器收到后
文件名 ;= TNetEncoding.URL.Decode(FTP文件名);

怎么个乱码？

具体情况也没看明白。
serv-u的记得有个ftp命令里，去掉 什么用utf-8编码接收文件路径和文件名来着

有人没，我自己顶一下

试试把string转为ansistring

{ AnsiString与WideString互相转换函数 }
function AnsiStringToWideString(Const s: AnsiString): WideString;
var
iLen: Integer;
sw: WideString;
begin
Result := '';
if Length(s) = 0 then
Exit;
iLen := MultiByteToWideChar(CP_ACP, 0, PAnsiChar(s), -1, nil, 0);
SetLength(sw, iLen - 1);
MultiByteToWideChar(CP_ACP, 0, PAnsiChar(s), -1, PWideChar(sw), iLen);
Result := sw;
end;
function WideStringToAnsiString(Const s: WideString): AnsiString;
var
iLen: Integer;
sa: AnsiString;
begin
Result := '';
if Length(s) = 0 then
Exit;
iLen := WideCharToMultiByte(CP_ACP, 0, PWideChar(s), -1, nil, 0, nil, nil);
SetLength(sa, iLen - 1);
WideCharToMultiByte(CP_ACP, 0, PWideChar(s), -1, PAnsiChar(sa), iLen,
nil, nil);
Result := sa;
end;
{ UTF8与WideString互相转换函数 }
function UTF8StringToWideString(Const s: UTF8String): WideString;
var
iLen: Integer;
sw: WideString;
begin
Result := '';
if Length(s) = 0 then
Exit;
iLen := MultiByteToWideChar(CP_UTF8, 0, PAnsiChar(s), -1, nil, 0);
SetLength(sw, iLen);
MultiByteToWideChar(CP_UTF8, 0, PAnsiChar(s), -1, PWideChar(sw), iLen);
Result := sw;
end;
function WideStringToUTF8String(Const s: WideString): UTF8String;
var
iLen: Integer;
su: UTF8String;
begin
Result := '';
if Length(s) = 0 then
Exit;
iLen := WideCharToMultiByte(CP_UTF8, 0, PWideChar(s), -1, nil, 0, nil, nil);
SetLength(su, iLen);
WideCharToMultiByte(CP_UTF8, 0, PWideChar(s), -1, PAnsiChar(su), iLen,
nil, nil);
Result := su;
end;
{ UTF8与AnsiString互相转换函数 }
function UTF8StringToAnsiString(Const s: UTF8String): AnsiString;
begin
Result := WideStringToAnsiString(UTF8StringToWideString(s));
end;
function AnsiStringToUTF8String(Const s: AnsiString): UTF8String;
begin
Result := WideStringToUTF8String(AnsiStringToWideString(s));
end;

我发现我的文件名乱码是通过两次转换成的，假设文件名问你‘hello你好’，用下面的函数转换
转换成这样，再用得到的字符串转换成字节显示就是和文件名乱码一样的，
其中log是memo显示； 然后我再把乱码还原，怎么还原不到中间的‘hello浣犲ソ.txt’；
现在问题只需要把这个’helloä½ å¥½.txt‘还原成这个‘hello浣犲ソ.txt’就好办了，有没有大神帮我看看

直接widestringtoansistring看看

服务器那边可能使用的事是ansistring

建议在接收的之后将文件名用16进制写出来，就可以分析收到的是什么编码了，然后针对转码。

{****16进制单字符值*****}
function HexVal(c: char): Byte;
begin
if (c<'A') then result := ord(c) - ord('0')
else result := ord(c) - ord('A') + 10;
end;
{****16进制双字符值*****}
function Hex2Val(s: string): Byte;
begin
result := HexVal(s.Chars[0])*16 + HexVal(s.Chars[1]);
end;
{**********字符串转换成字节*******}
function StrToBytes(S, AFormat: string): TBytes;
var
i:Integer;
ss:TStrings;
begin
if(AFormat='Str') then begin
SetLength(result,s.Length);
for i:=0 to s.Length-1 do result[i]:=ord(s.Chars[i]);
end else begin
ss:=TStringList.Create;
ss.CommaText:=s.Trim.ToUpper.Replace(' ',',');
SetLength(result,ss.Count);
if(AFormat='HexStr') then for i:=0 to ss.Count-1 do result[i]:=Hex2Val(ss[i]);
if(AFormat='DecStr') then for i:=0 to ss.Count-1 do result[i]:=ss[i].ToInteger;
ss.Free;
end
end;
{**********字节转换成字符串*******}
function BytesToStr(b: TBytes; AFormat: string): string;
var
I: Byte;
begin
result := '';
if (AFormat = 'str') then for i in b do result := result + chr(I) else
if (AFormat = 'HexStr') then for I in b do result := result + I.ToHexString(2) + '' else
if (AFormat = 'DecStr') then for i in b do result := result + I.ToString() + '';
result := result.Trim;
end;

我把原码放在这里，各位大神有空的话可以帮我看看
[无效] http://pan.baidu.com/s/1c0jmZSk

楼主白痴。
看了你的源码，就是你自己活该。
发送者必须传送
TNetEncoding.URL.Encode(文件名);
服务器收到后
文件名 ;= TNetEncoding.URL.Decode(FTP文件名);
不听就算了。

浪费时间。

function Do_Decode(const S_Unicode: UnicodeString): UTF8String;
var
aBytes: TBytes;
i, aLength: Integer;
begin
aLength := Length(S_Unicode);
SetLength(aBytes, aLength);
for i := 1 to aLength do
aBytes[i - 1] := Word(S_Unicode[i]);
Result := TEncoding.UTF8.GetString(aBytes);
end;
function Do_Encode(const S_UTF8: UTF8String): UnicodeString;
var
aBytes: TBytes;
i, aLength: Integer;
begin
aBytes := TEncoding.UTF8.GetBytes(S_UTF8);
aLength := Length(aBytes);
SetLength(Result, aLength);
for i := 1 to aLength do
Result[i] := Char(Word(aBytes[i - 1]));
end;

测试过你的代码，经确认写出来的16进制值是utf8编码。那么问题就很清楚了，你用的是xe6，string是宽字符的，你接收到的utf8字符串也被宽字符处理了，所以需要还原成ansistring来处理就解决了，验证代码如下：

楼上的代码很好。就是有点不跨平台。
str := 'hello你好.txt';
aBytes := TEncoding.UTF8.GetBytes(str);
str := '';
for I := 0 to Length(ABytes) - 1 do
begin
str := str + Chr(ABytes[I] );
end;
//以上是生成错误编码的字符串。
SetLength(aBytes, Length(str));
for I := 0 to Length(ABytes) - 1 do
begin
ABytes[I] := Byte(str[Low(str) + I]);
end;
str := TEncoding.UTF8.GetString(ABytes);

谢谢楼上两位大哥

然后我把楼上大哥的代码写成函数，直接将乱码转换成中文了，真是太感谢 太感谢