如何读取从iDTCPServer发送的内存流中的非拉丁字符？

Question

我有这个代码,插入一些没有拉丁字符,然后从IDTCPserverTo 发送它idTcpclient

LVU := TStringList.Create;
LVU.Add('?????');
try

  if (LVU.Count > 0) then
  begin
    memorylist := TMemoryStream.Create;
    try
      LVU.SaveToStream(memorylist);
      memorylist.Position := 0;
      AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8;
      AContext.Connection.IOHandler.LargeStream := true;
      AContext.Connection.IOHandler.Write(memorylist, 0, true);
    finally
      memorylist.Free;
    end;
  end;
finally
  LVU.Free;
end;

但是当客户收到它时,它会将ms里面的文字记为'???????' 可能是什么问题 ？我已经将连接编码设置为utf8

我在Ubuntu上运行这个服务器.当我在Windows上尝试服务器时,我得到了正常的文本.

这就是我在客户端读取流的方式

FMSFROMCALL := TMemoryStream.Create;
FTCP.Socket.LargeStream := True;
FTCP.Socket.ReadStream(FMSFROMCALL, -1, false);
FMSFROMCALL.Position := 0;

Answer 1

您的分配DefStringEncoding不适用于该TIdIOHandler.Write(TStream)方法.它仅适用于在字符串< - >字节之间进行转换的IOHandler方法,但是您TStream已经是原始字节,因此不涉及字符串转换.

要执行您尝试的操作,您需要传递TEncoding.UTF8给TStringList.SaveToStream()方法:

LVU := TStringList.Create;
try
  LVU.Add('?????');
  memorylist := TMemoryStream.Create;
  try
    LVU.SaveToStream(memorylist, TEncoding.UTF8);
    memorylist.Position := 0;
    AContext.Connection.IOHandler.LargeStream := true;
    AContext.Connection.IOHandler.Write(memorylist, 0, true);
  finally
    memorylist.Free;
  end;
finally
  LVU.Free;
end;

当你没有传递编码时SaveToStream(),它会使用默认编码进行编码,在你的情况下是一个不支持阿拉伯语的编码,因此它就是???????来自的地方.

另一种方法是发送一个TIdBytes而不是TMemoryStream:

 Bytes := IndyTextEncoding_UTF8.GetBytes('?????');
 AContext.Connection.IOHandler.WriteInt64(Length(Bytes));
 AContext.Connection.IOHandler.Write(Bytes);

或者,只需按DefStringEncoding指定的方式发送字符串:

s := '?????';
AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8;
AContext.Connection.IOHandler.WriteInt64(IndyTextEncoding_UTF8.GetByteCount(s));
AContext.Connection.IOHandler.Write(s);