Question

我有这个代码插入一些没有拉丁字符，然后从IDTCPserver发送到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)方法。它仅适用于在字符串＆lt; - ＆gt;之间进行转换的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);

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

1 个答案: