意外的行为重复使用Delphi中的Tmemorystream

Question

我正在尝试从Tmemorystream读取两条不同长度的字符串，但是这两个流的长度最终都相同。因此，例如，如果第一个字符串是“ abcdefghijkl'，而第二个字符串是“ wxyz”，那么我对第二个字符串获得的值是'wxyzefghijkl'（我的新字符串的前四个字符（'wxyz'）遵循通过“ WXYZ”替换的第一字符串的剩余字符

是： -

var
  L : LongInt
  S : string;

...
  msRecInfo.Position := 0;
  msRecInfo.Read(L, SizeOf(L)); // read size of following string ...

  SubStream.Clear;
  SubStream.CopyFrom(msRecInfo, L); // copy next block of data to a second TMemoryStream

  if (L > 0) then S := StreamToString(SubStream);  //convert the stream into a string

  msRecInfo.Read(L, SizeOf(L)); // get size of following string ...
  SubStream.CopyFrom(msRecInfo, L);
  if (L > 0) then S := StreamToString(SubStream);

我一直在与这个数小时的战斗而没有成功。

Answer 1

在第二个调用 substream.copyfrom（）之前，您没有调用 substream.clear（）。因此，第一个调用 streamToString（substream） subs substream.position.position 在流的末尾，然后是后续 substream.copyfrom（）将更多数据添加到流中，保存现有数据。然后，随后的 streamTostring（substream）从 substream 中读取所有数据。

另外，请注意，如果 l 是 0 将其传递给 substream.copyfrom（）时，它将复制整个 thother /em> msrecinfo 流。这是记录的行为：

如果计数为0，则copyfrom将源位置设置为0，然后在阅读之前将源位置设置为0，然后将整个源内容的整个内容复制到流中。如果计数大于或小于0源位置。

因此，您需要向上移动 l＆gt; 0 检查，例如：

msRecInfo.Read(L, SizeOf(L));
if (L > 0) then
begin
  SubStream.Clear;
  SubStream.CopyFrom(msRecInfo, L);
  S := StreamToString(SubStream);
end
else
  S := '';

我建议将此逻辑包装到可重复使用的函数中，例如：

var
  L : LongInt;
  S : string;

  function ReadString: string;
  begin
    msRecInfo.Read(L, SizeOf(L)); // read size of following string ...
    if (L > 0) then
    begin
      SubStream.Clear;
      SubStream.CopyFrom(msRecInfo, L); // copy next block of data to a second TMemoryStream
      Result := StreamToString(SubStream);  //convert the stream into a string
    end else
      Result := '';
  end;
begin
  ...
  msRecInfo.Position := 0;
  S := ReadString;
  S := ReadString;
  ...

虽然，如果可行的话，我建议只能摆脱 substream 完全，更新 streamtostring（ ）将 l 作为输入参数，因此您可以直接从 MSRECINFO 直接读取 String ，例如：

msRecInfo.Read(L, SizeOf(L));
S := StreamToString(msRecInfo, L);

无需2nd tmemorystream 如果可以避免。